Re: Want to do One line Perl Command

If I read you right ...

perl -nle '$_ eq "Errors" ? pop(@f) : push(@f, $_); END {unlink @f}'
[download]

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

Comment on Re: Want to do One line Perl Command Select or Download Code

Replies are listed 'Best First'.
Re^2: Want to do One line Perl Command by EchoAngel (Pilgrim) on Jul 02, 2004 at 21:22 UTC
Oh sorry, I forgot to indicated that there could be multiple Errors statements	[reply]
Re^3: Want to do One line Perl Command by Sidhekin (Priest) on Jul 02, 2004 at 21:29 UTC
Oh sorry, I forgot to indicated that there could be multiple Errors statements Oh well. Slight modification: `perl -nle '$_ eq "Errors" ? delete($f{$prev}) : $f{$prev=$_}++; END {u +nlink keys %f}'` [download] `print "Just another Perl ${\(trickster and hacker)},"` The Sidhekin proves Sidhe did it!	[reply] [d/l] [select]