Perl Printing a matching substring



Hi all,

I need a perl script that can open files (given in command line arguments) and extract/print out any dates or times found in it. The format of the dates and times can be any reasonable format.

The problem I have is I don't know how to print out the matching part of the file once i find it. Any ideas?

2 years 2 weeks ago   Tags:


Using regular expressions as follows on the command line:

 perl findtime.pl date_file.txt

The code for findtime.pl is as follows:

#!/usr/bin/perl
#findtime.pl
use strict;
use warnings;
 
my $d1 = qr{(?:0[1-9]|1[012])[- /.](?:0[1-9]|[12][0-9]|3[01])[- /.](?:19|20)\d\d}; #Matches mm/dd/yyyy
my $d2 = qr{(?:0[1-9]|[12][0-9]|3[01])[- /.](?:0[1-9]|1[012])[- /.](?:19|20)\d\d}; #Matches dd/mm/yyyy
my @dates;
 
while (<>){
	my @d = m/$d1 | $d2/gx;
	push @dates, @d if scalar(@d);
}
 
print "$_ \n" foreach @dates;

The file 'date_file.txt' contains the data.