Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Removing lines ending with integers larger than x

by thunders (Priest)
on Mar 13, 2012 at 15:08 UTC ( #959373=note: print w/replies, xml ) Need Help??

in reply to Removing lines ending with integers larger than x

The one liners above are fine, but if I needed to incorporate this into a larger script, I would write the filtered data to a new file, then replace the original with the new file.
use strict; use IO::File; #open the original report for reading my $file = IO::File->new("data.txt","r") or die($!); #Create a new file to write to my $filtered_file = IO::File->new("data_filtered.txt","w") or die($!); #read report file while ( my $line = <$file> ) { #remove newline chomp($line); my ( $data, $number ) = split ",", $line; $filtered_file->print("$line\n") if $number < 47; } $file->close; $filtered_file->close; # Replace the original file rename("data_filtered.txt","data.txt");

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://959373]
[holli]: "die Kleine" is a (somewhat diminishing) term for woman :) also someone at stock overflow seems to think i'm female
[Discipulus]: holli orange is gold in the morning, silver in afternoon and lead in the nigth..
[Discipulus]: banana too better not in the night
[holli]: it actually feels more like a lead-acid battery ^^
[Discipulus]: erix are you now travelling in space? iirc you were in low countries
choroba had 4 beers (or was it 5?) yesterday, plus a pickled cheese
[choroba]: megalag :-(
[erix]: ok, I looked it up, should have been: "Haribo macht Kinder froh und Erwachsene ebenso"
[Discipulus]: also mixing pizza (fermented/levited ) with juices is not so good

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2017-11-22 09:05 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (316 votes). Check out past polls.