B. Estrade estrabd

View nofile.pl
1 2 3 4 5 6 7 8 9 10
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
1 2 3 4 5 6 7 8 9 10
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.