文字コード今回のしおしおRSSファイルの出力パッケージRSS出力HTML::Template.pmを使ってRSSの書式を出力します。XMLだろうとHTML::Templateで出力。Templateを別ファイルにするか悩みましたが、perlソース内にいれてしまいました。出力はutf-8で固定にしてしまいました。どれでも対応できるようにしてもよいでしょう。概要をハッシュにし、その参照を配列にする。アイコン画像のURLHTML::Templateのparam()ですから、ハッシュをまとめることもできます。文字コード60行目と120行目が出力文字コードに依存するところです。114行目からのoutput()は、HTML::Templateのoutput()をオーバーライドしてます。SUPERていうのをはじめて知りました。$self->SUPERは、スーパークラスの名前を返してくれて、第1引数に$selfを渡してくれるようです。これはだめっぽいと書きたいところでしたが。*1と同じ動作をしてくれます。分からないので、上の方が可読性がある、といえるのでしょうね。今回のしおしおSUPER::を書くのを忘れて思いっきり再帰呼出の無限ループでスタック使いきるコードを書いてしまいました。pre2このページはGzuGzuで作成されました.yaino.com。