argra****@users*****
argra****@users*****
2010年 8月 7日 (土) 03:28:53 JST
Index: docs/perl/5.10.1/perlfaq.pod diff -u /dev/null docs/perl/5.10.1/perlfaq.pod:1.1 --- /dev/null Sat Aug 7 03:28:52 2010 +++ docs/perl/5.10.1/perlfaq.pod Sat Aug 7 03:28:52 2010 @@ -0,0 +1,3551 @@ + +=encoding euc-jp + +=head1 NAME + +=begin original + +perlfaq - frequently asked questions about Perl + +=end original + +perlfaq - Perl に関するよくある質問 + +=head1 DESCRIPTION + +=begin original + +The perlfaq comprises several documents that answer the most commonly +asked questions about Perl and Perl programming. It's divided by topic +into nine major sections outlined in this document. + +=end original + +perlfaq は、Perl と Perl プログラミングに関するもっともよくある質問へ +回答しているいくつかの文書から構成されています。 +これはこの文書に概説されている、9 個の大きな区分に分割されています。 + +=head2 Where to get the perlfaq + +(perlfaq を見るには) + +=begin original + +The perlfaq comes with the standard Perl distribution, so if you have Perl +you should have the perlfaq. You should also have the C<perldoc> tool +that lets you read the L<perlfaq>: + +=end original + +perlfaq は標準 Perl 配布に含まれているので、Perl があれば perlfaq も +あるはずです。 +L<perlfaq> を読むには C<perldoc> ツールもあります: + + $ perldoc perlfaq + +=begin original + +Besides your local system, you can find the perlfaq on the web, including +at http://perldoc.perl.org/ . + +=end original + +ローカルシステムの他に、http://perldoc.perl.org/ などの web にも +perlfaq はあります。 + +=begin original + +The perlfaq is an evolving document and you can read the latest version +at http://faq.perl.org/ . The perlfaq-workers periodically post extracts +of the latest perlfaq to comp.lang.perl.misc. + +=end original + +perlfaq は発展しつつある文書で、最新版は http://faq.perl.org/ で読めます。 +perlfaq-workers は定期的に最新の perlfaq の抜粋を comp.lang.perl.misc に +投稿します。 + +=begin original + +You can view the source tree at +https://github.com/briandfoy/perlfaq (which is outside of the +main Perl source tree). The git repository notes all changes to the FAQ +and holds the latest version of the working documents and may vary +significantly from the version distributed with the latest version of +Perl. Check the repository before sending your corrections. + +=end original + +ソースツリーは https://github.com/briandfoy/perlfaq で読めます +(これはメインの Perl ソースツリー外です)。 +git リポジトリは FAQ への全ての変更を記録して、作業中の最新のバージョンを +保持しているので、Perl の最新バージョンで配布されたものと大きく +異なっているかもしれません。 +修正箇所を送る前にリポジトリをチェックしてください。 + +=head2 How to contribute to the perlfaq + +(perlfaq への貢献方法) + +=begin original + +You can mail corrections, additions, and suggestions to +C<< <perlfaq-workers AT perl DOT org> >>. The perlfaq volunteers use this +address to coordinate their efforts and track the perlfaq development. +They appreciate your contributions to the FAQ but do not have time to +provide individual help, so don't use this address to ask FAQs. + +=end original + +追加、修正、提案は C<< <perlfaq-workers AT perl DOT org> >> に +メールしてください。 +perlfaq のボランティアはこのアドレスを、作業の協調と perlfaq 開発の +記録のために使っています。 +彼らはあなたの FAQ に対する貢献に感謝していますが、個々の助けを提供する +時間はないので、FAQ を尋ねるのにこのアドレスを使わないでください。 + +=begin original + +The perlfaq server posts extracts of the perlfaq to that newsgroup every +6 hours (or so), and the community of volunteers reviews and updates the +answers. If you'd like to help review and update the answers, check out +comp.lang.perl.misc. + +=end original + +perlfaq サーバは perlfaq の抜粋をニュースグループに 6 時間(ぐらい)毎に +投稿し、ボランティアのコミュニティが答えのレビューと更新を行います。 +もし答えのレビューと更新を手伝いたいなら、comp.lang.perl.misc を +見てください。 + +=begin original + +You can also fork the git repository for the perlfaq and send a pull +request so the main repository can pull your changes. The repository +is at: + +=end original + +また、perlfaq のための git リポジトリを fork して、pull 要求を出すことで +変更をメインリポジトリに取り込ませることもできます。 +リポジトリは以下の場所にあります: + + https://github.com/briandfoy/perlfaq + +=head2 What will happen if you mail your Perl programming problems to the authors? + +(Perl のプログラミングに関する問題を作者にメールするとどうなるの?) + +=begin original + +The perlfaq-workers like to keep all traffic on the perlfaq-workers list +so that everyone can see the work being done (and the work that needs to +be done). The mailing list serves as an official record. If you email the +authors or maintainers directly, you'll probably get a reply asking you +to post to the mailing list. If you don't get a reply, it probably means +that the person never saw the message or didn't have time to deal with +it. Posting to the list allows the volunteers with time to deal with it +when others are busy. + +=end original + +perlfaq-workers は、処理されつつある作業(および処理される必要がある +作業)が全員に見えるように、全てのトラフィックが perlfaq-workers リストに +流れることを好んでいます。 +このメーリングリストは公式な記録となります。 +もし作者やメンテナに直接メールすると、おそらく「メーリングリストに +投稿するように」という返信を受け取るでしょう。 +返信を受け取らない場合、それはおそらくその人がメッセージを読んでいないか、 +それを処理する時間がないことを意味します。 +メーリングリストに投稿することで、他の人が忙しい時に、時間のある人が +それを扱えるようになります。 + +=begin original + +If you have a question that isn't in the FAQ and you would like help with +it, try the resources in L<perlfaq2>. + +=end original + +もしこの FAQ にない質問があって、それに関する助けがほしいなら、 +L<perlfaq2> にあるリソースを試してみてください。 + +=head1 CREDITS + +=begin original + +Tom Christiansen wrote the original perlfaq then expanded it with the +help of Nat Torkington. The perlfaq-workers maintain current document +and the denizens of comp.lang.perl.misc regularly review and update the +FAQ. Several people have contributed answers, corrections, and comments, +and the perlfaq notes those contributions wherever appropriate. + +=end original + +Tom Christiansen が最初の perlfaq を書き、Nat Torkington の助けを借りて +拡張しました。 +perlfaq-workers が現在の文書を保守し、comp.lang.perl.misc の住人が定期的に +FAQ のレビューと更新を行っています。 +何人かの人々が回答、訂正、コメントを提供し、perlfaq は適切なものは何でも +これらの貢献を記録しています。 + +=head1 AUTHOR AND COPYRIGHT + +Copyright (c) 1997-2009 Tom Christiansen, Nathan Torkington, and +other authors as noted. All rights reserved. + +Tom Christainsen wrote the original version of this document. +brian d foy C<< <bdfoy****@cpan*****> >> wrote this version. See the +individual perlfaq documents for additional copyright information. + +This document is available under the same terms as Perl itself. Code +examples in all the perlfaq documents are in the public domain. Use +them as you see fit and at your own risk with no warranty from anyone. + +=head1 Table of Contents + +(目次) + +=over 4 + +=item perlfaq - this document + +(perlfaq - この文書) + +=item perlfaq1 - General Questions About Perl + +(perlfaq1 - Perl に関する一般的な質問) + +=item perlfaq2 - Obtaining and Learning about Perl + +(perlfaq2 - Perl の入手と学習) + +=item perlfaq3 - Programming Tools + +(perlfaq3 - プログラミングツール) + +=item perlfaq4 - Data Manipulation + +(perlfaq4 - データ操作) + +=item perlfaq5 - Files and Formats + +(perlfaq5 - ファイルとフォーマット) + +=item perlfaq6 - Regular Expressions + +(perlfaq6 - 正規表現) + +=item perlfaq7 - General Perl Language Issues + +(perlfaq7 - Perl 言語一般に関することがら) + +=item perlfaq8 - System Interaction + +(perlfaq8 - システムとの相互作用) + +=item perlfaq9 - Networking + +(perlfaq9 - ネットワーク) + +=back + +=head1 The Questions + +(質問) + +=head2 L<perlfaq1>: General Questions About Perl + +(L<perlfaq1>: Perl に関する一般的な質問) + +=begin original + +Very general, high-level questions about Perl. + +=end original + +Perl に関する非常に一般的で高レベルの質問。 + +=over 4 + +=item * + +=begin original + +What is Perl? + +=end original + +Perlってなんですか? + +=item * + +=begin original + +Who supports Perl? Who develops it? Why is it free? + +=end original + +だれが Perl をサポートしているのですか? 誰が開発しているのですか? なぜフリーなのでしょうか? + +=item * + +=begin original + +Which version of Perl should I use? + +=end original + +どのバージョンの Perl を使うべきなのでしょうか? + +=item * + +=begin original + +What are Perl 4, Perl 5, or Perl 6? + +=end original + +Perl 4, Perl 5, Perl 6 って何ですか? + +=item * + +=begin original + +What was Ponie? + +=end original + +Ponie って何ですか? + +=item * + +=begin original + +What is Perl 6? + +=end original + +Perl 6 ってなんですか? + +=item * + +=begin original + +How stable is Perl? + +=end original + +Perl はどのくらい安定しているのでしょうか? + +=item * + +=begin original + +Is Perl difficult to learn? + +=end original + +Perl は学ぶのが難しいのでしょうか? + +=item * + +=begin original + +How does Perl compare with other languages like Java, Python, REXX, Scheme, or Tcl? + +=end original + +Java, Python, REXX, Scheme, Tcl といった他の言語と比べて Perl はどうなんでしょうか? + +=item * + +=begin original + +Can I do [task] in Perl? + +=end original + +Perlで○○を行えますか? + +=item * + +=begin original + +When shouldn't I program in Perl? + +=end original + +Perl でプログラムするべきではないのはどういう場合ですか? + +=item * + +=begin original + +What's the difference between "perl" and "Perl"? + +=end original + +“perl”と“Perl”の違いはなんですか? + +=item * + +=begin original + +Is it a Perl program or a Perl script? + +=end original + +Perl プログラム、それとも Perl スクリプト? + +=item * + +=begin original + +What is a JAPH? + +=end original + +JAPH ってなんですか? + +=item * + +=begin original + +Where can I get a list of Larry Wall witticisms? + +=end original + +Larry Wall の「お言葉」(witticisms) はどこで手に入れられますか? + +=item * + +=begin original + +How can I convince others to use Perl? + +=end original + +他の人に、どうすれば Perl を使うように説得できるでしょうか? + +=back + + +=head2 L<perlfaq2>: Obtaining and Learning about Perl + +(L<perlfaq2>: Perl の入手と学習) + +=begin original + +Where to find source and documentation for Perl, support, and related matters. + +=end original + +Perl のソースや Perl に関するドキュメントが +手に入れられる場所に関する質問や、サポートとトレーニング、関連した +出来事に関する質問。 + +=over 4 + +=item * + +=begin original + +What machines support perl? Where do I get it? + +=end original + +perl はどんなマシンで動きますか? どこで入手できますか? + +=item * + +=begin original + +How can I get a binary version of perl? + +=end original + +バイナリ形式の perl はどうすれば入手できますか? + +=item * + +=begin original + +I don't have a C compiler. How can I build my own Perl interpreter? + +=end original + +私は C コンパイラーを持っていません。どうすれば自分用の Perl インタプリタをビルドできますか? + +=item * + +=begin original + +I copied the perl binary from one machine to another, but scripts don't work. + +=end original + +perl のバイナリをあるマシンから別のマシンにコピーしたのだけど、スクリプトが動きませんでした + +=item * + +=begin original + +I grabbed the sources and tried to compile but gdbm/dynamic loading/malloc/linking/... failed. How do I make it work? + +=end original + +ソースを取ってきてコンパイルしようとしたのだけど、gdbm/dynamic loading/malloc/linking/... failed. となってしまった。動くようにするにはどうすればいいの? + +=item * + +=begin original + +What modules and extensions are available for Perl? What is CPAN? What does CPAN/src/... mean? + +=end original + +Perlに使えるモジュールとかエクステンションってなんですか? CPAN ってなに? CPAN/src/... ってどういう意味なんですか? + +=item * + +=begin original + +Is there an ISO or ANSI certified version of Perl? + +=end original + +ISO や ANSI で認証された Perl はあるの? + +=item * + +=begin original + +Where can I get information on Perl? + +=end original + +Perl に関する情報はどこで手に入れられますか? + +=item * + +=begin original + +What are the Perl newsgroups on Usenet? Where do I post questions? + +=end original + +Usenet にある Perl のニューズグループはなに? 質問はどこに投稿するの? + +=item * + +=begin original + +Where should I post source code? + +=end original + +ソースコードはどこに投稿すべきなのですか? + +=item * + +=begin original + +Perl Books + +=end original + +Perl の書籍 + +=item * + +=begin original + +Which magazines have Perl content? + +=end original + +Perl 関連の雑誌は? + +=item * + +=begin original + +What mailing lists are there for Perl? + +=end original + +Perlのためのメイリングリストって? + +=item * + +=begin original + +Where are the archives for comp.lang.perl.misc? + +=end original + +comp.lang.perl.misc のアーカイブはどこにありますか? + +=item * + +=begin original + +Where can I buy a commercial version of perl? + +=end original + +どこで商用版 perl を買うことができますか？ + +=item * + +=begin original + +Where do I send bug reports? + +=end original + +バグレポートはどこへ送るの? + +=item * + +=begin original + +What is perl.com? Perl Mongers? pm.org? perl.org? cpan.org? + +=end original + +perl.com, Perl Mongers, pm.org, perl.org, cpan.org ってなんですか? + +=back + + +=head2 L<perlfaq3>: Programming Tools + +(L<perlfaq3>: プログラミングツール) + +=begin original + +Programmer tools and programming support. + +=end original + +プログラマーツールやプログラミングサポート。 + +=over 4 + +=item * + +=begin original + +How do I do (anything)? + +=end original + +○○をするにはどうすればいいの? + +=item * + +=begin original + +How can I use Perl interactively? + +=end original + +対話的に Perl を使うには? + +=item * + +=begin original + +Is there a Perl shell? + +=end original + +Perl シェルはありますか? + +=item * + +=begin original + +How do I find which modules are installed on my system? + +=end original + +自分のシステムに入っているモジュールを知るには? + +=item * + +=begin original + +How do I debug my Perl programs? + +=end original + +私の Perl プログラムをデバッグするには? + +=item * + +=begin original + +How do I profile my Perl programs? + +=end original + +私の Perl プログラムのプロファイルを取るには? + +=item * + +=begin original + +How do I cross-reference my Perl programs? + +=end original + +私の Perl プログラムのクロスリファレンスをとるには? + +=item * + +=begin original + +Is there a pretty-printer (formatter) for Perl? + +=end original + +Perl 用のプリティプリンター(フォーマッター)はありますか? + +=item * + +=begin original + +Is there a ctags for Perl? + +=end original + +Perl 用の ctags はありますか? + +=item * + +=begin original + +Is there an IDE or Windows Perl Editor? + +=end original + +Perl の統合開発環境とか Windows Perl Editor はありますか? + +=item * + +=begin original + +Where can I get Perl macros for vi? + +=end original + +vi 用の Perl マクロはどこで入手できますか? + +=item * + +=begin original + +Where can I get perl-mode for emacs? + +=end original + +emacs の perl-mode はどこで入手できますか? + +=item * + +=begin original + +How can I use curses with Perl? + +=end original + +Perl で curses を使うには? + +=item * + +=begin original + +How can I write a GUI (X, Tk, Gtk, etc.) in Perl? + +=end original + +Perl で GUI (X, Tk, Gtk など) を書くには? + +=item * + +=begin original + +How can I make my Perl program run faster? + +=end original + +私の Perl プログラムをもっと速くするには? + +=item * + +=begin original + +How can I make my Perl program take less memory? + +=end original + +私の Perl プログラムのメモリ消費量を少なくするには? + +=item * + +=begin original + +Is it safe to return a reference to local or lexical data? + +=end original + +ローカルやレキシカルなデータへのポインターを返すことは安全ですか? + +=item * + +=begin original + +How can I free an array or hash so my program shrinks? + +=end original + +配列やハッシュを解放して私のプログラムを小さくするには? + +=item * + +=begin original + +How can I make my CGI script more efficient? + +=end original + +私の CGI スクリプトをもっと効率よくするには? + +=item * + +=begin original + +How can I hide the source for my Perl program? + +=end original + +私の Perl プログラムのソースを隠すには? + +=item * + +=begin original + +How can I compile my Perl program into byte code or C? + +=end original + +私の Perl プログラムをバイトコードや C へコンパイルするには? + +=item * + +=begin original + +How can I get C<#!perl> to work on [MS-DOS,NT,...]? + +=end original + +MS-DOS, NT, etc で '#!perl' が動作するようにするには? + +=item * + +=begin original + +Can I write useful Perl programs on the command line? + +=end original + +コマンドライン上で便利な Perl プログラムを書けますか? + +=item * + +=begin original + +Why don't Perl one-liners work on my DOS/Mac/VMS system? + +=end original + +なぜ私の DOS/Mac/VMS システムでは一行野郎は動かないのでしょうか? + +=item * + +=begin original + +Where can I learn about CGI or Web programming in Perl? + +=end original + +Perl による CGI や Web プログラミングについてどこで学べますか? + +=item * + +=begin original + +Where can I learn about object-oriented Perl programming? + +=end original + +オブジェクト指向の Perl プログラミングはどこで学べますか? + +=item * + +=begin original + +Where can I learn about linking C with Perl? + +=end original + +C と Perl のリンクについてはどこで学べますか? + +=item * + +=begin original + +I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong? + +=end original + +perlembed や perlguts なんかを読んだのだけど、私の C プログラムに perl を組み込めません。何が悪いのでしょうか? + +=item * + +=begin original + +When I tried to run my script, I got this message. What does it mean? + +=end original + +私のスクリプトを実行したとき、こんなメッセージを受け取りました。これって何を意味しているのでしょうか? + +=item * + +=begin original + +What's MakeMaker? + +=end original + +MakeMaker ってなんですか? + +=back + + +=head2 L<perlfaq4>: Data Manipulation + +(L<perlfaq4>: データ操作) + +=begin original + +Manipulating numbers, dates, strings, arrays, hashes, and miscellaneous data issues. + +=end original + +数値、日付、文字列、配列、ハッシュその他の +データの取り扱い。 + +=over 4 + +=item * + +=begin original + +Why am I getting long decimals (eg, 19.9499999999999) instead of the numbers I should be getting (eg, 19.95)? + +=end original + +なぜ 19.95 のような数字ではなく、19.9499999999999 のような長い数字が出てきたんでしょうか? + +=item * + +=begin original + +Why is int() broken? + +=end original + +なぜ int() は壊れているのでしょう? + +=item * + +=begin original + +Why isn't my octal data interpreted correctly? + +=end original + +なぜ私の 8 進データは正しく解釈されないのでしょうか? + +=item * + +=begin original + +Does Perl have a round() function? What about ceil() and floor()? Trig functions? + +=end original + +Perl には丸め関数がありますか? ceil() と floor() とは何ですか? 三角関数は? + +=item * + +=begin original + +How do I convert between numeric representations/bases/radixes? + +=end original + +数値表現や基底や基数を変換するには? + +=item * + +=begin original + +Why doesn't & work the way I want it to? + +=end original + +なぜ & は私の思った通りに動作しないのでしょうか? + +=item * + +=begin original + +How do I multiply matrices? + +=end original + +行列の積を計算するには? + +=item * + +=begin original + +How do I perform an operation on a series of integers? + +=end original + +整数値の並びに対してある操作を実行するには? + +=item * + +=begin original + +How can I output Roman numerals? + +=end original + +ローマ数字を出力するには? + +=item * + +=begin original + +Why aren't my random numbers random? + +=end original + +なぜ私の乱数はランダムでないの? + +=item * + +=begin original + +How do I get a random number between X and Y? + +=end original + +X と Y の間の乱数を得るには? + +=item * + +=begin original + +How do I find the day or week of the year? + +=end original + +その年の何日目であるかを知るには? + +=item * + +=begin original + +How do I find the current century or millennium? + +=end original + +現在の世紀や千年紀を知るには? + +=item * + +=begin original + +How can I compare two dates and find the difference? + +=end original + +二つの日付文字列を比較するには? + +=item * + +=begin original + +How can I take a string and turn it into epoch seconds? + +=end original + +文字列を受け取って、それを紀元からの経過秒数に変換するには? + +=item * + +=begin original + +How can I find the Julian Day? + +=end original + +ユリウス日を求めるには? + +=item * + +=begin original + +How do I find yesterday's date? + +=end original + +昨日の日付を得るには? + +=item * + +=begin original + +Does Perl have a Year 2000 problem? Is Perl Y2K compliant? + +=end original + +Perl には 2000 年問題があるのですか? Perl は 2000 年対応ですか? + +=item * + +=begin original + +How do I validate input? + +=end original + +入力を検査するには? + +=item * + +=begin original + +How do I unescape a string? + +=end original + +文字列のアンエスケープ (unescape)をするには? + +=item * + +=begin original + +How do I remove consecutive pairs of characters? + +=end original + +キャラクタの連続した組を取り除くには? + +=item * + +=begin original + +How do I expand function calls in a string? + +=end original + +文字列中にある関数呼び出しを展開するには? + +=item * + +=begin original + +How do I find matching/nesting anything? + +=end original + +何かがマッチしている/ネストしているということを検出するには? + +=item * + +=begin original + +How do I reverse a string? + +=end original + +文字列をひっくり返すには? + +=item * + +=begin original + +How do I expand tabs in a string? + +=end original + +文字列中にあるタブを展開するには? + +=item * + +=begin original + +How do I reformat a paragraph? + +=end original + +段落を整形するには? + +=item * + +=begin original + +How can I access or change N characters of a string? + +=end original + +文字列の最初の N 文字にアクセスしたり、それを変更するには? + +=item * + +=begin original + +How do I change the Nth occurrence of something? + +=end original + +何かの N 番目のものを変更するには? + +=item * + +=begin original + +How can I count the number of occurrences of a substring within a string? + +=end original + +ある文字列の中に存在する部分文字列が何個あるのかを数えるには? + +=item * + +=begin original + +How do I capitalize all the words on one line? + +=end original + +一行にあるすべての単語をキャピタライズするには? + +=item * + +=begin original + +How can I split a [character] delimited string except when inside [character]? + +=end original + +(とある文字)の内側にある時を除き、(とある文字)で終端されている文字列を分割するには? + +=item * + +=begin original + +How do I strip blank space from the beginning/end of a string? + +=end original + +文字列の先頭や末尾にある空白を剥ぎ取るには? + +=item * + +=begin original + +How do I pad a string with blanks or pad a number with zeroes? + +=end original + +文字列に空白をパッディングしたり、数値にゼロをパッディングしたりするには? + +=item * + +=begin original + +How do I extract selected columns from a string? + +=end original + +文字列から選択されたカラムを取り出すには? + +=item * + +=begin original + +How do I find the soundex value of a string? + +=end original + +文字列の soundex 値を見つけるには? + +=item * + +=begin original + +How can I expand variables in text strings? + +=end original + +テキスト文字列の中にある変数を展開するには? + +=item * + +=begin original + +What's wrong with always quoting "$vars"? + +=end original + +常にクォーティング "$vars" することの何が悪いの? + +=item * + +=begin original + +Why don't my E<lt>E<lt>HERE documents work? + +=end original + +なぜ私の E<lt>E<lt>HERE ドキュメントがうまく動かないのでしょう? + +=item * + +=begin original + +What is the difference between a list and an array? + +=end original + +リストと配列の差とはなんですか? + +=item * + +=begin original + +What is the difference between $array[1] and @array[1]? + +=end original + +$array[1] と @array[1] との間の違いはなんですか? + +=item * + +=begin original + +How can I remove duplicate elements from a list or array? + +=end original + +配列やリストにある重複した要素を削除するには? + +=item * + +=begin original + +How can I tell whether a certain element is contained in a list or array? + +=end original + +リストや配列の内容にある特定の要素があるかどうかを確かめるには? + +=item * + +=begin original + +How do I compute the difference of two arrays? How do I compute the intersection of two arrays? + +=end original + +二つの配列の差(difference)を求めるには? 二つの配列の共通要素(inter section)を求めるには? + +=item * + +=begin original + +How do I test whether two arrays or hashes are equal? + +=end original + +二つの配列や二つのハッシュが等しいかどうかを検査するには? + +=item * + +=begin original + +How do I find the first array element for which a condition is true? + +=end original + +ある条件が真となる最初の配列要素を見つけだすには? + +=item * + +=begin original + +How do I handle linked lists? + +=end original + +リンク付きリストを扱うには? + +=item * + +=begin original + +How do I handle circular lists? + +=end original + +循環リストを扱うには? + +=item * + +=begin original + +How do I shuffle an array randomly? + +=end original + +配列をランダムにかき混ぜるには? + +=item * + +=begin original + +How do I process/modify each element of an array? + +=end original + +配列の各要素に対する処理や、変更を行うには? + +=item * + +=begin original + +How do I select a random element from an array? + +=end original + +ある配列からランダムに要素を選択するには? + +=item * + +=begin original + +How do I permute N elements of a list? + +=end original + +N 要素を持つリストの順列(permute)を求めるには? + +=item * + +=begin original + +How do I sort an array by (anything)? + +=end original + +(なにか)で配列をソートするには? + +=item * + +=begin original + +How do I manipulate arrays of bits? + +=end original + +ビット配列を扱うには? + +=item * + +=begin original + +Why does defined() return true on empty arrays and hashes? + +=end original + +なぜ空の配列やハッシュに defined() を使ったときに真が返ってくるのでしょう? + +=item * + +=begin original + +How do I process an entire hash? + +=end original + +ハッシュ全体を処理するには? + +=item * + +=begin original + +How do I merge two hashes? + +=end original + +二つのハッシュをマージするには? + +=item * + +=begin original + +What happens if I add or remove keys from a hash while iterating over it? + +=end original + +ハッシュに対して反復操作を行っているときにキーの追加や削除をすると何が起きますか? + +=item * + +=begin original + +How do I look up a hash element by value? + +=end original + +ハッシュの要素をその値で検索するには? + +=item * + +=begin original + +How can I know how many entries are in a hash? + +=end original + +ハッシュにどれくらいの要素があるのを知るには? + +=item * + +=begin original + +How do I sort a hash (optionally by value instead of key)? + +=end original + +ハッシュを(キーではなく値で)ソートするには? + +=item * + +=begin original + +How can I always keep my hash sorted? + +=end original + +私のハッシュを常にソートされた状態にしておくには? + +=item * + +=begin original + +What's the difference between "delete" and "undef" with hashes? + +=end original + +ハッシュに対する "delete" と "undef"との間の違いは? + +=item * + +=begin original + +Why don't my tied hashes make the defined/exists distinction? + +=end original + +なぜわたしの tie されたハッシュは defined と exists を区別しないのでしょうか? + +=item * + +=begin original + +How do I reset an each() operation part-way through? + +=end original + +each() 操作の途中でリセットしてしまうには? + +=item * + +=begin original + +How can I get the unique keys from two hashes? + +=end original + +二つのハッシュからユニークなキーを取りだすには? + +=item * + +=begin original + +How can I store a multidimensional array in a DBM file? + +=end original + +DBM ファイルに多次元配列を格納するには? + +=item * + +=begin original + +How can I make my hash remember the order I put elements into it? + +=end original + +わたしのハッシュが格納した順番を覚えておくようにするには? + +=item * + +=begin original + +Why does passing a subroutine an undefined element in a hash create it? + +=end original + +なぜあるハッシュの未定義要素をサブルーチンに渡すとそれを作成するのでしょうか? + +=item * + +=begin original + +How can I make the Perl equivalent of a C structure/C++ class/hash or array of hashes or arrays? + +=end original + +C の構造体/C++ のクラスのハッシュ、配列のハッシュ、配列と等価なものを Perl で作成するには? + +=item * + +=begin original + +How can I use a reference as a hash key? + +=end original + +ハッシュのキーとしてリファレンスを使うには? + +=item * + +=begin original + +How do I handle binary data correctly? + +=end original + +バイナリデータを正しく扱うには? + +=item * + +=begin original + +How do I determine whether a scalar is a number/whole/integer/float? + +=end original + +あるスカラ値が数値/整数/浮動小数点数かどうかを決定するには? + +=item * + +=begin original + +How do I keep persistent data across program calls? + +=end original + +プログラムの呼び出しの間に、データ構造を永続的に保持するには? + +=item * + +=begin original + +How do I print out or copy a recursive data structure? + +=end original + +再帰的なデータ構造を出力したりコピーするには? + +=item * + +=begin original + +How do I define methods for every class/object? + +=end original + +すべてのクラス/オブジェクトのためのメソッドを定義するには? + +=item * + +=begin original + +How do I verify a credit card checksum? + +=end original + +クレジットカードのチェックサムを検査するには? + +=item * + +=begin original + +How do I pack arrays of doubles or floats for XS code? + +=end original + +XSプログラムのために倍精度実数や単精度実数の配列を pack するには? + +=back + + +=head2 L<perlfaq5>: Files and Formats + +(L<perlfaq5>: ファイルとフォーマット) + +=begin original + +I/O and the "f" issues: filehandles, flushing, formats, and footers. + +=end original + +入出力と“f”に関する事柄: ファイルハンドル +(filehandle)、フラッシング(flushing)、フォーマット(format)、 +フッター(footer)。 + +=over 4 + +=item * + +=begin original + +How do I flush/unbuffer an output filehandle? Why must I do this? + +=end original + +出力ファイルハンドルを flush/unbufferするには? なぜ私はこれをやらなければならないの? + +=item * + +=begin original + +How do I change, delete, or insert a line in a file, or append to the beginning of a file? + +=end original + +ファイルの一行を変更する/ファイルのある行を削除する/ファイルの中程で一行挿入する/ファイルの先頭に追加するには? + +=item * + +=begin original + +How do I count the number of lines in a file? + +=end original + +あるファイルの行数を数えるには? + +=item * + +=begin original + +How can I use Perl's C<-i> option from within a program? + +=end original + +プログラム内から Perl の C<-i> オプションを使うには? + +=item * + +=begin original + +How can I copy a file? + +=end original + +ファイルをコピーするには? + +=item * + +=begin original + +How do I make a temporary file name? + +=end original + +一時ファイルの名前を作り出すには? + +=item * + +=begin original + +How can I manipulate fixed-record-length files? + +=end original + +固定長レコードのファイルを操作するには? + +=item * + +=begin original + +How can I make a filehandle local to a subroutine? How do I pass filehandles between subroutines? How do I make an array of filehandles? + +=end original + +ファイルハンドルをサブルーチンに局所化するには? サブルーチンにファイルハンドルを渡すには? ファイルハンドルの配列を作るには? + +=item * + +=begin original + +How can I use a filehandle indirectly? + +=end original + +ファイルハンドルを間接的に扱うには? + +=item * + +=begin original + +How can I set up a footer format to be used with write()? + +=end original + +write()と一緒に使うフッターのフォーマットのセットアップをする方法は? + +=item * + +=begin original + +How can I write() into a string? + +=end original + +文字列に対して write() するには? + +=item * + +=begin original + +How can I open a filehandle to a string? + +=end original + +ファイルハンドルを文字列としてオープンするには? + +=item * + +=begin original + +How can I output my numbers with commas added? + +=end original + +出力する数字にカンマを付加するには? + +=item * + +=begin original + +How can I translate tildes (~) in a filename? + +=end original + +ファイル名の中にあるチルダ (~) を変換するには? + +=item * + +=begin original + +How come when I open a file read-write it wipes it out? + +=end original + +ファイルを読み書きモードでオープンしたときに内容をクリアしてしまうのはなぜ? + +=item * + +=begin original + +Why do I sometimes get an "Argument list too long" when I use E<lt>*E<gt>? + +=end original + +なぜ E<lt>*E<gt> を使ったときに "Argument list too long" (引数リストが長すぎる)となることがあるの? + +=item * + +=begin original + +Is there a leak/bug in glob()? + +=end original + +glob()に leak/bug はあるの? + +=item * + +=begin original + +How can I open a file with a leading ">" or trailing blanks? + +=end original + +名前の先頭に">"があったり末尾に空白があるようなファイルをオープンするには? + +=item * + +=begin original + +How can I reliably rename a file? + +=end original + +信頼性のあるファイルのリネームをするには? + +=item * + +=begin original + +How can I lock a file? + +=end original + +ファイルをロックするには? + +=item * + +=begin original + +Why can't I just open(FH, "E<gt>file.lock")? + +=end original + +なぜ単に open(FH, "E<gt>file.lock")とできないの? + +=item * + +=begin original + +I still don't get locking. I just want to increment the number in the file. How can I do this? + +=end original + +まだロックができません。ただ単にファイルにある数値をインクリメントしたいだけなんだけど。どうすればいいの? + +=item * + +=begin original + +All I want to do is append a small amount of text to the end of a file. Do I still have to use locking? + +=end original + +ファイルの末尾にちょっとしたテキストを追加したいだけなんです。それでもロックが必要なの? + +=item * + +=begin original + +How do I randomly update a binary file? + +=end original + +バイナリファイルをランダムに更新するには? + +=item * + +=begin original + +How do I get a file's timestamp in perl? + +=end original + +perl でファイルのタイムスタンプを取得するには? + +=item * + +=begin original + +How do I set a file's timestamp in perl? + +=end original + +perl でファイルのタイムスタンプを設定するには? + +=item * + +=begin original + +How do I print to more than one file at once? + +=end original + +複数のファイルを一度に表示するには? + +=item * + +=begin original + +How can I read in an entire file all at once? + +=end original + +ファイル全体を一度に読みこむには? + +=item * + +=begin original + +How can I read in a file by paragraphs? + +=end original + +ファイルをパラグラフ毎に読み込むには? + +=item * + +=begin original + +How can I read a single character from a file? From the keyboard? + +=end original + +ファイルから 1 文字だけ読み出すには? キーボードからは? + +=item * + +=begin original + +How can I tell whether there's a character waiting on a filehandle? + +=end original + +あるファイルハンドルが読み込み待ちの文字を待っているかどうかを知るには? + +=item * + +=begin original + +How do I do a C<tail -f> in perl? + +=end original + +perlで C<tail -f> をするには? + +=item * + +=begin original + +How do I dup() a filehandle in Perl? + +=end original + +Perl でファイルハンドルの dup() をするには? + +=item * + +=begin original + +How do I close a file descriptor by number? + +=end original + +数値によるファイル記述子をクローズするには? + +=item * + +=begin original + +Why can't I use "C:\temp\foo" in DOS paths? Why doesn't `C:\temp\foo.exe` work? + +=end original + +なぜ DOS のパスで "C:\temp\foo" が使えないの? なぜ `C:\temp\foo.exe` はうまくいかないの? + +=item * + +=begin original + +Why doesn't glob("*.*") get all the files? + +=end original + +なぜ glob("*.*") で全てのファイルを得られないの? + +=item * + +=begin original + +Why does Perl let me delete read-only files? Why does C<-i> clobber protected files? Isn't this a bug in Perl? + +=end original + +なぜ Perl は読みとり専用ファイルを削除してしまうの? なぜC<-i> clobberはファイルをプロテクトするの? これは Perl のバグじゃないの? + +=item * + +=begin original + +How do I select a random line from a file? + +=end original + +あるファイルからランダムに行を選択するには? + +=item * + +=begin original + +Why do I get weird spaces when I print an array of lines? + +=end original + +行の配列を出力したときになぜ余計なスペースがつくの? + +=item * + +=begin original + +How do I traverse a directory tree? + +=end original + +ディレクトリツリーを辿るには? + +=item * + +=begin original + +How do I delete a directory tree? + +=end original + +ディレクトリツリーを削除するには? + +=item * + +=begin original + +How do I copy an entire directory? + +=end original + +ディレクトリ全体をコピーするには? + +=back + + +=head2 L<perlfaq6>: Regular Expressions + +(L<perlfaq6>: 正規表現) + +=begin original + +This section is surprisingly small because the rest of the FAQ is littered with answers involving regular expressions. For example, decoding a URL and checking whether something is a number are handled with regular expressions, but those answers are found elsewhere in this document (in L<perlfaq9>: "How do I decode or create those %-encodings on the web" and L<perlfaq4>: "How do I determine whether a scalar is a number/whole/integer/float", to be precise). + +=end original + +この章は驚くほど小さくなっています。 +なぜならFAQの残りの部分は +正規表現を伴った回答と一緒にあちこちに散在しているからです。 +たとえばURLをデコードするとかあるものが数値かどうか確認することは +正規表現を使って処理されますが、この回答はこの資料のあらゆる所で +見つけることができます(正確には L<perlfaq9>: +"How do I decode or create those %-encodings on the web" と +L<perlfaq4>: "How do I determine whether a scalar is +a number/whole/integer/float")。 + +=over 4 + +=item * + +=begin original + +How can I hope to use regular expressions without creating illegible and unmaintainable code? + +=end original + +判読し難い、保守できないようなものにすることなく正規表現を使うには? + +=item * + +=begin original + +I'm having trouble matching over more than one line. What's wrong? + +=end original + +二行以上に対するマッチングでトラブルがありました。何が悪いのでしょう? + +=item * + +=begin original + +How can I pull out lines between two patterns that are themselves on different lines? + +=end original + +異なる行にある二つのパターンに挟まれている行を取り出すのはどうやればできますか? + +=item * + +=begin original + +How do I match XML, HTML, or other nasty, ugly things with a regex? + +=end original + +XML, HTML あるいはその他の扱いにくくて不細工なものを正規表現でマッチングさせるには? + +=item * + +=begin original + +I put a regular expression into $/ but it didn't work. What's wrong? + +=end original + +$/ に正規表現を入れたけど動きません。何が悪いの? + +=item * + +=begin original + +How do I substitute case insensitively on the LHS while preserving case on the RHS? + +=end original + +演算子の左辺では大小文字を無視して、演算子の右辺では元の大小文字を保存しておくような置換をするには? + +=item * + +=begin original + +How can I make C<\w> match national character sets? + +=end original + +C<\w> がローカルな文字セットにマッチするようにするには? + +=item * + +=begin original + +How can I match a locale-smart version of C</[a-zA-Z]/>? + +=end original + +C</[a-zA-Z]/>の locale-smart なバージョンでマッチさせるには? + +=item * + +=begin original + +How can I quote a variable to use in a regex? + +=end original + +正規表現の中で使う変数をクォートするには? + +=item * + +=begin original + +What is C</o> really for? + +=end original + +C</o> は実際なんのためのものなのですか? + +=item * + +=begin original + +How do I use a regular expression to strip C style comments from a file? + +=end original + +ファイルから、C 形式のコメントを剥ぎ取る(strip)するにはどのように正規表現を使えば良いのでしょうか? + +=item * + +=begin original + +Can I use Perl regular expressions to match balanced text? + +=end original + +Perl の正規表現をバランスされたテキストのマッチングに使えますか? + +=item * + +=begin original + +What does it mean that regexes are greedy? How can I get around it? + +=end original + +正規表現が貪欲(greedy)であるとはどういうことですか? + +=item * + +=begin original + +How do I process each word on each line? + +=end original + +各行の単語単位に処理をするにはどうすれば良いですか? + +=item * + +=begin original + +How can I print out a word-frequency or line-frequency summary? + +=end original + +語の出現頻度や行の出現頻度のまとめを出力するには? + +=item * + +=begin original + +How can I do approximate matching? + +=end original + +曖昧なマッチング (approximate matching) はどうやればできますか? + +=item * + +=begin original + +How do I efficiently match many regular expressions at once? + +=end original + +たくさんの正規表現を一度に効率良くマッチングするには? + +=item * + +=begin original + +Why don't word-boundary searches with C<\b> work for me? + +=end original + +なぜ C<\b> を使った単語境界の検索がうまく行かないのでしょうか? + +=item * + +=begin original + +Why does using $&, $`, or $' slow my program down? + +=end original + +なぜ $&, $`, $' を使うとプログラムが遅くなるの? + +=item * + +=begin original + +What good is C<\G> in a regular expression? + +=end original + +正規表現の中で C<\G> を使うと何が良いのですか? + +=item * + +=begin original + +Are Perl regexes DFAs or NFAs? Are they POSIX compliant? + +=end original + +Perl の正規表現ルーチンは DFA ですか NFA ですか? また、それは POSIX に従ってますか? + +=item * + +=begin original + +What's wrong with using grep in a void context? + +=end original + +無効コンテキストで grep を使うことのどこが間違っているのでしょうか? + +=item * + +=begin original + +How can I match strings with multibyte characters? + +=end original + +マルチバイト文字を含む文字列をマッチングさせるには? + +=item * + +=begin original + +How do I match a regular expression that's in a variable? + +=end original + +変数に入っている正規表現でマッチングを行うには? + +=back + + +=head2 L<perlfaq7>: General Perl Language Issues + +(L<perlfaq7>: Perl 言語一般に関することがら) + +=begin original + +General Perl language issues that don't clearly fit into any of the other sections. + +=end original + +他のセクションにはきっちりとあてはまらないような +Perl 言語に関する一般的な事柄。 + +=over 4 + +=item * + +=begin original + +Can I get a BNF/yacc/RE for the Perl language? + +=end original + +Perl のための BNF/yacc/RE は入手できますか? + +=item * + +=begin original + +What are all these $@%&* punctuation signs, and how do I know when to use them? + +=end original + +$@%&* のマークはなんですか? これらをいつ使えばいいのかを知るにはどうすればいいですか? + +=item * + +=begin original + +Do I always/never have to quote my strings or use semicolons and commas? + +=end original + +文字列では常にクォートする/決してクォートしない必要があるのでしょうか? また、セミコロンやカンマについては? + +=item * + +=begin original + +How do I skip some return values? + +=end original + +戻り値の一部をスキップするには? + +=item * + +=begin original + +How do I temporarily block warnings? + +=end original + +一時的に警告をブロックするには? + +=item * + +=begin original + +What's an extension? + +=end original + +エクステンションてなんですか? + +=item * + +=begin original + +Why do Perl operators have different precedence than C operators? + +=end original + +なぜ Perl の演算子は C の演算子とは異なった優先順位を持っているのでしょうか? + +=item * + +=begin original + +How do I declare/create a structure? + +=end original + +構造体を宣言したり生成するには? + +=item * + +=begin original + +How do I create a module? + +=end original + +モジュールを作成するには? + +=item * + +=begin original + +How do I adopt or take over a module already on CPAN? + +=end original + +すでに CPAN にあるモジュールを引き継ぐには? + +=item * + +=begin original + +How do I create a class? + +=end original + +クラスを作るには? + +=item * + +=begin original + +How can I tell if a variable is tainted? + +=end original + +変数が汚染されているかどうかを確かめるには? + +=item * + +=begin original + +What's a closure? + +=end original + +クロージャ(closure)ってなんですか? + +=item * + +=begin original + +What is variable suicide and how can I prevent it? + +=end original + +変数の自殺(variable suicide)って何で、それをどうすれば防げますか? + +=item * + +=begin original + +How can I pass/return a {Function, FileHandle, Array, Hash, Method, Regex}? + +=end original + +{関数, ファイルハンドル, 配列, ハッシュ, メソッド, 正規表現} を渡したり返したりするには? + +=item * + +=begin original + +How do I create a static variable? + +=end original + +静的変数を作るには? + +=item * + +=begin original + +What's the difference between dynamic and lexical (static) scoping? Between local() and my()? + +=end original + +動的スコープとレキシカル(または静的)スコープとの間の違いは? local() と my() との違いは? + +=item * + +=begin original + +How can I access a dynamic variable while a similarly named lexical is in scope? + +=end original + +どうやれば同じ名前のレキシカル変数がスコープにあるときに動的変数にアクセスできますか? + +=item * + +=begin original + +What's the difference between deep and shallow binding? + +=end original + +深い束縛(deep binding)と浅い束縛(shallow binding)との間の違いとは? + +=item * + +=begin original + +Why doesn't "my($foo) = E<lt>FILEE<gt>;" work right? + +=end original + +なぜ "my($foo) = E<lt>FILEE<gt>;" が正しく動作しないのでしょうか? + +=item * + +=begin original + +How do I redefine a builtin function, operator, or method? + +=end original + +組み込みの関数や演算子、メソッドを再定義するには? + +=item * + +=begin original + +What's the difference between calling a function as &foo and foo()? + +=end original + +関数呼び出しを &foo で行ったときと foo() で行ったときとの違いはなんですか? + +=item * + +=begin original + +How do I create a switch or case statement? + +=end original + +switch 文や case 文を作るには? + +=item * + +=begin original + +How can I catch accesses to undefined variables, functions, or methods? + +=end original + +どうすれば未定義な変数, 関数, メソッドに対するアクセスを捕捉できますか? + +=item * + +=begin original + +Why can't a method included in this same file be found? + +=end original + +なぜ同じファイルにあるメソッドが見つけられないのでしょうか? + +=item * + +=begin original + +How can I find out my current or calling package? + +=end original + +カレントのパッケージや呼び出しパッケージはどうすればわかりますか? + +=item * + +=begin original + +How can I comment out a large block of perl code? + +=end original + +Perl プログラムの大きなブロックをコメントアウトするには? + +=item * + +=begin original + +How do I clear a package? + +=end original + +パッケージをクリアするには? + +=item * + +=begin original + +How can I use a variable as a variable name? + +=end original + +変数を変数名として使うには? + +=item * + +=begin original + +What does "bad interpreter" mean? + +=end original + +"bad interpreter" とはどういう意味ですか? + +=back + + +=head2 L<perlfaq8>: System Interaction + +(L<perlfaq8>: システムとの相互作用) + +=begin original + +This section of the Perl FAQ covers questions involving operating system interaction. Topics include interprocess communication (IPC), control over the user-interface (keyboard, screen and pointing devices), and most anything else not related to data manipulation. Read the FAQs and documentation specific to the port of perl to your operating system (eg, L<perlvms>, L<perlplan9>, ...). These should contain more detailed information on the vagaries of your perl. + +=end original + +FAQ のこのセクションでは、オペレーティングシステムとの対話に関する質問を +扱っています。 +これにはプロセス間(IPC)、ユーザーインターフェース +(キーボード、スクリーン、ポインティングデバイス)の制御、 +その他データ操作に関連しないほとんどの事柄を含みます。 +あなたの使っているオペレーティングシステム向けの移植について特有のことは、 +それに関する FAQ とドキュメント(L<perlvms>, L<perlplan9> など)を +読んでください。 +そこには、あなたの使う perl についてのより詳しい情報があります。 + +=over 4 + +=item * + +=begin original + +How do I find out which operating system I'm running under? + +=end original + +実行しているオペレーティングシステムを見分けるには? + +=item * + +=begin original + +How come exec() doesn't return? + +=end original + +なぜ exec() は戻ってこないのでしょう? + +=item * + +=begin original + +How do I do fancy stuff with the keyboard/screen/mouse? + +=end original + +キーボード/画面/マウスの凝った機能を使うには? + +=item * + +=begin original + +How do I print something out in color? + +=end original + +色付きで何かを出力するには? + +=item * + +=begin original + +How do I read just one key without waiting for a return key? + +=end original + +リターンキーを待たずにキーのデータを一つ読み取るには? + +=item * + +=begin original + +How do I check whether input is ready on the keyboard? + +=end original + +キーの入力待ちがあるかどうかチェックするには? + +=item * + +=begin original + +How do I clear the screen? + +=end original + +画面をクリアするには? + +=item * + +=begin original + +How do I get the screen size? + +=end original + +画面サイズを得るには? + +=item * + +=begin original + +How do I ask the user for a password? + +=end original + +ユーザーにパスワードを尋ねるには? + +=item * + +=begin original + +How do I read and write the serial port? + +=end original + +シリアルポートの読み書きを行うには? + +=item * + +=begin original + +How do I decode encrypted password files? + +=end original + +暗号化されたパスワードファイルを複号化するには? + +=item * + +=begin original + +How do I start a process in the background? + +=end original + +バックグラウンドでプロセスを起動するには? + +=item * + +=begin original + +How do I trap control characters/signals? + +=end original + +制御文字やシグナルをトラップするには? + +=item * + +=begin original + +How do I modify the shadow password file on a Unix system? + +=end original + +UNIX システムのシャドウパスワードファイルを変更するには? + +=item * + +=begin original + +How do I set the time and date? + +=end original + +日付や時刻を設定するには? + +=item * + +=begin original + +How can I sleep() or alarm() for under a second? + +=end original + +一秒未満の時間に対する sleep() や alarm() をするには? + +=item * + +=begin original + +How can I measure time under a second? + +=end original + +1 秒未満の時間を計るには? + +=item * + +=begin original + +How can I do an atexit() or setjmp()/longjmp()? (Exception handling) + +=end original + +atexit() や setjmp()/longjmp() をするには? (例外処理) + +=item * + +=begin original + +Why doesn't my sockets program work under System V (Solaris)? What does the error message "Protocol not supported" mean? + +=end original + +なぜ私のソケットプログラムはSystem V (Solaris) ではうまく動かないの? "Protocol not supported"というエラーメッセージの意味するところは? + +=item * + +=begin original + +How can I call my system's unique C functions from Perl? + +=end original + +Perl から私のシステムに固有の C 関数を呼び出すには? + +=item * + +=begin original + +Where do I get the include files to do ioctl() or syscall()? + +=end original + +ioctl() や syscall() で使うための include ファイルはどこで入手できますか? + +=item * + +=begin original + +Why do setuid perl scripts complain about kernel problems? + +=end original + +なぜ setuid された perl スクリプトはカーネルの問題について文句を言うのでしょうか? + +=item * + +=begin original + +How can I open a pipe both to and from a command? + +=end original + +あるコマンドに対する双方向のパイプをオープンするには? + +=item * + +=begin original + +Why can't I get the output of a command with system()? + +=end original + +なぜ system() を使ったコマンドの出力を得ることができないのでしょうか? + +=item * + +=begin original + +How can I capture STDERR from an external command? + +=end original + +外部コマンドの STDERR を捕捉するには? + +=item * + +=begin original + +Why doesn't open() return an error when a pipe open fails? + +=end original + +なぜ open() は パイプのオープンに失敗したときにエラーを返さないのでしょうか? + +=item * + +=begin original + +What's wrong with using backticks in a void context? + +=end original + +無効コンテキストで逆クォートを使うことのなにが悪いのでしょうか? + +=item * + +=begin original + +How can I call backticks without shell processing? + +=end original + +シェルの処理をせずに逆クォートを呼び出すには? + +=item * + +=begin original + +Why can't my script read from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)? + +=end original + +なぜ EOF(UNIX での^D、MS-DOS での^Z)を受け取った後で STDIN から読み込むことができないの? + +=item * + +=begin original + +How can I convert my shell script to perl? + +=end original + +私のシェルスクリプトを perl に変換するには? + +=item * + +=begin original + +Can I use perl to run a telnet or ftp session? + +=end original + +telnet や ftp のセッションを実行するために perl を使うことができますか? + +=item * + +=begin original + +How can I write expect in Perl? + +=end original + + Perl で expect を書くには? + +=item * + +=begin original + +Is there a way to hide perl's command line from programs such as "ps"? + +=end original + +“ps”のようなプログラムから、perl のコマンドラインを隠す方法はありますか? + +=item * + +=begin original + +I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible? + +=end original + +perl スクリプトの中で、ディレクトリを変更したり環境変数を変更しました。なぜ、スクリプトを終了したときこれらの変更は無効になってしまうの? 変更が反映されるようにするには? + +=item * + +=begin original + +How do I close a process's filehandle without waiting for it to complete? + +=end original + +プロセスの完了を待つことなしにそのファイルハンドルをクローズするには? + +=item * + +=begin original + +How do I fork a daemon process? + +=end original + +デーモンプロセスを fork() するには? + +=item * + +=begin original + +How do I find out if I'm running interactively or not? + +=end original + +自分が対話的に実行されているかどうかを知るには? + +=item * + +=begin original + +How do I timeout a slow event? + +=end original + +遅いイベントをタイムアウトするには? + +=item * + +=begin original + +How do I set CPU limits? + +=end original + +CPU のリミットを設定するには? + +=item * + +=begin original + +How do I avoid zombies on a Unix system? + +=end original + +UNIX システムでゾンビを回避するには? + +=item * + +=begin original + +How do I use an SQL database? + +=end original + +SQL データベースを使うには? + +=item * + +=begin original + +How do I make a system() exit on control-C? + +=end original + +コントロール-C で system() が exit するようにするには? + +=item * + +=begin original + +How do I open a file without blocking? + +=end original + +ブロックせずにファイルをオープンするには? + +=item * + +=begin original + +How do I tell the difference between errors from the shell and perl? + +=end original + +シェルからと perl からのエラーを見分けるには? + +=item * + +=begin original + +How do I install a module from CPAN? + +=end original + +モジュールを CPAN からインストールするには? + +=item * + +=begin original + +What's the difference between require and use? + +=end original + +require と use の間の違いとは? + +=item * + +=begin original + +How do I keep my own module/library directory? + +=end original + +自分自身のモジュール/ライブラリディレクトリを持つには? + +=item * + +=begin original + +How do I add the directory my program lives in to the module/library search path? + +=end original + +私のプログラムの置いてある場所をモジュール/ライブラリの検索パスに追加するには? + +=item * + +=begin original + +How do I add a directory to my include path (@INC) at runtime? + +=end original + +実行時にインクルードパス (@INC) にディレクトリを追加するには? + +=item * + +=begin original + +What is socket.ph and where do I get it? + +=end original + +socket.ph とは一体何で、それはどこで入手できますか? + +=back + + +=head2 L<perlfaq9>: Networking + +(L<perlfaq9>: ネットワーク) + +=begin original + +Networking, the internet, and a few on the web. + +=end original + +ネットワーク、インターネット、web 関連。 + +=over 4 + +=item * + +=begin original + +What is the correct form of response from a CGI script? + +=end original + +CGI スクリプトからの返答の正しい形は? + +=item * + +=begin original + +My CGI script runs from the command line but not the browser. (500 Server Error) + +=end original + +500 Server Error になります) + +=item * + +=begin original + +How can I get better error messages from a CGI program? + +=end original + +CGI プログラムから、もっとまともなエラーメッセージを得るには? + +=item * + +=begin original + +How do I remove HTML from a string? + +=end original + +ある文字列から HTML を取り除くには? + +=item * + +=begin original + +How do I extract URLs? + +=end original + +URL の展開を行うには? + +=item * + +=begin original + +How do I download a file from the user's machine? How do I open a file on another machine? + +=end original + +ユーザーのマシンからファイルをダウンロードするには? 別のマシンにあるファイルをオープンするには? + +=item * + +=begin original + +How do I make an HTML pop-up menu with Perl? + +=end original + +Perl で HTML のポップアップメニューを作るには? + +=item * + +=begin original + +How do I fetch an HTML file? + +=end original + +HTML ファイルをフェッチするには? + +=item * + +=begin original + +How do I automate an HTML form submission? + +=end original + +HTML フォームの処理を自動化するには? + +=item * + +=begin original + +How do I decode or create those %-encodings on the web? + +=end original + +web上で %-encodings をデコードしたり生成したりするには? + +=item * + +=begin original + +How do I redirect to another page? + +=end original + +別のページにリダイレクトするには? + +=item * + +=begin original + +How do I put a password on my web pages? + +=end original + +私の web ぺージでパスワードを入力するには? + +=item * + +=begin original + +How do I edit my .htpasswd and .htgroup files with Perl? + +=end original + +Perl を使って .htpasswd や .htgroup といったファイルを編集するには? + +=item * + +=begin original + +How do I make sure users can't enter values into a form that cause my CGI script to do bad things? + +=end original + +私の CGI スクリプトに悪影響をもたらすようなものを、ユーザーがフォームに入力できないようにするには? + +=item * + +=begin original + +How do I parse a mail header? + +=end original + +メールのヘッダーを解析するには? + +=item * + +=begin original + +How do I decode a CGI form? + +=end original + +CGI フォームをデコードするには? + +=item * + +=begin original + +How do I check a valid mail address? + +=end original + +メールアドレスが正しいかチェックするには? + +=item * + +=begin original + +How do I decode a MIME/BASE64 string? + +=end original + +MIME/BASE64 文字列のデコードを行うには? + +=item * + +=begin original + +How do I return the user's mail address? + +=end original + +ユーザーのメールアドレスを返すには? + +=item * + +=begin original + +How do I send mail? + +=end original + +メールを送るには? + +=item * + +=begin original + +How do I use MIME to make an attachment to a mail message? + +=end original + +メールメッセージに添付するためにどうやって MIME を使えばいいですか? + +=item * + +=begin original + +How do I read mail? + +=end original + +メールを読み出すには? + +=item * + +=begin original + +How do I find out my hostname, domainname, or IP address? + +=end original + +私のホスト名/ドメイン名/IP アドレスを見つけるには? + +=item * + +=begin original + +How do I fetch a news article or the active newsgroups? + +=end original + +ニュースの記事やアクティブなニュースグループを取得するには? + +=item * + +=begin original + +How do I fetch/put an FTP file? + +=end original + +FTP ファイルをダウンロード/アップロードするには? + +=item * + +=begin original + +How can I do RPC in Perl? + +=end original + +Perl で RPC を行うには? + +=back + + Index: docs/perl/5.10.1/perlfaq2.pod diff -u docs/perl/5.10.1/perlfaq2.pod:1.3 docs/perl/5.10.1/perlfaq2.pod:1.4 --- docs/perl/5.10.1/perlfaq2.pod:1.3 Mon Apr 5 19:36:35 2010 +++ docs/perl/5.10.1/perlfaq2.pod Sat Aug 7 03:28:52 2010 @@ -9,7 +9,7 @@ =end original -perlfaq2 - Perl の入手と学習 ($Revision: 10144 $) +perlfaq2 - Perl の入手と学習 =head1 DESCRIPTION Index: docs/perl/5.10.1/perlfaq3.pod diff -u docs/perl/5.10.1/perlfaq3.pod:1.3 docs/perl/5.10.1/perlfaq3.pod:1.4 --- docs/perl/5.10.1/perlfaq3.pod:1.3 Mon May 31 05:59:46 2010 +++ docs/perl/5.10.1/perlfaq3.pod Sat Aug 7 03:28:52 2010 @@ -9,7 +9,7 @@ =end original -perlfaq3 - プログラミングツール ($Revision: 10127 $) +perlfaq3 - プログラミングツール =head1 DESCRIPTION Index: docs/perl/5.10.1/perlfaq4.pod diff -u docs/perl/5.10.1/perlfaq4.pod:1.6 docs/perl/5.10.1/perlfaq4.pod:1.7 --- docs/perl/5.10.1/perlfaq4.pod:1.6 Sun Jul 25 06:03:17 2010 +++ docs/perl/5.10.1/perlfaq4.pod Sat Aug 7 03:28:52 2010 @@ -4181,6 +4181,8 @@ =head2 How do I merge two hashes? X<hash> X<merge> X<slice, hash> +(二つのハッシュをマージするには?) + =begin original (contributed by brian d foy) Index: docs/perl/5.10.1/perlfaq5.pod diff -u docs/perl/5.10.1/perlfaq5.pod:1.4 docs/perl/5.10.1/perlfaq5.pod:1.5 --- docs/perl/5.10.1/perlfaq5.pod:1.4 Sun Jul 25 06:03:17 2010 +++ docs/perl/5.10.1/perlfaq5.pod Sat Aug 7 03:28:52 2010 @@ -136,9 +136,8 @@ =end original -Besides the C<$|> special variable, you can use C<binmode> to give -your filehandle a C<:unix> layer, which is unbuffered: -(TBT) +C<$|> 特殊変数に加えて、C<binmode> を使ってファイルハンドルに +C<:unix> 層をつけることでバッファリングしないようにできます: binmode( STDOUT, ":unix" ); @@ -2756,10 +2755,8 @@ =end original -If you are seeing spaces between the elements of your array when -you print the array, you are probably interpolating the array in -double quotes: -(TBT) +もし配列を表示したときに配列の要素の間に空白が付くなら、 +おそらく配列をダブルクォートで展開しています: my @animals = qw(camel llama alpaca vicuna); print "animals are: @animals\n"; @@ -2773,11 +2770,10 @@ =end original -It's the double quotes, not the C<print>, doing this. Whenever you -interpolate an array in a double quote context, Perl joins the -elements with spaces (or whatever is in C<$">, which is a space by -default): -(TBT) +これは C<print> ではなくダブルクォートが行っています。 +ダブルクォートコンテキストで配列を展開するときはいつでも、 +Perl は要素を空白(正確にはデフォルトが空白の C<$">)を使って +結合します: animals are: camel llama alpaca vicuna @@ -2800,10 +2796,8 @@ =end original -Now the output doesn't have the spaces between the elements because -the elements of C<@animals> simply become part of the list to -C<print>: -(TBT) +今度は要素の間には空白はありません; C<@animals> の要素は単に +C<print> へのリストの一部となっているからです: animals are: camelllamaalpacavicuna @@ -2815,10 +2809,10 @@ =end original -You might notice this when each of the elements of C<@array> end with -a newline. You expect to print one element per line, but notice that -every line after the first is indented: -(TBT) +C<@array> の要素のそれぞれが改行で終わっているときにこのことに +気付いたかも知れません。 +行毎に 1 要素を表示することを想定したけれども、最初の以外の行が +インデントされることに気付きます: this is a line this is another line @@ -2832,15 +2826,16 @@ =end original -That extra space comes from the interpolation of the array. If you -don't want to put anything between your array elements, don't use the -array in double quotes. You can send it to print without them: -(TBT) +追加の空白は配列の展開による物です。配列の要素の間に何も表示したくない +場合、ダブルクォートの中で配列を使わないでください。 +使わなくても表示できます: print @lines; =head2 How do I traverse a directory tree? +(ディレクトリツリーを辿るには?) + =begin original (contributed by brian d foy) @@ -2858,11 +2853,11 @@ =end original -The C<File::Find> module, which comes with Perl, does all of the hard -work to traverse a directory structure. It comes with Perl. You simply -call the C<find> subroutine with a callback subroutine and the -directories you want to traverse: -(TBT) +Perl と共に配布されている C<File::Find> モジュールが、ディレクトリ構造を +辿るための大変な作業の全てを行います。 +これは Perl と共に配布されています。 +単に、コールバックサブルーチンと、辿りたいディレクトリを指定して +C<find> サブルーチンを呼び出します: use File::Find; @@ -2881,9 +2876,9 @@ =end original -The C<File::Find::Closures>, which you can download from CPAN, provides -many ready-to-use subroutines that you can use with C<File::Find>. -(TBT) +CPAN からダウンロードできる C<File::Find::Closures> は、 +C<File::Find> と共に使える、たくさんの「すぐに使える」サブルーチンを +提供します。 =begin original @@ -2893,10 +2888,9 @@ =end original -The C<File::Finder>, which you can download from CPAN, can help you -create the callback subroutine using something closer to the syntax of -the C<find> command-line utility: -(TBT) +CPAN からダウンロードできる C<File::Finder> は、 +C<find> コマンドラインユーティリティの文法により近い形の +コールバックサブルーチンを作ることを手助けします: use File::Find; use File::Finder; @@ -2912,9 +2906,8 @@ =end original -The C<File::Find::Rule> module, which you can download from CPAN, has -a similar interface, but does the traversal for you too: -(TBT) +CPAN からダウンロードできる C<File::Find::Rule> モジュールは、 +同じようなインターフェースを持ちますが、ファイルを辿ることもします: use File::Find::Rule; @@ -2924,6 +2917,8 @@ =head2 How do I delete a directory tree? +(ディレクトリツリーを削除するには?) + =begin original (contributed by brian d foy) @@ -2940,10 +2935,10 @@ =end original -If you have an empty directory, you can use Perl's built-in C<rmdir>. If -the directory is not empty (so, no files or subdirectories), you either -have to empty it yourself (a lot of work) or use a module to help you. -(TBT) +もし、ディレクトリが空なら、Perl 組み込みの C<rmdir> が使えます。 +もしディレクトリが空(ファイルもサブディレクトリもない)ではないなら、 +自力で空にする(多くの作業が必要です)か、助けてくれるモジュールを +使う必要があります。 =begin original @@ -2952,9 +2947,8 @@ =end original -The C<File::Path> module, which comes with Perl, has a C<rmtree> which -can take care of all of the hard work for you: -(TBT) +Perl と共に配布されている C<File::Path> モジュールには、大変な作業の全てを +代わりに処理してくれる C<rmtree> があります: use File::Path qw(rmtree); @@ -2969,14 +2963,16 @@ =end original -The first argument to C<rmtree> is either a string representing a directory path -or an array reference. The second argument controls progress messages, and the -third argument controls the handling of files you don't have permissions to -delete. See the C<File::Path> module for the details. -(TBT) +C<rmtree> の最初の引数は、ディレクトリパスを表現した文字列か、 +配列リファレンスです。 +2 番目の引数は処理中のメッセージを制御し、3 番目の引数は +削除する権限のないファイルの扱いを制御します。 +詳細については C<File::Path> モジュールを参照してください。 =head2 How do I copy an entire directory? +(ディレクトリ全体をコピーするには?) + =begin original (contributed by Shlomi Fish) Index: docs/perl/5.10.1/perlfaq6.pod diff -u docs/perl/5.10.1/perlfaq6.pod:1.4 docs/perl/5.10.1/perlfaq6.pod:1.5 --- docs/perl/5.10.1/perlfaq6.pod:1.4 Sun Jul 25 06:03:17 2010 +++ docs/perl/5.10.1/perlfaq6.pod Sat Aug 7 03:28:52 2010 @@ -32,7 +32,7 @@ 正規表現を使って処理されますが、この回答はこの資料のあらゆる所で 見つけることができます(正確には L<perlfaq9>: "How do I decode or create those %-encodings on the web" と -L<perfaq4>: "How do I determine whether a scalar is +L<perlfaq4>: "How do I determine whether a scalar is a number/whole/integer/float")。 =head2 How can I hope to use regular expressions without creating illegible and unmaintainable code? @@ -344,13 +344,13 @@ =end original -If you just want to get work done, use a module and forget about the -regular expressions. The C<XML::Parser> and C<HTML::Parser> modules -are good starts, although each namespace has other parsing modules -specialized for certain tasks and different ways of doing it. Start at -CPAN Search ( http://search.cpan.org ) and wonder at all the work people -have done for you already! :) -(TBT) +単に作業をすませたいだけなら、モジュールを使って、正規表現のことは +忘れてください。 +C<XML::Parser> モジュールと C<HTML::Parser> モジュールはいい開始点ですが、 +それぞれの名前空間は、特定の処理に特化したり、、それを行うための異なった方法の +ための他のパースモジュールを持ちます。 +CPAN Search ( http://search.cpan.org ) から始めて、あなたのための作業を +既にしてくれている人がいないかどうかを探してみてください! :) =begin original @@ -362,12 +362,13 @@ =end original -The problem with things such as XML is that they have balanced text -containing multiple levels of balanced text, but sometimes it isn't -balanced text, as in an empty tag (C<< <br/> >>, for instance). Even then, -things can occur out-of-order. Just when you think you've got a -pattern that matches your input, someone throws you a curveball. -(TBT) +XML のようなものの問題点は、複数レベルのバランスされたテキストを含む +バランスされたテキストでありながら、ときどき空タグ +(例えば C<< <br/> >> )のようにバランスされていない +テキストがあることです。 +それでも、予定外のことが起こります。 +入力を処理するためのパターンが出来た、と思った瞬間、誰かが +あなたに変化球を投げてきます。 =begin original @@ -379,29 +380,44 @@ =end original -If you'd like to do it the hard way, scratching and clawing your way -toward a right answer but constantly being disappointed, beseiged by -bug reports, and weary from the inordinate amount of time you have to -spend reinventing a triangular wheel, then there are several things -you can try before you give up in frustration: -(TBT) +もしあなたが、正しい答えだけれども絶えず失望するような方法に道にひっかかれ、 +バグ報告に包囲され、 +3 角形の車輪を再開発するために費やす大量の時間に辟易とするような +厳しい道を望むなら、 +フラストレーションで諦める前に試すことの出来ることがいくつかあります: =over 4 =item * Solve the balanced text problem from another question in L<perlfaq6> +(L<perlfaq6> にある、バランスされたテキストに関するその他の問題を解決する。) + =item * Try the recursive regex features in Perl 5.10 and later. See L<perlre> +(Perl 5.10 以降の再帰パターンマッチング機能を試す。L<perlre> を参照してください。) + =item * Try defining a grammar using Perl 5.10's C<(?DEFINE)> feature. +(Perl 5.10 の C<(?DEFINE)> 機能を使った文法の定義を試す。) + =item * Break the problem down into sub-problems instead of trying to use a single regex +(単一の正規表現で処理せずに、複数の副問題に分割する。) + =item * Convince everyone not to use XML or HTML in the first place +(第 1 に XML や HTML を使わないようにみんなを説得する。) + =back +=begin original + Good luck! +=end original + +がんばって! + =head2 I put a regular expression into $/ but it didn't work. What's wrong? X<$/, regexes in> X<$INPUT_RECORD_SEPARATOR, regexes in> X<$RS, regexes in> @@ -985,10 +1001,9 @@ おそらく、まずはじめに試すべきなのは、Perl 5.8 から Perl 標準ライブラリに なっている C<Text::Balanced> モジュールです。 -It has a variety of -functions to deal with tricky text. The C<Regexp::Common> module can -also help by providing canned patterns you can use. -(TBT) +これには扱いにくい文章を扱うための様々な関数があります。 +C<Regexp::Common> モジュールも、すぐ使えるパターンを提供することで +手助けしてくれます。 =begin original @@ -1000,9 +1015,8 @@ Perl 5.10 以降では、再帰パターンを使って正規表現でバランスされた テキストをマッチングすることが出来ます。 -Before Perl 5.10, you had to resort to -various tricks such as using Perl code in C<(??{})> sequences. -(TBT) +Perl 5.10 以前では、C<(??{})> シーケンス内で Perl コードを使うといった +さまざまな技を使う必要があります。 =begin original @@ -1015,12 +1029,11 @@ =end original 以下は再帰的正規表現を使った例です。 -The goal is to -capture all of the text within angle brackets, including the text in -nested angle brackets. This sample text has two "major" groups: a -group with one level of nesting and a group with two levels of -nesting. There are five total groups in angle brackets: -(TBT) +ゴールは、(ネストしたものを含む)山かっこ内の全てのテキストを +捕らえることです。 +サンプルの文章には二つの「主な」グループがあります: 1 レベルの +ネストがあるものと、2 レベルのネストがあるものです。 +これは全部で五つの山かっこグループがあります: I have some <brackets in <nested brackets> > and <another group <nested once <nested twice> > > @@ -1049,12 +1062,12 @@ =end original -First, adding the new possesive C<+> to any quantifier finds the -longest match and does not backtrack. That's important since you want -to handle any angle brackets through the recursion, not backtracking. -The group C<< [^<>]++ >> finds one or more non-angle brackets without -backtracking. -(TBT) +まず、絶対量指定子を追加することで、 +最大マッチングを行って、バックトラックをしません。 +これは、山かっこをバックトラッキングではなく再帰で扱いたいので +重要です。 +グループ C<< [^<>]++ >> は、一つまたは複数の、山かっこでないものを +バックトラッキングなしで探し出します。 =begin original @@ -1067,13 +1080,13 @@ =end original -Second, the new C<(?PARNO)> refers to the sub-pattern in the -particular capture buffer given by C<PARNO>. In the following regex, -the first capture buffer finds (and remembers) the balanced text, and -you need that same pattern within the first buffer to get past the -nested text. That's the recursive part. The C<(?1)> uses the pattern -in the outer capture buffer as an independent part of the regex. -(TBT) +次に、新しい C<(?PARNO)> は、C<PARNO> で与えられる特定の捕捉バッファ内の +副パターンを参照します。 +以下の正規表現では、最初の捕捉バッファがバランスされたテキストを +発見し(さらに保存し)、ネストしたテキストを調べるために最初のバッファ内に +同じパターンを適用する必要があります。 +C<(?1)> は、外側の捕捉バッファのパターンを正規表現内の +独立した部分として使います。 =begin original Index: docs/perl/5.10.1/perlfaq7.pod diff -u docs/perl/5.10.1/perlfaq7.pod:1.4 docs/perl/5.10.1/perlfaq7.pod:1.5 --- docs/perl/5.10.1/perlfaq7.pod:1.4 Sun Jul 25 06:03:17 2010 +++ docs/perl/5.10.1/perlfaq7.pod Sat Aug 7 03:28:52 2010 @@ -9,7 +9,7 @@ =end original -perlfaq7 - Perl 言語一般に関することがら ($Revision: 10100 $) +perlfaq7 - Perl 言語一般に関することがら =head1 DESCRIPTION @@ -626,9 +626,8 @@ =end original Perl では、クラスは単なるパッケージで、メソッドは単なるサブルーチンです。 -Perl doesn't get more formal than that and lets you set up the package -just the way that you like it (つまり、Perl はあなたのために何の設定もしません)。 -(TBT) +Perl はそれ以上に形式的なことはしませんし、あなたの好きな方法でパッケージを +設定できるようにします (つまり、Perl はあなたのために何の設定もしません)。 =begin original @@ -1633,10 +1632,9 @@ =end original -The main use of the C<@_> pass-through feature is to write subroutines -whose main job it is to call other subroutines for you. For further -details, see L<perlsub>. -(TBT) +C<@_> パススルー機能の主な利用法は、他のサブルーチンを呼び出すのが +主な仕事であるサブルーチンを書くためです。 +更なる詳細については、L<perlsub> を参照してください。 =head2 How do I create a switch or case statement? @@ -1926,9 +1924,9 @@ =end original -Most of the time, you shouldn't care what package an object is blessed -into, however, as long as it claims to inherit from that class: -(TBT) +しかし、ほとんどの場合では、オブジェクトがそのクラスから継承していると +主張している限りは、どのパッケージが bless したかを +気にするべきではありません: my $is_right_class = eval { $object->isa( $package ) }; # true or false @@ -1987,12 +1985,12 @@ =end original -The quick-and-dirty way to comment out more than one line of Perl is -to surround those lines with Pod directives. You have to put these -directives at the beginning of the line and somewhere where Perl -expects a new statement (so not in the middle of statements like the # -comments). You end the comment with C<=cut>, ending the Pod section: -(TBT) +Perl の複数行をコメントアウトするための、汚いけれども簡単な方法は、 +コメントアウトしたい部分を Pod 指示子で囲むことです。 +これらの指示子は、行の先頭、かつ、Perl が新しい文が始まると +想定する場所に置く必要があります(従って、# コメントのように文の途中には +置けません)。 +Pod セクションの終了を示す C<=cut> でコメントを終了します: =pod @@ -2013,11 +2011,10 @@ =end original -The quick-and-dirty method only works well when you don't plan to -leave the commented code in the source. If a Pod parser comes along, -you're multiline comment is going to show up in the Pod translation. -A better way hides it from Pod parsers as well. -(TBT) +汚いけれども簡単な方法は、ソースにコメントされたコードを残す予定が +ない(つまりいずれ消す)場合にのみうまく働きます。 +もし Pod パーサを使うと、複数行コメントは Pod によって表示されます。 +よりよい方法は、Pod パーサからも隠すことです。 =begin original @@ -2029,12 +2026,11 @@ =end original -The C<=begin> directive can mark a section for a particular purpose. -If the Pod parser doesn't want to handle it, it just ignores it. Label -the comments with C<comment>. End the comment using C<=end> with the -same label. You still need the C<=cut> to go back to Perl code from -the Pod comment: -(TBT) +C<=begin> 指示子で、段落を特定の目的のためにマークできます。 +Pod パーサがこれを扱えない場合、単に無視されます。 +コメントは C<comment> でラベル付けします。 +コメントの終了は同じラベルで C<=end> を使います。 +Pod コメントから Perl コードに戻るにはやはり C<=cut> が必要です: =begin comment
