【Perl】HTML / XML の 整形には tidy“p”?


HTML や XML の整形ツールとして有名なものに HTML Tidy(以下、単に tidy と呼ぶ) がある。このツールは既に 10 年以上の歴史を持つが、最近では更新頻度がだいぶ落ちてた。tidy を Perl 上から使うには HTML::Tidy というモジュールを使うのだが、tidy の最新版がうちの環境(Mac OS X 10.6 + Perl 5.10.1)ではうまく動かず、えらい苦労させられた。

【MovableType】Tidy を使って HTML を整形するプラグイン | blog.delphinus.dev
https://blog.delphinus.dev/2010/03/tiding-movabletype.html

HTML::Tidyについて追試 | blog.delphinus.dev
https://blog.delphinus.dev/2010/03/resit-html-tidy-install.html

こうした中、HTML::Tidy の作者は一向に更新されぬ tidy に業を煮やしたのか、自ら互換プロダクトを開発することにしたらしい。それが tidyp だ。

tidyp
http://tidyp.com/

Downloads for petdance’s tidyp – GitHub
http://github.com/petdance/tidyp/downloads

$ wget http://github.com/downloads/petdance/tidyp/tidyp-1.02.tar.gz
$ tar zxvf tidyp-1.02.tar.gz
$ cd tidyp-1.02
$ ./configure
$ make
$ sudo make install

さくっとインストール終了。続いて HTML::Tidy の最新版も入れておこう1

$ cpan -i HTML::Tidy

何の問題もなく最新版の HTML::Tidy 1.52 が入ってしまった。これまでの苦労を思えば感動ものだ。簡単にテストしてみよう。

tidyp のテスト

$ echo '<p>テスト</p>' | tidyp -utf8 --output-xhtml 1 -o test1.html

HTML::Tidy のテスト

$ perl -MHTML::Tidy -e 'print HTML::Tidy->new({ wrap => 72, output_xhtml => 1 })->clean( "<p>テスト</p>" )' > test2.html

どちらもまったく同じファイルを生成する

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="generator" content=
"tidyp for Mac OS X (v1.02), see www.w3.org" />
<title></title>
</head>
<body>
<p>テスト</p>
</body>
</html>

tidyp には tidy と同じオプションが使えるようだ。詳しいリストは以下のリンクにあるが、シェルからも一覧を確認できる。

HTML Tidy Configuration
http://tidy.sourceforge.net/docs/quickref.html

$ tidyp -help-config

(中略)

Name                        Type       Allowable values
=========================== =========  ========================================
accessibility-check         enum       0 (Tidy Classic), 1 (Priority 1 Checks),
                                       2 (Priority 2 Checks), 3 (Priority 3
                                       Checks)
add-xml-decl                Boolean    y/n, yes/no, t/f, true/false, 1/0
add-xml-space               Boolean    y/n, yes/no, t/f, true/false, 1/0
alt-text                    String     -
anchor-as-name              Boolean    y/n, yes/no, t/f, true/false, 1/0
ascii-chars                 Boolean    y/n, yes/no, t/f, true/false, 1/0

(以下略)

Perl スクリプトから HTML::Tidy を使ってアクセスするときは、ハイフンをアンダーバーに換えてコンストラクタに渡せば良い。以下の例はこのサイトの HTML を整形する際に使っているオプションである。

$ tidyp --output-xhtml 1 --indent auto --indent-attributes yes --wrap 80 --break-before-br yes --replace-color yes
use HTML::Tidy;
my $tidy = HTML::Tidy->new( {
    output_xhtml => "yes",
    indent => "auto",
    indent_attributes => "yes",
    wrap => 80,
    break_before_br => "yes",
    replace_color => "yes",
} );

  1. 今回は MacPorts 版の Perl 5.12.0 を使っている。 

コメントを残す