無駄なことをして遊ぼう

1 ：01/05/31 〜 最終レス ：09/01/04

#!/usr/bin/perl
use ostream;
cout   << "overloadで遊んでみる。" << endl
    << "Hello Perl world" << endl;
__END__

2 ：

# ostream.pm
package ostream;
use base Exporter;
use Carp;
use strict;
use overload
'<<' => \&print;
our @EXPORT = qw(cout endl);
use constant cout => bless {};
use constant endl => "\n";
sub print{
my $self = shift;
my $arg = shift;
shift and croak "syntax error";
CORE::print($arg);
return $self;
}
__END__

3 ：

#ありゃ…ウケなかったか。
#まあ良いや一人で遊ぼう。
package IO::Stream;
use Carp;
use base 'Exporter';
@EXPORT = qw(endl $cout $cin setw);
use strict;
use overload
'<<' => \&output,
'>>' => \&input,
'""' => sub { ref $_[0] || $_[0] },
fallback=> 1,
;
use vars qw/$cout $cin/;
use constant endl => "\n";
$cout = IO::Stream->cout();
$cin = IO::Stream->cin();
sub new { return bless { type => shift }, ref $_[0] || $_[0]; }
sub cin { return bless { type => 'istream' }, ref $_[0] || $_[0]; }
sub cout{ return bless { type => 'ostream' }, ref $_[0] || $_[0]; }
sub input{
my $self = shift;
($_[1] or index($self->{type}, 'i'))
and croak "syntax error";
if(ref $_[0]){
$self->{bufsize} = ${ shift() };
}else{
if($self->{bufsize}){
$_[0] = substr scalar(<STDIN>), 0, $self->{bufsize};
}else{
$_[0] = <STDIN>;
}
}
return $self;
}
sub setw{
my $len = shift;
return \$len;
}
sub output{
my $self = shift;
my $arg = shift;
($_[0] or index($self->{type}, 'o'))
and croak "syntax error";
print($arg);
return $self;
}
1;
# new周辺が見苦しいが
# 纏めようとすると何故かoverloadがうまく働かないことがあるんだよなぁ…。
# 何でだろ。

4 ：

どうも挙動がおかしい。
>>3でcoutを変数にしたのは、
>>2のコードで
#!/usr/bin/perl
use ostream;
exit;
cout << "test " << endl;
__END__
とやると妙なことになってしまう為。
変数だと結果はマトモだ。

5 ：

C++の本を買ってきた。
iostreamをPerlで実装するのはなかなか難しい…。
頑張れ＞俺

6 ：

マニピュレータの実装が難しい…。

7 ：

難しいことやってるねぇ。
意味不明です・・・私には・・・

8 ：

★削除 ★ｼﾞｹｰﾝ

9 ：

ｼﾞｹｰﾝ

10 ：

ｼﾞｹｰﾝ

11 ：

ooooooooo

12 ：

545

13 ：

a

14 ：

ddd

15 ：

hrthrthrthrthrthrthrthrthrthrthrthrthrt

16 ：

[[[[[

17 ：

gr

18 ：

ppppppppppp

19 ：

hhhhhhhhhh

20 ：

rthjhjrthjrthjrthjrthjrthjrthjrt

21 ：

fdsdfsdfsdfs

22 ：

[i@i@[i@[

23 ：

sdsds

24 ：

dsdfsds

25 ：

ppppp

26 ：

aaa

27 ：

fadsadfsadfsadfs

28 ：

sddsdsdsdsdsds

29 ：

uil;ilu;ilu;ilu;ilu;

30 ：

p@

31 ：

sa

32 ：

asssssssss

33 ：

tyjety

34 ：

すっかり練習場と化している・・・
おいらもだ

35 ：

　　

36 ：

　　　　　　　　

37 ：

　　　　　　　　　　　　　

38 ：

　　　　　　　　　　　　

39 ：

　　　　　　　　　　　　　　　　　　

40 ：

41 ：

新機能か....。

42 ：

efwefwefwefwefwefwefwefwefw

43 ：

efwefwefwefwefwefwefwefwefwefw

44 ：

hoge#hoge

45 ：

>>41
久しぶり。

46 ：

とりあえずパス解析成功風？

47 ：

>>45
うん。ありがと。

48 ：

ふぅ。

49 ：

間違えた。

50 ：

テスト

51 ：

>>47
おひさそっす！
変わってるのか???　　またしょぼマシンぶん回さないと　ｳﾄｩだ（-＿-

52 ：

テストっ

53 ：

print chr hex for split chr++$_**++$_*++$_*++$_*--$_-++$_*++$_-++$_*$_+$_+$_/$_,
'68Z74Z74Z70Z3AZ2FZ2FZ63Z6FZ72Z6EZ2EZ32Z63Z68Z2EZ6EZ65Z74Z2FZ70Z68Z70Z2FZ69Z6EZ64Z65Z78Z32Z2EZ68Z74Z6DZ6C'

54 ：

テスト

55 ：

もいっちょ

56 ：

>>51
どうもですー

57 ：

...

58 ：

Perl

59 ：

hoge#hoge

60 ：

AAA

61 ：

とりっぷてす

62 ：

ｵｶﾔｿって良し

63 ：

http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_

64 ：

http://1

65 ：

http://1/

66 ：

http://pc.2ch.net/

67 ：

http://1.

68 ：

http://1./

69 ：

http://1./

70 ：

http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1./_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1./_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1./_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1./_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1./_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1./_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1./_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1./_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_

71 ：

http://1./()

72 ：

http://1./&

73 ：

�

74 ：

http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_

75 ：

http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_.
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_.
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_.
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_.
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_.
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_.
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_.
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_.
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.

76 ：

http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
http://_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
http://_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
http://_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
http://_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
http://_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./

77 ：

http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./

78 ：

&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
&rlo;http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
&rlo;http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
&rlo;http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
&rlo;http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./
&rlo;http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_./
&rlo;http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_./
&rlo;http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_./
&rlo;http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_./
&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_./

79 ：

&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_
&rlo;http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_
&rlo;http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_
&rlo;http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_
&rlo;http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_
&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_
&rlo;http://1./_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_
&rlo;http://1./_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_
&rlo;http://1./_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_
&rlo;http://1./_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_
&rlo;http://1./_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_

80 ：

実験〜。

81 ：

あげてみーる

82 ：

あがってない

83 ：

（＾＾）

84 ：

（＾＾）

85 ：

（＾＾）

86 ：

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

87 ：

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

88 ：

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

89 ：

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

90 ：

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

91 ：

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

92 ：

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

93 ：

？？

94 ：

てす

95 ：

てすと

96 ：

>>1−7で終了。

97 ：

さらしあげ

98 ：

#!/usr/bin/exit
#!/usr/bin/shutdown

99 ：

今日ヤバイんだよ
いつもはこんなベランベランに掲示板で書き込んだりしないのに
どーでもいいようなことを書き込みたくてしょうがない
荒らしては無いよ！

100read 1read

1read 100read

TOP カテ一覧 スレ一覧 削除依頼 ▲
・　次のスレ
Servlet
＠＠Ｐｅｒｌチャットでの荒らし対策＠＠
Namazu全文検索システム
ローカルルールを作ろう＠WEBプログラミング板