NOEMBLEM/エンブレムが設定されていません。

メールの詳細(メール表示)

件名:

Re: スクリプトから POD を取り出すプログラム

差出人: INOUE Kenjiさん
送信日時 2002/06/16 07:19
ML.NO [perldocjp:0160]
本文:

井上です.

At 11:49:35 pm 2002/6/15, INOUE Kenji wrote:
> スクリプト (.pm) から POD の部分だけを取り出すプログラムってあります?
> perldoc -u でいいのかな.

perldoc -u から引っ張ってきました.サクっと書いたてきとーなスクリプトです.

--- xpod.pl ---

#!/usr/local/bin/perl -w

# xpod.pl - extract pod from .pm file
#
# Copyright 2002 perldocjp project <perldocjp@…>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License.

use FileHandle;
use strict;

# if no arguments are given, just print usage and exit
if (@… != 1) {
my $me = $0;
$me =~ s|.*/||; # get filename
print "Usage: $me file";
exit 1;
}

my $file = shift @…;
my $fh = FileHandle->new($file, r) or die "Cannot open $file: $!";

# This algorithm came from the perldoc command
my $inpod = 0; # true if processing pod text
while (my $line = <$fh>) {
$inpod = ($1 ne cut) if $line =~ /^=(w+)/;
next unless $inpod;

print $line;
}

$fh->close();

exit;

--- INOUE Kenji / DEQ <deq@…>
http://www.necoware.com/~deq/

このエントリーをはてなブックマークに追加
添付:

このメールは下記のメールに対する返信です: