Want to do One line Perl Command

i have a file with the following

apple.c
pears.c
watermelons.c
[download]

i want to delete these files using some code in perl -ne however if my file contains stuff like

apple.c
Errors
Errors
pears.c
Errors
Errors
Errors
watermelon.c
[download]

i want the perl command line to delete only the watermelon.c file since it has no Errors statements following the file name in the list I hope I made this clear

Comment on Want to do One line Perl Command Select or Download Code
Re: Want to do One line Perl Command by Sidhekin (Priest) on Jul 02, 2004 at 20:43 UTC
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!	[reply] [d/l] [select]
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]
Re: Want to do One line Perl Command by delirium (Chaplain) on Jul 03, 2004 at 12:23 UTC
If we make an assumption that any line that doesn't have a .c file is an error statement... `perl -lne '/\.c$/?$h{$l=$_}++:delete$h{$l}}{unlink keys%h' file.txt`	[reply] [d/l]
Re: Want to do One line Perl Command by Neutron Jack (Pilgrim) on Jul 03, 2004 at 19:36 UTC
Here's a different approach: `perl -0ne 'unlink /.+\n(?:Errors$)+\|(.+)/mg'` [download]	[reply] [d/l]
Re^2: Want to do One line Perl Command by muba (Curate) on Jul 05, 2004 at 11:08 UTC
Hmm... I just don't see why it's so important to you to have a perl -ne style one-liner. What's wrong with a script which can do the job easier and more readable than a one-liner? `"2b"\|\|!"2b";$$_="the question"`	[reply] [d/l]


"be consistent"
	PerlMonks

Want to do One line Perl Command

The best material for plates (tableware) is: