How to Extract a Date from a File

[Jon Bjornstad]

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
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs