argra****@users*****
argra****@users*****
2010年 4月 6日 (火) 05:07:44 JST
Index: docs/perl/5.10.1/perlfaq3.pod
diff -u docs/perl/5.10.1/perlfaq3.pod:1.1 docs/perl/5.10.1/perlfaq3.pod:1.2
--- docs/perl/5.10.1/perlfaq3.pod:1.1 Tue Mar 2 03:34:20 2010
+++ docs/perl/5.10.1/perlfaq3.pod Tue Apr 6 05:07:44 2010
@@ -170,8 +170,7 @@
=end original
-From the command line, you can use the C<cpan> command's C<-l> switch:
-(TBT)
+コマンドラインからは、C<-l> オプション付きの C<cpan> コマンドが使えます:
$ cpan -l
@@ -182,9 +181,9 @@
=end original
-You can also use C<cpan>'s C<-a> switch to create an autobundle file
-that C<CPAN.pm> understands and cna use to re-install every module:
-(TBT)
+また、C<cpan> の C<-a> オプションを使うことで、C<CPAN.pm> が理解して、
+全てのモジュールを再インストールするために使える autobundle ファイルも
+作れます。
$ cpan -a
@@ -395,8 +394,8 @@
=end original
-(contributed by brian d foy, updated Fri Jul 25 12:22:26 PDT 2008)
-(TBT)
+(brian d foy によって寄贈され、Fri Jul 25 12:22:26 PDT 2008 に
+更新されました)
=begin original
@@ -804,10 +803,8 @@
=end original
-Padre is cross-platform IDE for Perl written in Perl using the the wxWidgets
-to provide a native look and feel. It's open source under the Artistic
-License.
-(TBT)
+Padre は、ネイティブな見た目を提供するために wxWidgets を使って Perl で
+書かれた Perl のためのクロスプラットフォーム IDE です。
=item PerlBuilder
Index: docs/perl/5.10.1/perlfaq4.pod
diff -u docs/perl/5.10.1/perlfaq4.pod:1.2 docs/perl/5.10.1/perlfaq4.pod:1.3
--- docs/perl/5.10.1/perlfaq4.pod:1.2 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq4.pod Tue Apr 6 05:07:44 2010
@@ -133,8 +133,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
@@ -1903,8 +1902,14 @@
(一行にあるすべての単語をキャピタライズするには?)
+=begin original
+
(contributed by brian d foy)
+=end original
+
+(brian d foy によって寄贈されました)
+
=begin original
Damian Conway's L<Text::Autoformat> handles all of the thinking
@@ -3391,8 +3396,14 @@
X<circular> X<array> X<Tie::Cycle> X<Array::Iterator::Circular>
X<cycle> X<modulus>
+=begin original
+
(contributed by brian d foy)
+=end original
+
+(brian d foy によって寄贈されました)
+
=begin original
If you want to cycle through an array endlessy, you can increment the
@@ -4374,8 +4385,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
Index: docs/perl/5.10.1/perlfaq5.pod
diff -u docs/perl/5.10.1/perlfaq5.pod:1.1 docs/perl/5.10.1/perlfaq5.pod:1.2
--- docs/perl/5.10.1/perlfaq5.pod:1.1 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq5.pod Tue Apr 6 05:07:44 2010
@@ -5,13 +5,11 @@
=begin original
--perlfaq5 - Files and Formats ($Revision: 10126 $)
-+perlfaq5 - Files and Formats
-(TBT)
+perlfaq5 - Files and Formats
=end original
-perlfaq5 - ファイルとフォーマット ($Revision: 10126 $)
+perlfaq5 - ファイルとフォーマット
=head1 DESCRIPTION
@@ -37,8 +35,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
@@ -1839,9 +1836,7 @@
STDIO の実装によっては、バッファが空からスタートしても、複数のシステム
レベルの C<write()> を呼び出すものがある可能性があります。
この確率を 0 にしているシステムもあるかもしれませんし、
-this is
-not a concern when using C<:perlio> instead of your system's STDIO.
-(TBT)
+システムの STDIO ではなく C<:perlio> を使うときには関係ありません。
=head2 How do I randomly update a binary file?
X<file, binary patch>
@@ -2695,9 +2690,8 @@
=end original
-Short of loading the file into a database or pre-indexing the lines in
-the file, there are a couple of things that you can do.
-(TBT)
+ファイルをデータベースに読み込ませたり、ファイルの行数のインデックスを
+予め作っておく以外では、これをするためには 2 種類の方法があります:
=begin original
@@ -2757,8 +2751,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
@@ -2860,8 +2853,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
@@ -2944,8 +2936,7 @@
=end original
-(contributed by brian d foy)
-(TBT)
+(brian d foy によって寄贈されました)
=begin original
Index: docs/perl/5.10.1/perlfaq6.pod
diff -u docs/perl/5.10.1/perlfaq6.pod:1.1 docs/perl/5.10.1/perlfaq6.pod:1.2
--- docs/perl/5.10.1/perlfaq6.pod:1.1 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq6.pod Tue Apr 6 05:07:44 2010
@@ -1663,11 +1663,11 @@
=end original
-Perl 5.10 added three specials, C<${^MATCH}>, C<${^PREMATCH}>, and
-C<${^POSTMATCH}> to do the same job but without the global performance
-penalty. Perl 5.10 only sets these variables if you compile or execute the
-regular expression with the C</p> modifier.
-(TBT)
+Perl 5.10 では、グローバルなペナルティなしに同じ作業をするための
+3 つの特殊変数 C<${^MATCH}>, C<${^PREMATCH}>, C<${^POSTMATCH}> が
+追加されました。
+Perl 5.10 では、正規表現を C</p> 修飾子付きでコンパイルしたり
+実行したりした場合にのみこれらの変数がセットされます。
=head2 What good is C<\G> in a regular expression?
X<\G>
Index: docs/perl/5.10.1/perlfaq7.pod
diff -u docs/perl/5.10.1/perlfaq7.pod:1.1 docs/perl/5.10.1/perlfaq7.pod:1.2
--- docs/perl/5.10.1/perlfaq7.pod:1.1 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq7.pod Tue Apr 6 05:07:44 2010
@@ -518,9 +518,8 @@
=end original
-The full answer to this can be found at
+これに対する完全な答えは以下にあります:
http://cpan.org/modules/04pause.html#takeover
-(TBT)
=begin original
@@ -1169,10 +1168,9 @@
=end original
-In Perl 5.10, declare the variable with C<state>. The C<state>
-declaration creates the lexical variable that persists between calls
-to the subroutine:
-(TBT)
+Perl 5.10 では、C<state> で変数を宣言します。
+C<state> 宣言は、サブルーチンの呼び出しの間で永続するレキシカル変数を
+作成します:
sub counter { state $count = 1; $counter++ }
@@ -1655,8 +1653,8 @@
=end original
-In Perl 5.10, use the C<given-when> construct described in L<perlsyn>:
-(TBT)
+Perl 5.10 では、L<perlsyn> に記述されている C<given-when> 構造を
+使ってください:
use 5.010;
Index: docs/perl/5.10.1/perlfaq8.pod
diff -u docs/perl/5.10.1/perlfaq8.pod:1.1 docs/perl/5.10.1/perlfaq8.pod:1.2
--- docs/perl/5.10.1/perlfaq8.pod:1.1 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq8.pod Tue Apr 6 05:07:44 2010
@@ -78,10 +78,9 @@
=end original
-The C<exec> function's job is to turn your process into another
-command and never to return. If that's not what you want to do, don't
-use C<exec>. :)
-(TBT)
+C<exec> 関数の仕事は、あなたのプロセスを他のコマンドに切り替えて、
+決して帰ってこないことです。
+もしこれがあなたのしたいことでないなら、C<exec> を使わないでください。 :)
=begin original
@@ -90,9 +89,8 @@
=end original
-If you want to run an external command and still keep your Perl process
-going, look at a piped C<open>, C<fork>, or C<system>.
-(TBT)
+もし外部コマンドを実行して、かつ Perl プロセスを実行したままにしたい場合は、
+パイプ付きの C<open>, C<fork>, C<system> のいずれかを見てください。
=head2 How do I do fancy stuff with the keyboard/screen/mouse?
@@ -2762,8 +2760,7 @@
=end original
-See the entry for C<use> in L<perlfunc> for more details.
-(TBT)
+さらなる詳細については L<perlfunc> の C<use> の項目を参照してください。
=head2 How do I keep my own module/library directory?
@@ -2911,9 +2908,7 @@
You can do a similar thing with the value of C<$0>, which holds the
script name. That might hold a relative path, but C<rel2abs> can turn
--it into an absolute path. Once you have the
-+it into an absolute path. Once you have the
-(TBT)
+it into an absolute path. Once you have the
=end original
@@ -2940,10 +2935,8 @@
=end original
Perl に同梱されている C<FindBin> モジュールが働くでしょう。
-It finds the
-directory of the currently running script and puts it in C<$Bin>, which
-you can then use to construct the right library path:
-(TBT)
+これは現在実行しているスクリプトのディレクトリを見つけて C<$Bin> に
+設定し、正しいライブラリパスを構築するために使えるようにします:
use FindBin qw($Bin);
Index: docs/perl/5.10.1/perlfaq9.pod
diff -u docs/perl/5.10.1/perlfaq9.pod:1.1 docs/perl/5.10.1/perlfaq9.pod:1.2
--- docs/perl/5.10.1/perlfaq9.pod:1.1 Mon Mar 22 21:47:33 2010
+++ docs/perl/5.10.1/perlfaq9.pod Tue Apr 6 05:07:44 2010
@@ -503,9 +503,9 @@
=end original
-Use the libwww-perl distribution. The C<LWP::Simple> module can fetch web
-resources and give their content back to you as a string:
-(TBT)
+libwww-perl ディストリビューションを使ってください。
+C<LWP::Simple> はウェブ上のリソースをフェッチして、その内容を文字列として
+返します:
use LWP::Simple qw(get);
@@ -517,8 +517,7 @@
=end original
-It can also store the resource directly in a file:
-(TBT)
+リソースを直接ファイルに保存することもできます:
use LWP::Simple qw(getstore);
@@ -533,11 +532,11 @@
=end original
-If you need to do something more complicated, you can use
-C<LWP::UserAgent> module to create your own user-agent (e.g. browser)
-to get the job done. If you want to simulate an interactive web
-browser, you can use the C<WWW::Mechanize> module.
-(TBT)
+もっと複雑なことをする必要がある場合は、仕事を行うための独自の
+ユーザーエージェント(例えばブラウザ)を作るために
+C<LWP::UserAgent> モジュールを使えます。
+対話的なウェブブラウザをシミュレートしたい場合は、
+C<WWW::Mechanize> モジュールが使えます。
=head2 How do I automate an HTML form submission?