Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2016-07-26 02:54 GMT
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (231 votes). Check out past polls.