HTH,
Lee
=TasK:
Input
name and date: Abate, Alfred 02.24.51 Date2: 09/21/00 blablabla
output
Name =Abate Alfred
Date=02.24.51
Date2=09/21/00
=cut
$div = "[.-/]";
$input = 'name and date: Abate, Alfred 02.24.51 Date2: 09/21/00 blablabla';
$input =~/^name and
date:\s(\w+,\s\w+)\s(\d\d$div\d\d$div\d\d)\sDate2:\s(\d\d$div\d\d$div\d\d)/;
($name,$date1,$date2) = ($1,$2,$3);
print "Name: $name\nDate1: $date1\nDate2: $date2\n";
__END__;
At 16:36 13/03/2001 +0530, shil wrote:
>Hi guys,
> I really have problem with this regex.Here I have the string
>containing two dates separated by either ' / ' or ' . ' or ' - '. I have to
>retrieve both the dates and string which comes before the first date and
>after it.
>
>Input
>name and date: Abate, Alfred 02.24.51 Date2: 09/21/00 blablabla
>
>output
>Name =Abate Alfred
>Date=02.24.51
>Date2=09/21/00
>
>Thanks for the help
>
>
>
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.231 / Virus Database: 112 - Release Date: 2/12/01
>
>_______________________________________________
>ActivePerl mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/activeperl
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
