> > ｴﾛ同人１冊な。
> > ﾋﾝﾄ：require "debug.pl";
> 漏れは厨房だから無償かつ無保証でヽ(´ー`)ノ
> package hoehoe;
> ***
> 1;　　　　　　　　　　　←ｺﾚ無い気がヽ(´ー`)ノ

サンクスコ
でも違ったみたい

参考：2001/02/18(日)12時50分03秒

> > どこか教えてちょうだい
> ｴﾛ同人１冊な。
> ﾋﾝﾄ：require "debug.pl";

漏れは厨房だから無償かつ無保証でヽ(´ー`)ノ

package hoehoe;
***
1;　　　　　　　　　　　←ｺﾚ無い気がヽ(´ー`)ノ

参考：2001/02/18(日)12時47分27秒

(´Д`)＜はぁ！はぁ！はぁ！素晴らしいさぁーんでー
　　　　 今日は すば！すば！すば！ 素晴らしいさぁーんでー

> > わかった。
> どこか教えてちょうだい

ｴﾛ同人１冊な。

ﾋﾝﾄ：require "debug.pl";

参考：2001/02/18(日)12時42分21秒

new debug.pl

> > デバッグ目的に指定した変数をファイルに吐くコードを作ってみようと思ったのだけど
> > コードをデバッグしたいプログラムから呼び出すとエラーになる
> > 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時36分04秒

化かす

何その言い方！私、人からバカされるの嫌いなの！気分悪いから帰る

> 射精する時の１００倍以上も気持が良いそうです。
> http://albert.x2z.com/kisei02.htm

俺食事中なのにこんなものを～(;´Д｀)

参考：2001/02/18(日)12時35分22秒

> 何その言い方！私、人から命令されるの嫌いなの！気分悪いから帰る

テンプレ確定だな

参考：2001/02/18(日)12時31分41秒

> > Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー｀)ノ
> 俺はX-win32使ってるがなかなかいいぞ
> サイトは忘れたがまあｸﾞｸﾞﾙすれ

ｸｽｺ(ﾟДﾟ)ﾉ　調べる

参考：2001/02/18(日)12時36分19秒

> Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー｀)ノ

俺はX-win32使ってるがなかなかいいぞ
サイトは忘れたがまあｸﾞｸﾞﾙすれ

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

> > おう。
> デバッグ目的に指定した変数をファイルに吐くコードを作ってみようと思ったのだけど
> コードをデバッグしたいプログラムから呼び出すとエラーになる
> 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秒

射精する時の１００倍以上も気持が良いそうです。

http://albert.x2z.com/kisei02.htm

> 存在だけ確認して放置か(´ｰ`)y-~~

コリコリコピペしていたんだよ


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

> > パール詳しいヤシいる？
> おう。

デバッグ目的に指定した変数をファイルに吐くコードを作ってみようと思ったのだけど
コードをデバッグしたいプログラムから呼び出すとエラーになる
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時27分39秒