Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

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

by mnooning (Sexton)
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 lurking in the Monastery: (8)
As of 2014-08-20 07:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (107 votes), past polls