Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: copying records from one file to another with filter.

by mnooning (Beadle)
on Jan 09, 2010 at 18:52 UTC ( #816518=note: print w/replies, xml ) Need Help??

in reply to copying records from one file to another with filter.

use strict; my @incoming = ( "1-Dec-2009,12,87", "2-Dec-2009,54,204", "3-Dec-2009,75,214", "4-Dec-2009,78,198", "5-Dec-2009,98,155", "6-Dec-2009,10,180", "7-Dec-2009,51,91", "8-Dec-2009,32,130", ); my $lookedForDate = "4-Dec-2009"; foreach my $line (@incoming) { # If you are getting these lines from a file, you may # first have to # chomp($line); # Get rid of the \n # Look for beginning-of-line,then $lookedForDate if ($line =~ m/^$lookedForDate/) { print ("Found $lookedForDate in the line: $line\n"); } } __END__ The result is pasted below Found 4-Dec-2009 in the line: 4-Dec-2009,78,198

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://816518]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2017-03-22 23:08 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (277 votes). Check out past polls.