why this deleting-a-line one-liner not working

[sedawk]

Hi,

I try to delete a line a file using this one-liner:

perl -p -e 'next if /delete/i' < test.txt | tee out.txt

test.txt has this format:
line 1
delete line
Line DELETE
line2

out.txt should have this format:
line1
line2

But it doesn't work. why?

 

[ishnid]

Using the -p switch causes the following to be placed around your code:

LINE:
while (<>) {
  ...             # your program goes here
} continue {
   print or die "-p destination: $!\n";
}

Calling "next" doesn't stop the "continue" block being executed, so the line will be printed in any event.

I'd change it to this:

perl -ne 'print unless /delete/i' test.txt | tee out.txt