japhy
Enthusiast
Mar 2, 2001, 1:06 PM
Post #2 of 2
(368 views)
|
Since you just started learning Perl, I suggest you spend a good week or so getting familiar with Perl's handy documentation. It's a time-saver like you've never known.
Here is how I would approach your problem:
open FILE, $filename or die "can't read $filename: $!";
while (<FILE>) {
print "$. $_";
}
close FILE;
my $line = 1;
open FILE, $filename or die "can't read $filename: $!";
while (<FILE>) {
print "$line $_";
$line++;
}
close FILE;
Jeff "japhy" Pinyan -- accomplished hacker, teacher, lecturer, and author
|
MAIN
SEARCH
WHO'S 
LOG 