October 11, 2003

POD が邪魔だあ! というときに POD::Stripper

[ Perl ]

どうも HTML::Template で UTF-8 を使ったときに文字化けが結構な確率で起こっているように感じたので HTML::Template のソース読むしか! と思ってみるも、ソースのあちこちにちりばめられた POD ドキュメントが邪魔だあ。Meadow で見ると色付けがぐちゃぐちゃになってしまって困りマクリスティです。

ま、何か付属のフィルタツールか何かで POD を除去したりできるんだろうなとか思ってたんですが、そういった類のツールがなかなか見つからない。ぐぐって見てもヒットしない。思わず WebProg板で教えてクソ炸裂、しかし反応なし。(゚Д゚;) しかし、そんなことも知らないのか、自分...。

困った時の CPAN ということで探してみたら、お目当ての物を発見しました。Pod::Stripper モジュールはソースコードから POD を strip してくれます。

サンプルコードそのまんまなんですが、

#!/usr/local/bin/perl
 
use strict;
use warnings;
use Pod::Stripper;
 
my $strip = Pod::Stripper->new;
$strip->parse_from_filehandle(\*STDIN) unless (@ARGV);
 
for my $ARGV (@ARGV) {
    $strip->parse_from_file($ARGV);
}

というコードで POD 除去フィルタができあがり。ナイスです。ワンライナーなあなたのために

perl -MPod::Stripper -e"Pod::Stripper->new()->parse_from_file(shift)" Hoge.pm

というのもアリだそうです。

で、POD を取っ払って HTML::Template のコードと格闘するも 3 分で挫折。

# 教えてクソ自戒の意味を込めてブログ。

Posted by naoya at October 11, 2003 01:05 AM | トラックバック (0)  b_entry.gif
トラックバック [0件]
TrackBack URL: http://mt.bloghackers.net/mt/suck-tbspams.cgi/508
コメント [0件]