Perlについての質問箱 29箱目

1 名前：デフォルトの名無しさん mailto:sage [2006/12/21(木) 22:35:39 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 28箱目 pc8.2ch.net/test/read.cgi/tech/1162273941/ リンク集は>>2-3 過去スレは>>4 39 名前：デフォルトの名無しさん mailto:sage [2006/12/23(土) 19:03:35 ] レキシカルな特殊変数に干渉する方法がわからん… 一応、思いついたDirty Hack二通り 1. BEGIN { local *warnings::import; require hogehoge; import hogehoge 'hoge'; } 2. { use IO::Null; tie local *STDERR, 'IO::Null'; print hoge('unko'); } 40 名前：デフォルトの名無しさん mailto:sage [2006/12/23(土) 19:37:17 ] いったんhogehogeにパッケージ切り替えてno warnings 'uninitialized';したら？ use hogehoge qw/hoge/; package hogehoge; no warnings qw/uninitialized/; package main; print hoge('unko'); 試してないからわからん。 41 名前：デフォルトの名無しさん mailto:sage [2006/12/23(土) 20:11:47 ] 表示されなければいいのなら$SIG{__WARN__}を定義して横取りする手もある。 The routine indicated by $SIG{__WARN__} is called when a warn- ing message is about to be printed. The warning message is passed as the first argument. The presence of a __WARN__ hook causes the ordinary printing of warnings to STDERR to be sup- pressed.

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef