Re: Clearing lines in a file based on an array containing the lines


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

by ramrod (Curate)

on Apr 22, 2009 at 20:27 UTC ( #759396=note: print w/replies, xml )

Need Help??

You can eliminate the second "grooming" by comparing against your elements at the same time:

print FILE $LINE unless ($array[0] eq "$erasethese[0]" || $array[0] eq
+ "$erasethese[1]" );
[download]

As far as only opening the file once, you can try opening it for both reading and writing (+<)

Comment on Re: Clearing lines in a file based on an array containing the lines Download Code

Log In^?

Domain Nodelet^?

Node Status^?

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

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others surveying the Monastery: (4)

As of 2023-02-05 20:20 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Notices^?