PERL Tutor Marked Assignemt 10 Section 2 - Part B
You are to write a Perl program that analyses text files to obtain statistics on their content. The program should operate as follows:
1) When run, the program should check if an argument has been provided. If not, the program should prompt for, and accept input of, a filename from the keyboard.
2) The filename, either passed as an argument or input from the keyboard, should be checked to ensure it is in MS-DOS format. The filename part should be no longer than 8 characters and must begin with a letter or underscore character followed by up to 7 letters, digits or underscore characters. The file extension should be optional, but if given is should be ".TXT" (upper- or lowercase).
If no extension if given, ".TXT" should be added to the end of the filename. So, for example, if "testfile" is input as the filename, this should become "testfile.TXT". If "input.txt" is entered, this should remain unchanged.
3) If the filename provided is not of the correct format, the program should display a suitable error message and end at this point.
4) The program should then check to see if the file exists using the filename provided. If the file does not exist, a suitable error message should be displayed and the program should end at this point.
5) Next, if the file exists but the file is empty, again a suitable error message should be displayed and the program should end.
6) The file should be read and checked to display crude statistics on the number of characters, words, lines, sentences and paragraphs that are within the file.
May you take a look at the code i have done so far
in a file named "TMA10.pl"
#accept input of, a filename from the keyboard
print ("Enter Filename: ");
$filename = <STDIN>;
chomp ($filename);
}
if ($filename !~ m/[a-zA-Z]{0-8}\.txt$)/i)
}
die ($File Format is incorrect.!\n");
}
open (READFILE, "Data.txt") || die "Couldn't open file: $!";
while (<READFILE>)
{
close(READFILE);
Im finding this assignment extremely difficult and need more help.
Im not asking for you to give me the answers but maybe nudge me in the right direction or assist me in any further information.
I have encountered this code below which outputs correctly But doesnt include any detail regarding the file.
my $file = "data1.txt";
my $i = 0;
my $p = 1;
my $words = 0;
my $chars = 0;
open(READFILE, "$file") || die "Can't open file '$file': $!";
while (<READFILE>) {
chomp; # removes the input record seperator
$i = $.; # "$." is the input record line number. $i++ will also work
$p++ if (m/^$/); # count paragraphs
my @t = split(/\s+/); # split sentences into "words" and store them in @t
$words += @t; # add count to $words;
$chars += tr/ //c; # count all characters except spaces and add to $chars
}
print "There are $i Lines in $file\n";
print "There are $p Paragraphs in $file\n";
print "There are $words Words in $file\n";
print "There are $chars Characters in $file\n";
close(READFILE);
