下へ
2001/02/18 (日) 12:40:46        [mirai]
化かす

2001/02/18 (日) 12:40:16        [mirai]
何その言い方!私、人からバカされるの嫌いなの!気分悪いから帰る

>  2001/02/18 (日) 12:40:07        [mirai]
> 射精する時の100倍以上も気持が良いそうです。
> http://albert.x2z.com/kisei02.htm

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

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

>  2001/02/18 (日) 12:38:20        [mirai]
> 何その言い方!私、人から命令されるの嫌いなの!気分悪いから帰る

テンプレ確定だな

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

>  2001/02/18 (日) 12:36:52        [mirai]
> > Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー`)ノ
> 俺はX-win32使ってるがなかなかいいぞ
> サイトは忘れたがまあググルすれ

クスコ(゚Д゚)ノ 調べる

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

>  2001/02/18 (日) 12:36:19        [mirai]
> Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー`)ノ

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

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

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

2001/02/18 (日) 12:35:22        [mirai]
射精する時の100倍以上も気持が良いそうです。

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

>  2001/02/18 (日) 12:34:23        [mirai]
> 存在だけ確認して放置か(´ー`)y-~~

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


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

>  2001/02/18 (日) 12:32:26        [mirai]
> > パール詳しいヤシいる?
> おう。

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

2001/02/18 (日) 12:32:17        [mirai]
存在だけ確認して放置か(´ー`)y-~~

2001/02/18 (日) 12:31:41        [mirai]
何その言い方!私、人から命令されるの嫌いなの!気分悪いから帰る

>  2001/02/18 (日) 12:28:35        [mirai]
> パール詳しいヤシいる?

半年経験ならノ(´д`)

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

>  2001/02/18 (日) 12:28:07        [mirai]
> > おまえ恥を知れよ
> いつまでも童貞でいるよりはよっぽど恥を知っている行為だと思いますが?

童貞に誇りを持てずに童貞を捨てようと右往左往する姿は見ていて哀れ

参考:2001/02/18(日)11時42分24秒

>  2001/02/18 (日) 12:27:39        [mirai]
> パール詳しいヤシいる?

おう。

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

2001/02/18 (日) 12:27:12        [mirai]
パール詳しいヤシいる?

>  2001/02/18 (日) 12:27:10        [mirai]
> Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー`)ノ

どうぞ、www.linux.or.jp

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

2001/02/18 (日) 12:26:26        [mirai]
おまんこ

2001/02/18 (日) 12:26:15        [mirai]
Windowsで動くXクライアントを紹介してるところ教えれヽ(´ー`)ノ

2001/02/18 (日) 12:25:50        [mirai]
書き込めた

>  2001/02/18 (日) 12:25:44        [mirai]
> > マカーヽ(´ー`)ノマカー
> http://mirai07.virtualave.net/cgi-bin/image/mirai3526.jpg

(; Д )ヒー

参考:2001/02/18(日)12時23分31秒

2001/02/18 (日) 12:25:31        [mirai]
書き込めるかな

>  2001/02/18 (日) 12:23:31        [mirai]
> > http://mirai07.virtualave.net/cgi-bin/image/mirai3525.jpg
> マカーヽ(´ー`)ノマカー

http://mirai07.virtualave.net/cgi-bin/image/mirai3526.jpg

参考:2001/02/18(日)12時18分54秒

上へ