Re^2: One to one file output idiom

by LanX (Saint)

on Jan 15, 2020 at 18:44 UTC ( [id://11111455]=note: print w/replies, xml )

Need Help??

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}

Comment on Re^2: One to one file output idiom Select or Download Code

Replies are listed 'Best First'.
Re^3: One to one file output idiom by Eily (Monsignor) on Jan 16, 2020 at 09:06 UTC
Closing ARGV before it gets opened again would be the non hacky thing way to do it since it's shown in the doc, although it's a bit longer. Edit: choroba pointed out it was shown in the doc for eof not open	[reply]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://11111455]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others sharing their wisdom with the Monastery: (2)

As of 2024-04-26 00:37 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found