Re: regex question matching dates
[email protected] (Richard Lee)
| Newsgroups | perl.beginners |
|---|---|
| Message-ID | <[email protected]> |
John W. Krahn wrote:
>>
>>
>> } elsif ( $ARGV[0] =~
>> m/\b2008(0[1-9]|1[12])(0[1-9]|1[0-9]|2[0-9]|3[01])([01][0-9]|2[0-3])\b/
>> ) {
> ^^^^^
> So you don't want to test for October?
>
>
>
> John
fixed now. thanks!!
} elsif ( $ARGV[0] =~
m/\b2008(0[1-9]|1[012])(0[1-9]|1[0-9]|2[0-9]|3[01])([01][0-9]|2[0-3])\b/ ) {
@array = qx#ls -tr $directory/$ARGV[0]*#;
$hour = substr($ARGV[0], 8 , 2);
$date_1 = substr($ARGV[0], 4 , 4);