Perl/DocsTranslation
Page :: Perl
/ DocsTranslation
翻訳したもの
モジュール名 | status | URL |
---|---|---|
Parallel::ForkManager | 済 | http://perldoc.jp/docs/modules/Parallel-ForkManager-0.7.5 |
CGI::WebGzip | 済 | http://perldoc.jp/docs/modules/CGI-WebGzip-0.12 |
Filesys::DiskUsage | 済 | http://perldoc.jp/docs/modules/Filesys-DiskUsage-0.02 |
PerlIO::Gzip | 済 | http://perldoc.jp/docs/modules/PerlIO-gzip-0.17 |
File::Copy::Recursive | 済 | http://perldoc.jp/docs/modules/File-Copy-Recursive-0.06 |
CGI::Session::Hidden | 済 | http://perldoc.jp/docs/modules/CGI-Session-Hidden-0.01 |
Class::DBI::mysql | 済 | http://perldoc.jp/docs/modules/Class-DBI-mysql-1.00 |
Class::DBI::Sweet | 済 | http://perldoc.jp/docs/modules/Class-DBI-Sweet-0.05 |
UNIVERSAL::require | 未アップ | - |
POD切り出しツール
perldoc.jpの井上さんが作成されたPOD切り出しツールです。
1 |
#!/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