http://qs321.pair.com?node_id=198901


in reply to Save all but line 32!

Not as fast and doesn't handle a list of files, but for entertainment value: 
perl -MTie::File -e 'tie @file, 'Tie::File', $ARGV[0]; splice @file, 3
+1, 1;' filename

[download]
(Tie::File is in the standard lib now.)

Replies are listed 'Best First'.
Re^2: Save all but line 32!
by Aristotle (Chancellor) on Sep 18, 2002 at 19:20 UTC
    Some None of the other solutions will not correctly handle a list of files either (only the ones using $. will). And this one is easily extended to do so: perl -MTie::File -e 'tie(@file, 'Tie::File', $_) and splice @file, 31, 1 for @ARGV' file1 file2 file3 Update: zigdon is right. I should have tested.

    Makeshifts last the longest.

[reply]
[d/l]
      I thought $. only resets on a close call? meaning the <> operator doesn't reset it, since it never closes the filehandles. So the following code will omit the 35th line only for the first file, but not for any other file: 
      perl -ne 'print unless $. == 35' file1 file2

      [download]
      Is that correct?

      -- Dan

[reply]
[d/l]
[select]

In Section Meditations