> > おう。
> デバッグ目的に指定した変数をファイルに吐くコードを作ってみようと思ったのだけど
> コードをデバッグしたいプログラムから呼び出すとエラーになる
> package Debug;
> my $log;
> sub new {
> 	my $class=shift;
> 	if ($_[0]) {
> 		$log = $_[0];
> 	} else {
> 		$log = './debug.log';
> 	}
> 	bless { name => shift }, $class;
> }
> sub print {
> 	open(OUT,">>$log") || die("Log open error\n");
> 	foreach(@_) {
> 		print OUT "$_";
> 		print OUT "\n";
> 	}
> 	close(OUT);
> }
> sub clear {
> 	open(IN,">$log") || die("Log open error\n");
> 	print IN '';
> 	close(IN);
> }
> ここからデバッグしたいプログラム
> require "debug.pl";
> my $debug = new debug('./debug.log');
> $debug->clear;
> コンパイルするとこんなエラーが出るんだけど
>    Can   BEGIN failed--compilation aborted
> パールでOOPの経験が無いので原因が分からない
> どこが間違ってるか分かる？

わかった。

参考：2001/02/18(日)12時32分26秒