Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
111:nobodyさん 08/09/02 15:54:14 XutqN0xS 汎用のエラーサブルーチンで、 ログに場所や原因を特定できる情報を吐くために、 callerで大元の呼び出し元からのツリーを吐く方法を探してます。 力技でやれば、階層確認用の変数を作って mainから関数を呼ぶたびに1ずつインクリメントしていってエラー関数でforで 階層確認用の変数の分だけ回せば出来るとは思うんですが、 sub err { my ($sadd) = @_; my $s; for ($i=MAXVALUE; $i <= 0; $i--) { $s .= caller($i).' / '; } print STDERR $sadd."\n".$s; } 手動でインクリメントすることなく、上記のMAXVALUEを取得する方法はありませんでしょうか。 112:nobodyさん 08/09/02 17:08:26 62/De0KZ 以下の場合だと、$hogeにはIPアドレスが入ってます。 $hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)||$ENV{'REMOTE_ADDR'}; 以下の場合だと、$hogeは空になります。 $hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)or$ENV{'REMOTE_ADDR'}; 後者が空になってしまうのは何故ですか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5390日前に更新/40 KB
担当:undef