下へ
>  2001/02/18 (日) 12:57:20        [mirai]
> > サンクスコ
> > でも違ったみたい
> 
> bless { name => shift }, $class;
> これと
> $debug->clear;
> コレって何してるんですケ(?ー`)ノ

初期化を呼び出し

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

>  2001/02/18 (日) 12:56:21        [mirai]
> > 漏れは厨房だから無償かつ無保証でヽ(´ー`)ノ
> > package hoehoe;
> > ***
> > 1;           ←コレ無い気がヽ(´ー`)ノ
> サンクスコ
> でも違ったみたい


bless { name => shift }, $class;
これと
$debug->clear;
コレって何してるんですケ(?ー`)ノ

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

>  2001/02/18 (日) 12:56:18        [mirai]
> 日曜日なのにナニやってるよ

毎日が日曜日

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

>  2001/02/18 (日) 12:56:07        [mirai]
> > 日曜日なのにナニやってるよ
> オナニュー

ロン!

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

>  2001/02/18 (日) 12:54:52        [mirai]
> 日曜日なのにナニやってるよ

オナニュー

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

2001/02/18 (日) 12:54:46        [mirai]
まだ結構人来てるんだな。笑い

http://onputanmoe.virtualave.net/index.htm

>  2001/02/18 (日) 12:52:51        [mirai]
> > どこか教えてちょうだい
> エロ同人1冊な。
> ヒント:require "debug.pl";

use

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

2001/02/18 (日) 12:52:42        [mirai]
日曜日なのにナニやってるよ

>  2001/02/18 (日) 12:52:18        [mirai]
> > エロ同人1冊な。
> > ヒント:require "debug.pl";
> 漏れは厨房だから無償かつ無保証でヽ(´ー`)ノ
> package hoehoe;
> ***
> 1;           ←コレ無い気がヽ(´ー`)ノ

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

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

>  2001/02/18 (日) 12:50:03        [mirai]
> > どこか教えてちょうだい
> エロ同人1冊な。
> ヒント:require "debug.pl";

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

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

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

2001/02/18 (日) 12:49:13        [mirai]
(´Д`)<はぁ!はぁ!はぁ!素晴らしいさぁーんでー
     今日は すば!すば!すば! 素晴らしいさぁーんでー

>  2001/02/18 (日) 12:47:27        [mirai]
> > わかった。
> どこか教えてちょうだい

エロ同人1冊な。

ヒント:require "debug.pl";

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

2001/02/18 (日) 12:47:01        [mirai]
new debug.pl

>  2001/02/18 (日) 12:42:21        [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時36分04秒

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秒

上へ