Re^2: One to one file output idiom

maybe try $. to catch the first line per file, like

C:\tmp\files>perl -nE"say qq($.--$ARGV) if $.==1; $.=0 if eof " a b c
1--a
1--b
1--c
[download]

Unfortunately I need to reset $. at the end of each file, which is kind of hacky! :/

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}