Perl/DocsTranslation

Top Diff List Search RSS Login
Page :: Perl / DocsTranslation

翻訳したもの

モジュール名statusURL
Parallel::ForkManagerhttp://perldoc.jp/docs/modules/Parallel-ForkManager-0.7.5
CGI::WebGziphttp://perldoc.jp/docs/modules/CGI-WebGzip-0.12
Filesys::DiskUsagehttp://perldoc.jp/docs/modules/Filesys-DiskUsage-0.02
PerlIO::Gziphttp://perldoc.jp/docs/modules/PerlIO-gzip-0.17
File::Copy::Recursivehttp://perldoc.jp/docs/modules/File-Copy-Recursive-0.06
CGI::Session::Hiddenhttp://perldoc.jp/docs/modules/CGI-Session-Hidden-0.01
Class::DBI::mysqlhttp://perldoc.jp/docs/modules/Class-DBI-mysql-1.00
Class::DBI::Sweethttp://perldoc.jp/docs/modules/Class-DBI-Sweet-0.05
UNIVERSAL::require未アップ-

POD切り出しツール

perldoc.jpの井上さんが作成されたPOD切り出しツールです。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/local/bin/perl -w

# xpod.pl - extract pod from .pm file
#
# Copyright 2002 perldocjp project <perldocjp@freeml.com>
# 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 (@ARGV != 1) {
  my $me = $0;
  $me =~ s|.*/||; # get filename
  print "Usage: $me file";
  exit 1;
}

my $file = shift @ARGV;
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;


Last update time:2006/02/06 11:49:55