ここはｦﾀ板の看板を下ろした方が良いかもわからんね

> > なんでそんなに焦ってるよ
> perl解説書かｻｲﾄ探してる(;ﾟДﾟ)常に

（´ー`）ノ⌒θhttp://www.rfs.co.jp/sitebuilder/perl/04_01.html


参考：2001/02/18(日)13時16分54秒

> > 恥あやで聞く話題ではないと思ってここで聞いたのだが(;´Д`)
> ここで聞く話題じゃないよ

ﾌﾟﾛｸﾞﾗﾑネタは晩のほうがいいかも。

参考：2001/02/18(日)13時16分10秒

> > 君がｼﾝﾀｯｸｽｴﾗｰだよ(;´Д`)
> ほんとに分からんのだよ
> 教えておくれ

動かないときはﾌｫｰﾏｯﾄだよ(;´Д`)

参考：2001/02/18(日)13時14分22秒

> > 何処にあった解説書よ(;ﾟДﾟ)
> なんでそんなに焦ってるよ

perl解説書かｻｲﾄ探してる(;ﾟДﾟ)常に

参考：2001/02/18(日)13時09分41秒

> > 恥あやで聞く話題ではないと思ってここで聞いたのだが(;´Д`)
> ここで聞く話題じゃないよ

ﾋﾞｸｻｲﾄｱﾀﾘﾉｲﾍﾞﾝﾄﾓｶ?

参考：2001/02/18(日)13時16分10秒

> > 君がｼﾝﾀｯｸｽｴﾗｰだよ(;´Д`)
> ほんとに分からんのだよ
> 教えておくれ

new('./debug.log')

参考：2001/02/18(日)13時14分22秒

ほとばしる汁

> > はじあや行き
> 恥あやで聞く話題ではないと思ってここで聞いたのだが(;´Д`)

ここで聞く話題じゃないよ

参考：2001/02/18(日)13時14分56秒

> > ｦﾀﾁﾞﾓに聞けばわかると思ったがﾀﾞﾒか(;´Д`)
> はじあや行き

恥あやで聞く話題ではないと思ってここで聞いたのだが(;´Д`)

参考：2001/02/18(日)13時13分44秒

> > 漏れを恥いてぇヽ(´ー｀)ノ 
> おまえ恥を知れよ
> 

あふぅヽ(*´ー｀)ノ 

参考：2001/02/18(日)13時13分24秒

> > my $debug = new Debug::debug('./debug.log');
> > こういうこと？
> > やっぱりsyntax error
> 君がｼﾝﾀｯｸｽｴﾗｰだよ(;´Д`)

ほんとに分からんのだよ
教えておくれ

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

> ｦﾀﾁﾞﾓに聞けばわかると思ったがﾀﾞﾒか(;´Д`)

はじあや行き

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

> 漏れを恥いてぇヽ(´ー｀)ノ 

おまえ恥を知れよ



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

あれ、ここはじあやになったのか。またくるよ。

漏れを恥いてぇヽ(´ー｀)ノ 

ｦﾀﾁﾞﾓに聞けばわかると思ったがﾀﾞﾒか(;´Д`)

> > 妖精さんいる？
> > j-honeから書きこめるようにしてくだちぃヽ(´ー｀)ノ
> ( '-')ﾉ どういうエラーで書き込めませんか?
>         デジホン持ってないのでわかりません。

だれ？

参考：2001/02/18(日)13時07分20秒

> > Debug::debug
> my $debug = new Debug::debug('./debug.log');
> こういうこと？
> やっぱりsyntax error

君がｼﾝﾀｯｸｽｴﾗｰだよ(;´Д`)

参考：2001/02/18(日)13時11分32秒

> > サンクスコ、一行進んだ
> > my $debug = new debug('./debug.log');
> > このコンストラクタの呼び出しでsyntax errorなのだけど
> > これの正しい呼び出し方分かる？
> Debug::debug

my $debug = new Debug::debug('./debug.log');
こういうこと？
やっぱりsyntax error

参考：2001/02/18(日)13時09分50秒

> カイケツだよ

ﾍｲ!

参考：2001/02/18(日)13時08分39秒

> > 妖精さんいる？
> > j-honeから書きこめるようにしてくだちぃヽ(´ー｀)ノ
> ( '-')ﾉ どういうエラーで書き込めませんか?
>         デジホン持ってないのでわかりません。

ホンモンか？

参考：2001/02/18(日)13時07分20秒

こんな天気のいい日曜日なのに漏れが部屋にひきこもってしまってるのは
みんなお母さんのせいだよ　(;´Д`)

> > 妖精さんいる？
> > j-honeから書きこめるようにしてくだちぃヽ(´ー｀)ノ
> ( '-')ﾉ どういうエラーで書き込めませんか?
>         デジホン持ってないのでわかりません。

妖精さんだぁヽ(´ー｀)ノわーい

参考：2001/02/18(日)13時07分20秒

> 今気づいたがこのバナーいいな
> http://www.geocities.co.jp/Milkyway-Lynx/2650/mirai-st5.gif

これはどうかと思うがな

http://www.geocities.co.jp/Milkyway-Lynx/2650/mirai-st14.gif

参考：2001/02/18(日)13時07分45秒

> > requireじゃなくて、
> > 	use "debug.pl"
> > ってことでしょ？
> サンクスコ、一行進んだ
> my $debug = new debug('./debug.log');
> このコンストラクタの呼び出しでsyntax errorなのだけど
> これの正しい呼び出し方分かる？

Debug::debug

参考：2001/02/18(日)13時08分47秒

> > 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(日)13時07分18秒

> requireじゃなくて、
> 	use "debug.pl"
> ってことでしょ？

サンクスコ、一行進んだ

my $debug = new debug('./debug.log');
このコンストラクタの呼び出しでsyntax errorなのだけど
これの正しい呼び出し方分かる？


参考：2001/02/18(日)13時05分30秒

カイケツだよ

今気づいたがこのバナーいいな

http://www.geocities.co.jp/Milkyway-Lynx/2650/mirai-st5.gif

> 妖精さんいる？
> j-honeから書きこめるようにしてくだちぃヽ(´ー｀)ノ

( '-')ﾉ どういうエラーで書き込めませんか?
        デジホン持ってないのでわかりません。

参考：2001/02/18(日)10時30分15秒

> > 
> > 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(日)13時03分20秒

requireじゃなくて、
	use "debug.pl"
ってことでしょ？

> > 今日ってﾋﾞｸｻｲﾄ当たりでｲﾍﾞﾝﾄあるのか？
> > ｦﾀ臭を漂わせた香具師らが豊洲あたりに居たのだが
> 豊洲であるのではないか？

ﾋﾞｸｻｲﾄ方面へ行くﾊﾞｽ停留所に屯していた。
またﾊﾞｽが異常なｺﾐ具合なのだが

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

全て2局ﾈﾀのﾘｻｲｸﾙ

> > サンクスコ
> > でも違ったみたい
> 
> 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時00分50秒

日テレがﾌﾞｻｲｸを苛めているな(;´Д`)ｳﾄｩﾀﾞ

> > ちょっと聞きたいのだがいいか？
> ものによる

今日ってﾋﾞｸｻｲﾄ当たりでｲﾍﾞﾝﾄあるのか？
ｦﾀ臭を漂わせた香具師らが豊洲あたりに居たのだが

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

> ちょっと聞きたいのだがいいか？

ものによる

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