Select Code to Download

#! perl -sw
use strict;

use LWP::Simple;
my $html = get("http://pvpgnservers.ath.cx");
print ">>>\n$html\n<<<\n";

  <tr>
    <td><font size=1><a href="bnetd://217.172.178.113/">217.172.178.11
+3</a></font></td>
...
    <td align=right><font size=1>42</font></td>
    <td align=right><font size=1>9</font></td>
  </tr>

C:\test>202414 202414.htm
Possible unintended interpolation of @pure in string at C:\test\202414
+.pl line 9.
...
Execution of C:\test\202414.pl aborted due to compilation errors.

C:\test>

#! perl -sw
use strict;
...
!sx;

 print "@stuff\n";

#! perl -sw
use strict;
...
my $p= HTML::PullParser->new( doc => \$html );

print Dumper($p);

C:\test>202414-2 202414.htm
Info not collected for any events at C:\test\202414-2.pl line 23

C:\test>

EXAMPLES

The 'eg/hform' script shows how we might parse the form section of HTM
+L::Documents using HTML::PullParser.