Personalこの広告は、90日以上更新していないブログに表示しています。Amon2前回の続きから。callerはperlの組み込み関数の1つで、サブルーチンの呼び出し元情報を取得出来ます。詳しくはここを参照です。ログを取る時とかに便利です。今回の場合は呼び出しているのがサブルーチンの中ではないので、undefを返します。「外部から呼ばれた場合はブロック内を無視する」という意味です。unlessはifの条件を反転したものなので、偽ならばブロック内を処理します。これがデフォルト値ですね。コマンドラインオプションを解析して良い感じに引数を取ってきてくれるモジュールです。インスタンスを得られます。psgiアプリケーションとWebサーバを結びつけるアダプターの役割を持ちます。auto_help)]);ここではGetopt::Longのオプション指定をしています。詳しくはこちらを参照のこと。簡単に説明すると以下のような感じ。余計な機能をOFFにしてくれる。オプションの大文字小文字を区別する。自動で--helpが使えるようになる。pod2usageを呼んでくれる。$config_file,);早速オプションの指定と、引数の指定を行っています。オプションに指定している。数値を引数とすることを表している。格納する、という感じです。文字列を引数に指定しています。否定を表すオプションを定義している。(でも、ここのオプション指定の意義がよく分からない。)5つ目も同じようなことをやっています。ファイル名を指定すると実行されます。等が対象となっています。ブロック内の処理を見て行きましょう。指定したファイル名のファイルをperlスクリプトとして実行します。戻り値はそのスクリプトで最後に評価された値です。入ることが想定されているようです。「呼び出し元の位置情報」を知らせてくれます。コンパイルに失敗した時にエラーメッセージを格納する特殊変数です。云々で外部から呼び出せないはずだし。ファイルを読み取ることが出来ない場合にエラーメッセージが入ります。