Help for this page

Select Code to Download


  1. or download this
    977707.pl
What day? 4/24/012
Wide character in print at D:\_Perl_\pl_test\977707.pl line 14, <> lin
+e 1.
...
  <td width="3%" style='width:3.12%;border:none;padding:0in 5.4pt 0in 
+5.4pt'>
  <p class=MsoNormal><span style='font-size:10.0pt'><o:p>&nbsp;</o:p><
+/span></p>
  </td>
  2. or download this
    #!/usr/bin/perl
use 5.014;

...
my $html = get ($url);
$html =~ m{$date(.*?)(?=</tr>)}gms;
print "$1 \n";