Hi,
This is usually what I do...
-----------------------------
#!/usr/bin/perl
my $startDate;
while (<>) {
if($_ =~
/StartWeekLabel.*?>([\d]{4})\/([\d]{2})\/([\d]{2}).*?<\/span>/i) {
$startDate ="$1$2$3";
}
}
print "$startDate\n";
------------------------------
Call the script with the text file as a parameter "perl myscript.pl
mytextfile.txt"
If you want to search multiple files just add them as well "perl
myscript.pl mytextfile.txt mytextfile2.txt etc"
/Michael
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
