Subscribed unsubscribe Subscribe Subscribe

Wassrのhtml隠れコメントが気になったので抜き出してみた

こんなカンジでいいのかな?

#!/usr/bin/perl
use strict;
use warnings;

use LWP::Simple;
use HTML::Parser;

my $html = LWP::Simple::get('http://wassr.jp/');

my @array;
my $parser = HTML::Parser->new(
    handlers => {
        comment => [\@array, "text"],
    });
$parser->parse($html);

print "$array[0][0]\n";

HTML::Parserって初めて使ってみたけど、イマイチわかってない。
どこかに良いサンプル落ちてないだろうか。