Re: [MacPerl] number 3 in my series of beginner problems

[Nicholas G. Thornton]

$j = 0
#you forgot the ;
until ($j = 10) {
while ( $line = <THATFILE>);
# should be while($line = <THATFILE>) {
print "$line\n";
$j++
# and then you need another } here
}

Looking at
print "$i - " . "$file_name\n";
why don't you just use
print "$i - $file_name\n";