これまで、Perl でクラスを作成する必要はなかったのだが、HTML::Parser を継承したクラスを使うといろいろ便利そうなので、試してみた。 サンプルのクラス Sample.pm として保存する。 package Sample; use strict; sub new { my ($class, $a, $b, $c) = @_…