Re: Parsing HTML tags with regex

[davorg]

I know you don't want to use HTML::foo (tho' you never explain why) but in the interests of having at least one "best practices" answer listed here an HTML::TreeBuilder solution is given below:

#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use HTML::TreeBuilder;

my $page = get ('http://pvpgnservers.ath.cx/') or die;

my $tree = HTML::TreeBuilder->new;
$tree->parse($page);

my @trs = $tree->find_by_tag_name('tr');

my @stuff;
foreach my $row (@trs) {
  if ($row->as_text =~ /^217\.172\.178\.113/) {
    @stuff = map { ref $_ ? $_->as_text : $_ } $row->content_list;
    last;
  }
}

print "@stuff\n";

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

[Chmrr]

See also this other node in the other thread; I take a slightly different approach to the problem, but also using HTML::TreeBuilder. TIMTOWTDI, indeed.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'