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

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


Comment on Re: copying records from one file to another with filter.
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://816518]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2015-07-06 00:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (68 votes), past polls