下へ
>  2001/02/18 (日) 13:04:21        [mirai]
> > 今日ってビクサイト当たりでイベントあるのか?
> > ヲタ臭を漂わせた香具師らが豊洲あたりに居たのだが
> 豊洲であるのではないか?

ビクサイト方面へ行くバス停留所に屯していた。
またバスが異常なコミ具合なのだが

参考:2001/02/18(日)13時02分25秒

2001/02/18 (日) 13:03:25        [mirai]
全て2局ネタのリサイクル

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

bless関数
 bless関数は、リファレンスとパッケージ名を引数とします。
第1引数で与えられたリファレンスが指すオブジェクトは、
第2引数で指定したクラスに所属します。
第2引数のパッケージ名はオプションで、
省略すると現在のパッケージ名を引数とします。

$debug->clearすると
新しく作ったオブジェクト$debugのメソッドclearを呼び出す
さっきの場合だとdebug.logを空にする関数をメソッドを呼び出す

perlのoopのサンプルコード

# Circle のパッケージ名を設定
package Circle;

# Circle のクラスメソッド(コンストラクタ)
sub new{
    # 暗黙のうちに引き渡されるパッケージ名を受け取る
    my $class = shift;

    # 任意の引数を受け取る
    my( $x, $y ) =@_;

    # 第1引数に連想配列のリファレンスを指定、
    # 第2引数にパッケージ名を指定
    bless { pos=>[$x, $y] }, $class;
}

# Circleのインスタンスメソッド
sub position{
    my $self = shift;
    if ( @_ ){
        $self->{pos}[0] = @_[0];
        $self->{pos}[1] = @_[1];
    }
    return @{ $self->{pos} };
}

package main;

my $circle = new Circle;


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

>  2001/02/18 (日) 13:02:25        [mirai]
> > ものによる
> 今日ってビクサイト当たりでイベントあるのか?
> ヲタ臭を漂わせた香具師らが豊洲あたりに居たのだが

豊洲であるのではないか?

参考:2001/02/18(日)13時00分50秒

2001/02/18 (日) 13:01:28        [mirai]
日テレがブサイクを苛めているな(;´Д`)ウトゥダ

>  2001/02/18 (日) 13:00:50        [mirai]
> > ちょっと聞きたいのだがいいか?
> ものによる

今日ってビクサイト当たりでイベントあるのか?
ヲタ臭を漂わせた香具師らが豊洲あたりに居たのだが

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

>  2001/02/18 (日) 12:59:17        [mirai]
> ちょっと聞きたいのだがいいか?

ものによる

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

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

http://www.fides.dti.ne.jp/~mprsed/
こっから探してくれ
んで教えてくれ

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

2001/02/18 (日) 12:58:16        [mirai]
ちょっと聞きたいのだがいいか?

>  2001/02/18 (日) 12:58:04        [mirai]
> > 
> > bless { name => shift }, $class;
> > これと
> > $debug->clear;
> > コレって何してるんですケ(?ー`)ノ
> 初期化を呼び出し

そうかヽ(´ー`)ノまた一つオタになた

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

>  2001/02/18 (日) 12:57:36        [mirai]
> まだ結構人来てるんだな。笑い
> http://onputanmoe.virtualave.net/index.htm

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

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

>  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

上へ