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

[mnooning]

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