perlワンライナーでよしなにHTMLを分割する

大きなHTMLファイルを小さく分割したかった。
でも切る時にHTMLとしての構成は維持したかった。
CPANにHTML::Splitという神モジュールが登録されていた。

そのままだと、ファイル出力用ではないのでワンライナーでなんとかしました。
ファイル名がハードコーディングなのがカッコ悪いですが・・

cat result.html | perl -MHTML::Split -e 'my $html ="";while(<>){$html .= $_;} my @pages = HTML::Split->split(html => $html, length => 30000); while (my ($i, $page) = each (@pages)){open (my $fh, ">", "result." . $i . ".html"); print $fh $page;close ($fh);}'