Understadning Perl Basics

josephman1988 · Jul 7th, 2007, 11:15

Hi,

The reason for the topic tilte is because I'l be asking various questions in the same thread over a period of time, easier then making a million threads!

Anyway, I'm having a problem with one of my scripts.

What I want to do is read a file that the user inputs.
E.g - stats.txt will open the file.

However, what i want to do, is that if the user doesn't enter a extension of .txt it will automatically add it.

My attempt:

Code: Select all

my $file = <STDIN>;
open(READFILE, "$file") || die "No File Found";

if ($file !~ m/.txt$/)
{
$file .= ".txt";
} else {
print "There was already a .txt filename\n";
}

my $i = 0;
while (<READFILE>)
{
$i++;
}
print ("There are " . $i . " Lines in " . $file);
close(READFILE);

However, this doesn't work. =[

Any help is greatly appreciated.

DPhahn · Aug 9th, 2007, 17:53

try this

Code: Select all

my $lin = "Lines: \n";
chomp($lin);
enter:
{
print("Please enter a file name: ");
$fileName = <STDIN>;
chomp($fileName);
 
if($fileName !~ m/\.TXT$/i)
 {
  open(READFILE, "$fileName.txt") || die "couldn't open file: $!";
        }
else
 {
 print("re-enter filename!\n");
 redo enter;
}
}
while(<READFILE>)
{
package Lines;
 $count += split(/\n\n/, $_);
}
print("$lin $Lines::count\n");
close(READFILE);

DPhahn · Aug 9th, 2007, 18:14

OR this..yu missed the backslash before .txt...if ($file !~ m/.txt$/)
it should be if ($file !~ m/\.txt$/)

Code: Select all

my ($lastchar,$lines,$file,$paragraphs,$ch);
print("enter filename: ");
my $file = <STDIN>;
chomp($file);
if ($file !~ m/\.txt$/)
{
$file .= ".txt";
} 
open(READFILE, "$file") || die "No File Found";
my $i = 1;
while ($ch = getc(READFILE))
{
if ($ch eq "\n") # if newline...
 {
  $lines++; # count another line
  if ($lastchar eq "\n") # if last character also newline
  {
  $paragraphs++; # count another paragraph
  }
 }
}
print ("There are " . $i . " Lines in " . $file);
close(READFILE);