RE: File Input and Output

[Anonymous Monk]

running this code: open(FILE, "data.txt"); #opens data.txt in read-mode while(<FILE>){ #reads line by line from FILE which is the filehandle for data.txt chomp; print "Saw $_ in data.txt\n"; #shows you what we have read } close FILE; #close the file. results in: # perl test1 syntax error at test1 line 5, near "<" syntax error at test1 line 5, near ">" Execution of test1 aborted due to compilation errors.

[turnstep]

root just forgot that you don't need to escape less-than and greater-than signs inside <CODE> tags. Obviously, it should read:

while(<FILE>)

[Anonymous Monk]

So, in summary, here's how you deal with open():



#!/usr/bin/perl
print"Gimmie a filename to examine: ";
$filename=<STDIN>;

open(FILE,$filename);
while(<FILE>)
        {
        chomp;
        print "Found $_ in $filename"
        }
close FILEDESC;

[turnstep]

Actually, it should be:

print "Gimme a filename to examine: ";
chop($filename=<STDIN>); ## Not many filenames have a newline...

open(FILE, $filename) || die "Could not open $filename: $!\n";
while(<FILE>) {
  chomp;
  print "Found $_ in $filename\n" ## Need a newline here!
}
close(FILE); ## not FILEDESC...