Thanks to all who took the time to reply and contribute to the discussion from which I learnt a lot!
Based on the comments made I'd like to summarise the - in my view most elegant - solution to my question here: eof permits to detect the end of file, $ARGV holds the name of the file currently read and $. holds the current line number in that file.
I just tested the following code snippet and it does exactly what I was looking for:
while ( <> )
{
print "Reading line $. in file $ARGV.\n";
$. = 0 if eof;
}
So, thanks again to all of you who contributed!
Cheers -
Pat | [reply]
[d/l]
[select] |
I'd recommend to follow what toolic advised: close the file instead of manually nulifying $. The value of $. is reset automatically when the file is closed, so the following does what you need:
while (<>) {
print "$ARGV.$.:$_\n";
close ARGV if eof;
}
| [reply]
[d/l] |