Re^2: Save all but line 32!


No such thing as a small change
	PerlMonks

Re^2: Save all but line 32!

by Aristotle (Chancellor)

on Sep 18, 2002 at 19:20 UTC ( [id://198972]=note: print w/replies, xml )

Need Help??

in reply to Re: Save all but line 32!
in thread Save all but line 32!

~~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.

Comment on Re^2: Save all but line 32! Download Code

Replies are listed 'Best First'.
Re: Re^2: Save all but line 32! by zigdon (Deacon) on Sep 18, 2002 at 19:58 UTC
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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://198972]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others contemplating the Monastery: (4)

As of 2024-04-24 22:21 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found