RE: Is there a regexp that will match two or more expressions???

[Tim Johnson]

You mean like this?  I'm not 100% sure what you're asking.

##########################################

use strict;
use warnings;

open(INFILE,"<myfile.txt") || die "Couldn't open 'myfile.txt' for
reading!\n";

my @LinesIWantToKeep;

while(<INFILE>){
   if($_ =~ /Jan 12/){
        push @LinesIWantToKeep,$_;
        my $line = <INFILE>;
        push @LinesIWantToKeep,$line;   
   }else{
        <INFILE>;
   }
}

print @LinesIWantToKeep;

###########################################


-----Original Message-----
From: Harold Castro [mailto:[EMAIL PROTECTED] 
Sent: Thursday, February 03, 2005 3:55 PM
To: beginners@perl.org
Subject: Is there a regexp that will match two or more expressions???

Hi,

I'm looking for a regexp that will match two
expressions. Each line of the file I'm reading
contains different months and years. I'm only after
those lines with particular year and month. All those
lines with january and 2005 for example. Any idea?
Thanks!
here's a portion of the file.

Wed Jan 12 03:50:18 PHT 2005    Wed Jan 12 04:00:17
PHT 2005    0.17 hours              2693
Sun Jan  9 10:00:10 PHT 2005    Sun Jan  9 14:00:11
PHT 2005    4.00 hours              2636
Fri Jan  7 09:40:14 PHT 2005    Fri Jan  7 09:50:14
PHT 2005    0.17 hours              2576
Sat Jan 31 19:18:53 PHT 2004    Tue Feb  3 10:24:54
PHT 2004    2.63 days               106689
Sat Jan 31 13:25:15 PHT 2004    Sat Jan 31 13:52:51
PHT 2004    0.46 hours              106678
Sat Jan 31 10:46:09 PHT 2004    Sat Jan 31 12:48:11
PHT 2004    2.03 hours              106671




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>