🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.perl
Article #108

Re: How to Perl debug?

#108
From: Masakatz Canada
Date: Sun, 15 Mar 1998 00:00
38 lines
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-mail
References: <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