Skip to content
View nofile.pl
use strict;
use warnings;
# Clear word hash
my %words = ();
print "What is the text you wish to analyze? \n";
print "Please include the filename and extension \n\n";
print "Now analyzing lexical frequency...\n\n";
View count.pl
use strict;
use warnings;
# Clear word hash
my %words = ();
print "What is the text you wish to analyze? \n";
print "Please include the filename and extension \n\n";
my $textfile = <>; # Read the filename from the keyboard input
Something went wrong with that request. Please try again.