下へ
> 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秒
上へ