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]