Re: One to one file output idiom

Another suggestion of mine form the CB discussion:

perl -pwe 'open STDOUT, ">", "$ARGV.txt" if $last ne $ARGV; s/.*/\U$&/
+; $last = $ARGV' *.obj
[download]

Update: Using eof is a bit cleaner, but it still triggers at a wrong time, so it couldn't be used directly:

perl -pwe 'open STDOUT, ">", "$ARGV.txt" unless $e; $e = ! eof; s/.*/\
+U$&/' *.obj
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

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

Replies are listed 'Best First'.
Re^2: One to one file output idiom by LanX (Saint) on Jan 15, 2020 at 18:44 UTC
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}	[reply] [d/l] [select]
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]