Article View: fj.lang.perl
Article #108Re: How to Perl debug?
From: Masakatz Canada
Date: Sun, 15 Mar 1998 00:00
Date: Sun, 15 Mar 1998 00:00
38 lines
1602 bytes
1602 bytes
かなだです。
In article <01bd4f56$ba2af0c0$0200000a@fmv165.sysdm.co.jp>,
jh7lgj@sm.rim.or.jp says...
>Perl言語で開発している場合に文法エラーは別として実行不可能
>エラーが発生した場合にどういう方法で見つけているのでしょうか?
>(実行中エラー時を言ってます)
>
>私の場合はまずはhttpd-error.logを見てだいたい分かるかなと思いますが、
>この他に知っておくと便利なんて方法あるのかな。
Perl5用ですが、私は次の方法をよく使います。
--------------------------
#!/usr/local/bin/perl5
BEGIN{
close(STDERR);
$errlog = "適当なエラーログファイル名";
open (STDERR, ">>$errlog");
}
END{
close(STDERR);
}
#以下スクリプト本文
---------------------------
BEGINの解釈以降なら、STDERRへの出力を横取りする
ことができます。
warnと組み合わせればデバッグにも使えるかもしれま
せん。
Perl4でも、BEGIN{}の内容をスクリプト先頭へ持って
くれば似たような動作になるでしょう。
もっと奇麗な方法があったら教えてください。
--
か な だ ま さ か つ
canada@kt.rim.or.jp
Technical Details
Message-ID:
<6ef9ne$9kf$1@news.kt.rim.or.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<01bd4f56$ba2af0c0$0200000a@fmv165.sysdm.co.jp>Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 1043e7,993907c29fb64e42 X-Google-Attributes: gid1043e7,public From: canada@kt.rim.or.jp (Masakatz Canada) Subject: Re: How to Perl debug? Date: 1998/03/15 Message-ID: <6ef9ne$9kf$1@news.kt.rim.or.jp> X-Deja-AN: 334176200 References: <01bd4f56$ba2af0c0$0200000a@fmv165.sysdm.co.jp> Mime-Version: 1.0 Content-Type: Text/Plain; charset=ISO-2022-JP Organization: RIMNET Newsgroups: fj.lang.perl