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

##

  
    217.172.178.113
    Pure-Dream
    Europe
    0d 00:40
    DreamDiver
    PvPGN BnetD Mod 1.1.6 Linux
    42
    9
  

##

##

C:\test>202414 202414.htm
Possible unintended interpolation of @pure in string at C:\test\202414.pl line 9.
Global symbol "@pure" requires explicit package name at C:\test\202414.pl line 9.
Execution of C:\test\202414.pl aborted due to compilation errors.

C:\test>

##

##

#! perl -sw
use strict;

use LWP::Simple;
my $html = get("http://pvpgnservers.ath.cx");
#my $html = do{local $/; <>; };

my @stuff = $html =~
m!
\s+
([^<]+?)\s+
([^<]+?)\s+
([^<]+?)\s+
([^<]+?)\s+
([^<]+?)\s+
([^<]+)\s+
([^<]+?)\s+
([^<]+?)\s+
\s+

!sx;

 print "@stuff\n";

##

##

#! perl -sw
use strict;
use LWP::Simple;
use HTML::PullParser;
use Data::Dumper;

#my $html = get("http://pvpgnservers.ath.cx");
my $html = do{local $/; <>; };

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 HTML::Documents using HTML::PullParser.