argra****@users*****
argra****@users*****
2012年 6月 8日 (金) 04:02:33 JST
Index: docs/perl/5.10.1/perl.pod diff -u docs/perl/5.10.1/perl.pod:1.1 docs/perl/5.10.1/perl.pod:1.2 --- docs/perl/5.10.1/perl.pod:1.1 Thu Jun 7 02:53:28 2012 +++ docs/perl/5.10.1/perl.pod Fri Jun 8 04:02:29 2012 @@ -1205,7 +1205,7 @@ =begin meta Translate: 吉村 寿人 <JAE00****@nifty*****> (5.000) -Update: Kentaro Shirakata <argra****@ub32*****> (5.10.0-) +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.10.0-) Status: completed =end meta Index: docs/perl/5.10.1/perldata.pod diff -u docs/perl/5.10.1/perldata.pod:1.1 docs/perl/5.10.1/perldata.pod:1.2 --- docs/perl/5.10.1/perldata.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perldata.pod Fri Jun 8 04:02:29 2012 @@ -1051,10 +1051,8 @@ 予約語とぶつかる危険があります。 そのような単語があった場合、C<use warnings> プラグマや B<-w> スイッチをつけることでPerl がそのような単語を指摘してくれます。 -Perl limits barewords (like -identifiers) to about 250 characters. Future versions of Perl are likely -to eliminate these arbitrary limitations. -(TBT) +Perl は (識別子のような) 裸の単語をおそよ 250 文字に制限しています。 +将来のバージョンの Perl はこれらの恣意的な制限は取り除かれるでしょう。 =begin original @@ -1990,8 +1988,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.8.8-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.8.8-) +Status: completed =end meta Index: docs/perl/5.10.1/perldebug.pod diff -u docs/perl/5.10.1/perldebug.pod:1.1 docs/perl/5.10.1/perldebug.pod:1.2 --- docs/perl/5.10.1/perldebug.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perldebug.pod Fri Jun 8 04:02:29 2012 @@ -2458,9 +2458,8 @@ =end original -Without Readline support you may see the symbols "^[[A", "^[[C", "^[[B", -"^[[D"", "^H", ... when using the arrow keys and/or the backspace key. -(TBT) +Readline 対応なしでは、矢印キーやバックスペースキーを使うと +"^[[A", "^[[C", "^[[B", "^[[D"", "^H" のような表示を見るかもしれません。 =head2 Editor Support for Debugging @@ -2570,9 +2569,8 @@ F<tmon.out> というファイルにダンプします。 Perl 標準配布に含まれている B<dprofpp> のようなツールが、この プロファイルの情報を解釈するのに使えます。 -More powerful profilers, -such as C<Devel::NYTProf> are available from the CPAN. -(TBT) +C<Devel::NYTProf> のような、より強力なプロファイラは CPAN から +利用可能です。 =head1 Debugging regular expressions X<regular expression, debugging> @@ -2720,8 +2718,8 @@ =begin meta Translate: 吉村 寿人 <JAE00****@nifty*****> (5.000) -Update: Kentaro Shirakata <argra****@ub32*****> (5.6.1-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.6.1-) +Status: completed =end meta Index: docs/perl/5.10.1/perlembed.pod diff -u docs/perl/5.10.1/perlembed.pod:1.1 docs/perl/5.10.1/perlembed.pod:1.2 --- docs/perl/5.10.1/perlembed.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlembed.pod Fri Jun 8 04:02:29 2012 @@ -491,10 +491,10 @@ PERL_SYS_INIT3() と PERL_SYS_TERM() のマクロは、Perl インタプリタを 実行するのに必要な C ランタイム環境の、システム固有の調整を提供します; -they should only be called once regardless of how many interpreters you -create or destroy. Call PERL_SYS_INIT3() before you create your first -interpreter, and PERL_SYS_TERM() after you free your last interpreter. -(TBT) +これらはインタプリタが何回作成または破壊されたかに関わらず、1 回だけ +呼び出されるべきです。 +最初のインタプリタを作る前に PERL_SYS_INIT3() を呼び出し、 +最後のインタプリタを解放した後に PERL_SYS_TERM() を呼び出します。 =begin original @@ -514,10 +514,8 @@ =end original -Also notice that no matter what arguments you pass to perl_parse(), -PERL_SYS_INIT3() must be invoked on the C main() argc, argv and env and -only once. -(TBT) +また、どんな引数を perl_parse() に渡したかに関わらず、PERL_SYS_INIT3() は +C main() argc, argv, env から一度だけ起動されなければなりません。 =begin original @@ -2138,8 +2136,8 @@ =begin meta Translate: KIMURA Koichi (5.005) -Update: Kentaro Shirakata <argra****@ub32*****> (5.10.0-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.10.0-) +Status: completed =end meta Index: docs/perl/5.10.1/perlhist.pod diff -u docs/perl/5.10.1/perlhist.pod:1.1 docs/perl/5.10.1/perlhist.pod:1.2 --- docs/perl/5.10.1/perlhist.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlhist.pod Fri Jun 8 04:02:29 2012 @@ -942,6 +942,8 @@ =head3 The patch-free era +(パッチなし時代) + =begin original In more modern times, named releases don't come as often, and as progress @@ -953,13 +955,14 @@ =end original -In more modern times, named releases don't come as often, and as progress -can be followed (nearly) instantly (with rsync, and since late 2008, git) -patches between versions are no longer provided. However, that doesn't -keep us from calculating how large a patch could have been. Which is -shown in the table below. Unless noted otherwise, the size mentioned is -the patch to bring version x.y.z to x.y.z+1. -(TBT) +より最近では、名前付きのリリースはそれほど頻繁ではなくなり、経過は +(rsync と、2008 年後半からは git で、ほぼ) すぐに追跡できるように +なったので、バージョン間のパッチは提供されなくなりました。 +しかし、これによってパッチがどれくらいの大きさになったかを計算し +続けなくなりました。 +これは以下の表に示されています。 +特に記されていない限り、記されているサイズはバージョン x.y.z から +x.y.z+1 へのパッチです。 Sarathy 5.6.1 2001-Apr-08 531 44 651 Rafael 5.6.2 2003-Nov-15 20 11 1819 @@ -1011,8 +1014,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.10.0-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.10.0-) +Status: completed =end meta Index: docs/perl/5.10.1/perlmod.pod diff -u docs/perl/5.10.1/perlmod.pod:1.1 docs/perl/5.10.1/perlmod.pod:1.2 --- docs/perl/5.10.1/perlmod.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlmod.pod Fri Jun 8 04:02:29 2012 @@ -609,6 +609,8 @@ =head2 BEGIN, UNITCHECK, CHECK, INIT and END X<BEGIN> X<UNITCHECK> X<CHECK> X<INIT> X<END> +(BEGIN, UNITCHECK, CHECK, INIT, END) + =begin original Five specially named code blocks are executed at the beginning and at @@ -781,11 +783,10 @@ =end original -The C<CHECK> and C<INIT> code blocks will not be executed inside a string -eval(), if that eval() happens after the end of the main compilation -phase; that can be a problem in mod_perl and other persistent environments -which use C<eval STRING> to load code at runtime. -(TBT) +C<CHECK> と C<INIT> のコードブロックは、eval() がメインコンパイルフェーズの +終わりの後に起こると、文字列 eval() の内側では実行されません: +これは mod_perl やその他の実行時にコードを読み込むのに C<eval STRING> を +使う永続環境では問題になることがあります。 =begin original @@ -1338,8 +1339,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.8.8-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.8.8-) +Status: completed =end meta Index: docs/perl/5.10.1/perlobj.pod diff -u docs/perl/5.10.1/perlobj.pod:1.1 docs/perl/5.10.1/perlobj.pod:1.2 --- docs/perl/5.10.1/perlobj.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlobj.pod Fri Jun 8 04:02:29 2012 @@ -722,13 +722,11 @@ =end original -If the right side of the arrow is a scalar containing a reference -to a subroutine, then this is equivalent to calling the referenced -subroutine directly with the class name or object on the left side -of the arrow as its first argument. No lookup is done and there is -no requirement that the subroutine be defined in any package related -to the class name or object on the left side of the arrow. -(TBT) +矢印の右側がサブルーチンへのリファレンスを含むスカラのとき、 +これは最初の引数として矢印の左側のクラス名やオブジェクトを指定して +リファレンスされたサブルーチンを直接呼び出すのと等価です。 +検索は行われず、サブルーチンは矢印の左側のクラス名やオブジェクトに関係する +パッケージに定義されている必要はありません。 =begin original @@ -736,8 +734,7 @@ =end original -For example, the following calls to $display are equivalent: -(TBT) +例えば、以下の $display の呼び出しは等価です: my $display = sub { my $self = shift; ... }; $fred->$display("Height", "Weight"); @@ -941,9 +938,9 @@ =end original -C<DOES> returns I<true> if its object claims to perform the role C<ROLE>. By -default, this is equivalent to C<isa>. -(TBT) +C<DOES> は、オブジェクトが C<ROLE> ロールを実行することを主張しているときに +I<真> を返します。 +デフォルトでは、これは C<isa> と等価です。 =item can(METHOD) X<can> @@ -1313,8 +1310,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.8.8-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.8.8-) +Status: completed =end meta Index: docs/perl/5.10.1/perlopentut.pod diff -u docs/perl/5.10.1/perlopentut.pod:1.1 docs/perl/5.10.1/perlopentut.pod:1.2 --- docs/perl/5.10.1/perlopentut.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlopentut.pod Fri Jun 8 04:02:29 2012 @@ -396,13 +396,12 @@ =end original -perl-5.6.x introduced a version of piped open that executes a process -based on its command line arguments without relying on the shell. (Similar -to the C<system(@LIST)> notation.) This is safer and faster than executing -a single argument pipe-command, but does not allow special shell -constructs. (It is also not supported on Microsoft Windows, Mac OS Classic -or RISC OS.) -(TBT) +perl-5.6.x から、シェルに頼らずにコマンドライン引数を基にしてプロセスを +実行するパイプオープンが導入されました。 +(C<system(@LIST)> 記法と同様です。) +これは 1 引数のパイプコマンドを実行するより安全で高速ですが、特殊シェル +構文は使えません。 +(また、Microsoft Windows, Mac OS Classic, RISC OS でも対応していません。) =begin original @@ -411,9 +410,7 @@ =end original -Here's an example of C<open '-|'>, which prints a random Unix -fortune cookie as uppercase: -(TBT) +以下は C<open '-|'> の例で、ランダムな Unix おみくじを大文字で表示します: my $collection = shift(@ARGV); open my $fortune, '-|', 'fortune', $collection @@ -430,8 +427,7 @@ =end original -And this C<open '|-'> pipes into lpr: -(TBT) +そしてこれは C<open '|-'> パイプを lpr に送ります: open my $printer, '|-', 'lpr', '-Plp1' or die "can't run lpr: $!"; @@ -2175,7 +2171,7 @@ =begin meta Translate: SHIRAKATA Kentaro <argra****@ub32*****> -Status: in progress +Status: completed =end meta Index: docs/perl/5.10.1/perlsec.pod diff -u docs/perl/5.10.1/perlsec.pod:1.1 docs/perl/5.10.1/perlsec.pod:1.2 --- docs/perl/5.10.1/perlsec.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlsec.pod Fri Jun 8 04:02:29 2012 @@ -36,6 +36,8 @@ =head1 SECURITY VULNERABILITY CONTACT INFORMATION +(セキュリティ脆弱性連絡窓口) + =begin original If you believe you have found a security vulnerability in Perl, please email @@ -46,12 +48,11 @@ =end original -If you believe you have found a security vulnerability in Perl, please email -perl****@perl***** with details. This points to a closed -subscription, unarchived mailing list. Please only use this address for -security issues in the Perl core, not for modules independently distributed on -CPAN. -(TBT) +Perl のセキュリティ脆弱性を発見したと確信したときには、どうか詳細を +perl****@perl***** にメールしてください。 +これはクローズドで、アーカイブが残らないメーリングリストになっています。 +Perl コアのセキュリティ問題についてだけこのアドレスを使って、独自に +CPAN で配布されているモジュールについては使わないでください。 =head1 SECURITY MECHANISMS AND CONCERNS @@ -896,10 +897,10 @@ =end original -B<The use of suidperl is considered deprecated>, and will be removed -in Perl 5.12.0. It is I<strongly> recommended that all code uses -the simplier and more secure C-wrappers described below. -(TBT) +B<suidperl の使用は非推奨と考えられていて>、Perl 5.12.0 では削除される +予定です。 +全てのコードはより単純でより安全な、後述する C ラッパを使うことを +I<強く> 勧めます。 =begin original @@ -980,9 +981,8 @@ リリース 5.6.1 以前の Perl では、F<suidperl> にあったバグによって、 セキュリティホールが持ち込まれる可能性がありました。 -The use of F<suidperl> is considered -deprecated, and will be removed in Perl 5.12.0. -(TBT) +F<suidperl> の使用は非推奨と考えられていて、Perl 5.12.0 で削除される +予定です。 =head2 Protecting Your Programs @@ -1173,19 +1173,16 @@ =end original Perl 5.8.1 ではランダムな攪拌はデフォルトで実行されていましたが、 -but as of -5.8.2 it is only used on individual hashes if the internals detect the -insertion of pathological data. -もし何らかの理由で古い振る舞いを -エミュレートしたい(and expose oneself to DoS attacks)場合は、 -保護を無効にするために PERL_HASH_SEED 環境変数に 0 (あるいは -ランダムではなく既知の攪拌に強制したい場合はその他の任意の整数) を -設定できます。 +5.8.2 からは内部が病的なデータの挿入を検出したときにのみ独立したハッシュに +使います。 +もし何らかの理由で古い振る舞いをエミュレートしたい(そして DoS 攻撃に +我が身を晒したい)場合は、保護を無効にするために PERL_HASH_SEED 環境変数に +0 (あるいはランダムではなく既知の攪拌に強制したい場合はその他の任意の +整数) を設定できます。 古い振る舞いをエミュレートしたい理由の可能性の一つとしては、新しい 振る舞いでは、Perl を何回も実行するとハッシュキーの順序が毎回異なるので、 これによって混乱するアプリケーションがあるからです (例えば Data::Dumper: 2 回実行した結果はもはや同一になりません)。 -(TBT) =begin original @@ -1289,8 +1286,8 @@ =begin meta Translate: KIMURA Koichi (5.005_03) -Update: Kentaro Shirakata <argra****@ub32*****> (5.6.1-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.6.1-) +Status: completed =end meta Index: docs/perl/5.10.1/perlthrtut.pod diff -u docs/perl/5.10.1/perlthrtut.pod:1.1 docs/perl/5.10.1/perlthrtut.pod:1.2 --- docs/perl/5.10.1/perlthrtut.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlthrtut.pod Fri Jun 8 04:02:29 2012 @@ -1978,10 +1978,9 @@ 20 行目で新しいスレッドの生成を行っています。 そのスレッドに、先に作ったキューへのリファレンスと発見された素数を渡します。 -In lines 21 -through 24, we check to make sure that our new thread got created, and -if not, we stop checking any remaining numbers in the queue. -(TBT) +21 行目から 24 行目で、新しいスレッドが作成されたことを確認して、 +もし作成されていないなら、キューの残りの番号に関するチェックを +中止します。 =begin original @@ -2008,9 +2007,8 @@ 一方、メインスレッドに戻ってみると、まずキューを生成し(33 行目)、 チェックするための 3 から 1000 までの全ての数と終端マークを キューに入れます。 -Then all we have to do to get the ball rolling is pass the queue -and the first prime to the C<check_num()> subroutine (line 34). -(TBT) +それからボールを転がすために必要なことは、キューと最初の素数を +C<check_num()> サブルーチンに渡すことです (line 34)。 =begin original @@ -2581,7 +2579,7 @@ Translate: まかまか <makam****@donzo*****> (-5.8.1) Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.10.0-) -Status: in progress +Status: completed =end meta Index: docs/perl/5.10.1/perltie.pod diff -u docs/perl/5.10.1/perltie.pod:1.1 docs/perl/5.10.1/perltie.pod:1.2 --- docs/perl/5.10.1/perltie.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perltie.pod Fri Jun 8 04:02:29 2012 @@ -1758,9 +1758,9 @@ =end original -C<say()> acts just like C<print()> except $\ will be localized to C<\n> so -you need do nothing special to handle C<say()> in C<PRINT()>. -(TBT) +C<say()> は C<print()> と同様に動作しますが、$\ は C<\n> に +ローカル化されるので C<PRINT()> の中で C<say()> を扱うために何も特別な +ことをする必要はありません。 =item PRINTF this, LIST X<PRINTF> @@ -2302,8 +2302,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.8.8-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.8.8-) +Status: completed =end meta Index: docs/perl/5.10.1/perltrap.pod diff -u docs/perl/5.10.1/perltrap.pod:1.1 docs/perl/5.10.1/perltrap.pod:1.2 --- docs/perl/5.10.1/perltrap.pod:1.1 Wed Jun 6 19:58:25 2012 +++ docs/perl/5.10.1/perltrap.pod Fri Jun 8 04:02:29 2012 @@ -2046,10 +2046,8 @@ =end original 左辺と右辺は両方とも演算子を取るようになりました。 -LHS is evaluated first -in perl4, second in perl5; this can affect the relationship -between side-effects in sub-expressions. -(TBT) +LHS は perl4 では最初に、perl5 では 2 番目に評価されます; これは +部分式の副作用の関係に影響を与えることがあります。 @arr = ( 'left', 'right' ); $a{shift @arr} = shift @arr; @@ -2999,11 +2997,10 @@ =end original -Existing dbm databases created under perl4 (or any other dbm/ndbm tool) -may cause the same script, run under perl5, to fail. +perl4 (またはその他の dbm/ndbm ツール)で作成された dbm は、perl5 で +このスクリプトの実行に失敗することがあります。 key/value のサイズに関する制限を超えたときに発生するエラーにより、 perl5 では即座にプログラムから exit します。 -(TBT) dbmopen(DB, "testdb",0600) || die "couldn't open db! $!"; $DB{'trap'} = "x" x 1024; # value too large for most dbm/ndbm @@ -3112,7 +3109,7 @@ Translate: KIMURA Koichi (5.005_03) Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.6.1-) -Status: in progress +Status: completed =end meta Index: docs/perl/5.10.1/perluniintro.pod diff -u docs/perl/5.10.1/perluniintro.pod:1.1 docs/perl/5.10.1/perluniintro.pod:1.2 --- docs/perl/5.10.1/perluniintro.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perluniintro.pod Fri Jun 8 04:02:29 2012 @@ -1525,11 +1525,10 @@ =end original -You shouldn't have to care. But you may, because currently the semantics of the -characters whose ordinals are in the range 128 to 255 is different depending on -whether the string they are contained within is in Unicode or not. -(See L<perlunicode>.) -(TBT) +気にする必要はないはずです。 +しかし、今のところ範囲 128 から 256 の文字の意味論は、文字列が Unicode で +保管されているかどうかによって異なるため、知りたいかもしれません。 +(L<perlunicode> を参照してください。) =begin original @@ -1537,8 +1536,7 @@ =end original -To determine if a string is in Unicode, use: -(TBT) +文字列が Unicode かどうかを決定するには、以下を使います: print utf8::is_utf8($string) ? 1 : 0, "\n"; @@ -1801,8 +1799,7 @@ =end original -You can find the bytes that make up a UTF-8 sequence with -(TBT) +UTF-8 シーケンスを作るバイト列は以下のようにして見つけられます @bytes = unpack("C*", $Unicode_string) @@ -1812,8 +1809,7 @@ =end original -and you can create well-formed Unicode with -(TBT) +整形された Unicode は以下のようにして作成できます $Unicode_string = pack("U*", 0xff, ...) @@ -2087,7 +2083,7 @@ Translate: ktats (5.8.1) Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.10.0-) -Status: in progress +Status: completed =end meta Index: docs/perl/5.10.1/perlxs.pod diff -u docs/perl/5.10.1/perlxs.pod:1.1 docs/perl/5.10.1/perlxs.pod:1.2 --- docs/perl/5.10.1/perlxs.pod:1.1 Thu Jun 7 03:04:52 2012 +++ docs/perl/5.10.1/perlxs.pod Fri Jun 8 04:02:29 2012 @@ -2556,12 +2556,11 @@ =end original -Note that if the version of the PM module is an NV (a floating point -number), it will be stringified with a possible loss of precision -(currently chopping to nine decimal places) so that it may not match -the version of the XS module anymore. Quoting the $VERSION declaration -to make it a string is recommended if long version numbers are used. -(TBT) +PM モジュールのバージョンが NV (浮動小数点数) の場合、文字列化するときに +精度が落ちる可能性がある (今のところ 9 桁で切っています) ので、 +XS モジュールのバージョンの一致しないかもしれません。 +長いバージョン番号を使うときは、$VERSION 宣言をクォートして文字列に +することを推奨します。 =head2 The PROTOTYPES: Keyword @@ -4423,8 +4422,8 @@ =begin meta Translate: KIMURA Koichi -Update: Kentaro Shirakata <argra****@ub32*****> (5.8.8-) -Status: in progress +Update: SHIRAKATA Kentaro <argra****@ub32*****> (5.8.8-) +Status: completed =end meta
