argra****@users*****
argra****@users*****
2010年 1月 30日 (土) 17:51:59 JST
Index: docs/perl/5.10.1/perlfunc.pod
diff -u docs/perl/5.10.1/perlfunc.pod:1.1 docs/perl/5.10.1/perlfunc.pod:1.2
--- docs/perl/5.10.1/perlfunc.pod:1.1 Wed Jan 13 04:53:34 2010
+++ docs/perl/5.10.1/perlfunc.pod Sat Jan 30 17:51:59 2010
@@ -3426,10 +3426,11 @@
=end original
-If you want to trap errors when loading an XS module, some problems with
-the binary interface (such as Perl version skew) may be fatal even with
-C<eval> unless C<$ENV{PERL_DL_NONLAZY}> is set. See L<perlrun>.
-(TBT)
+XS モジュールのロード中のエラーをトラップしたいなら、
+(Perl バージョンの違いのような) バイナリインターフェースに関する問題に
+ついては C<$ENV{PERL_DL_NONLAZY}> がセットされていない C<eval> でも
+致命的エラーになるかもしれません。
+L<perlrun> を参照してください。
=begin original
@@ -3560,10 +3561,8 @@
=end original
-The assignment to C<$@> occurs before restoration of localised variables,
-which means a temporary is required if you want to mask some but not all
-errors:
-(TBT)
+C<$@> への代入はローカル化された変数の復帰の前に起きるので、
+全てではなく一部だけののエラーをマスクしたい場合には一時変数が必要です:
# alter $@ on nefarious repugnancy only
{
@@ -5032,11 +5031,13 @@
=end original
-Note that C<glob> will split its arguments on whitespace, treating
-each segment as separate pattern. As such, C<glob('*.c *.h')> would
-match all files with a F<.c> or F<.h> extension. The expression
-C<glob('.* *')> would match all files in the current working directory.
-(TBT)
+Note that
+C<glob> は引数を空白で分割して、それぞれの部分を別々のパターンとして
+扱うことに注意してください。
+それにより、C<glob('*.c *.h')> は F<.c> と F<.h> の拡張子を持つ全ての
+ファイルにマッチングします。
+C<glob('.* *')> という式はカレントワーキングディレクトリの
+全てのファイルにマッチングします。
=begin original
@@ -11292,10 +11293,9 @@
=end original
-Returns C<1> for success. In the case of error, returns C<undef> if
-the first argument is not a valid filehandle, or returns C<0> and sets
-C<$!> for any other failure.
-(TBT)
+成功時には C<1> を返します。
+エラーの場合、最初の引数が有効なファイルハンドルでない場合は C<undef> を
+返し、その他のエラーの場合は C<0> を返してC<$!> をセットします。
=item sin EXPR
X<sin> X<sine> X<asin> X<arcsine>
@@ -11748,10 +11748,9 @@
=end original
-Warning: syntactical care is required when sorting the list returned from
-a function. If you want to sort the list returned by the function call
-C<find_records(@key)>, you can use:
-(TBT)
+警告: 関数からかえされたリストをソートするときには文法上の注意が必要です。
+関数呼び出し C<find_records(@key)> から返されたリストをソートしたい場合、
+以下のように出来ます:
@contact = sort { $a cmp $b } find_records @key;
@contact = sort +find_records(@key);
@@ -11765,9 +11764,8 @@
=end original
-If instead you want to sort the array @key with the comparison routine
-C<find_records()> then you can use:
-(TBT)
+一方、配列 @key を比較ルーチン C<find_records()> でソートしたい場合は、
+以下のように出来ます:
@contact = sort { find_records() } @key;
@contact = sort find_records(@key);
@@ -14086,9 +14084,8 @@
=end original
-If you'd like to make C<system> (and many other bits of Perl) die on error,
-have a look at the L<autodie> pragma.
-(TBT)
+もし C<system> (及び Perl のその他の多くの部分) でエラー時に
+die したいなら、L<autodie> プラグマを見てみてください。
=begin original
@@ -14125,10 +14122,9 @@
=end original
-If you'd like to manually inspect C<system>'s failure,
+C<system> の失敗を手動で検査したいなら、
以下のように C<$?> を調べることで、全ての失敗の可能性を
チェックできます:
-(TBT)
if ($? == -1) {
print "failed to execute: $!\n";
@@ -16126,7 +16122,6 @@
The transliteration operator. Same as C<tr///>. See
L<perlop/"Quote and Quote-like Operators">.
-(TBT)
=end original
@@ -16139,7 +16134,7 @@
=begin meta
Translate: 吉村 寿人 <JAE00****@nifty*****>
-Update: Kentaro Shirakata <argra****@ub32*****>
+Update: Kentaro Shirakata <argra****@ub32*****> (5.6.1-)
License: GPL or Artistic
=end meta