in reply to Fetching date
Do you want to capture the information like this:
or do you just want to match it, in which case this should workmy $date = 'Jan 21 00:41'; my ($mon, $day, $hour, $min) = $date =~ /(\w+)\s(\d+)\s(\d+):(\d+)/; foreach($mon, $day, $hour, $min){ print "$_\n"; }
$datehit =~ /(\w+\s\d{2}\s\d{2}\:\d{2})/;
- Tom
|
---|
In Section
Seekers of Perl Wisdom