Can anyone get this code to run?
Re: Analysing text files to obtain statistics on their content Using Perl
#!/usr/bin/perl
use strict;
use warnings;
my $filename= "";
if ($#ARGV == -1) #no filename provided as a command line argument.
{
print("Please Enter Filename: ");
$filename = <STDIN>;
chomp($filename);
}
else
{
$filename = $ARGV[0];
}
if ($filename !~ m/^[_a-zA-Z][^.]{1,7}\.TXT$/i)
{
die("File is not valid.\n");
}
if ($filename !~ m/\.TXT$/i)
{
$filename.=".TXT";
}
if (-e $filename)
{
die("File does not exist\n");
}
#check if filename is empty, exit if it is.
if (-s $filename)
{
die("File is empty\n");
}
open(READFILE, $filename) or die ("Can't open file $filename");
#then use a while loop and series of if statements similar to the following
while (<READFILE>) {
chomp; #removes the input record Separator
my $i = $.; #"$". is the input record line numbers, $i++ will also work
my $p++ if (m/^$/); #count paragraphs
my @t = split (/\s+/); #split sentences into "words" and store them in @t
my $words+= @t; # add count to $words
my $chars += tr/ //c; #tr/ //c replaces everything in the string with itself, except spaces, and returns the number of such characters replaced
#count all characters except spaces and add to $chars
}
my $sentences = 0;
my $i = 0;
my $p = 1;
my $words = 0;
my $chars = 0;
while(my $ch = getc(READFILE))
{
my $character_count;
chomp($ch);
if($ch eq "?" || $ch eq "," || $ch eq ".")
{
$sentences++;
}
}
my $word++;
if(my $ch =~ /[ \t]+/)
{
$chars++;
}
close(READFILE);
#display results
print("Sentences: $sentences\n");
print("Lines: $i lines\n");
print("Paragraphs: $p paragraphs\n");
print("Words: $words\n");
print("Characters: $chars\n");
