Paul, et al,
open my $in, '<', "$sourcedir/$filename"
or die "cannot open file: $!\n";
my $html;
{
local $/;
$html = <$in>;
close $in;
}
# Obtain the year, month and day following the text, StartWeekLabel
my $startdate = join '', $html =~ m{
StartWeekLabel[^>]*>
(\d{4}) / (\d{2}) / (\d{2})
}xms;
print "startdate = $startdate\n";
Study on that and ask me any questions!
I hope this helps.
I recommend the book Perl Best Practices by Damian Conway.
Jon
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
