HTML::Text
25  

テキスト部分だけを取り出し表示してみよう

HTML::Textの定義
 package HTML::Text;      # HTML::Textを定義
 use base 'HTML::Parser'; # HTML::Parserを継承

 # メソッドtextをオーバーライド
 sub text {  
    my ($self, $text) = @_;
    print $text;
 }

HTML::Textの使い方
 my $parser = new HTML::Text;
 $parser->parse_file("20000828.html");