無駄なことをして遊ぼう

1 ：01/05/31 〜 最終レス ：12/05/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 カテ一覧 スレ一覧 2ch元 削除依頼 ▲

ソーシャルネットワーキングのシステムを作ろう！ (598)
【勉強するのは】PHPとPerl【どっちが最初？】 (392)
【管理】Trac使ってみよう【してみよう】 (258)
MySQL vs PostgreSQL (378)
ギコタクの「だから逝ってないでしょ」出張所 (412)
Zopeってどうよ インスタンス4つめ (382)
--log9.info------------------
【EP】　神奈川のｼｮｯﾌﾟ＆ｻｰｷｯﾄ 4軒目　【GP】 (492)
千葉県サバゲスレッドGen�\ (816)
【ﾙｰﾙ無視】ゾンビ野郎手配書 4冊目【ﾓﾗﾙ欠落】 (350)
(´･ω･`)自慢の愛銃うｐしてみないか？　7 (135)
【ﾁｬﾘﾃｨ募金】ﾌﾞｽﾄﾞﾙ乙夜と痛儲13【所在不明】 (864)
IDに銃の名前を出すスレ9 (921)
東京マルイガスブローバック総合　Part92 (404)
【個性派】同じ装備は嫌だ！【ウケ狙い】 (535)
イヤッッホォォォオオォオウ！衝動買い！！ 11IYH目 (684)
愛知県にどのようなサバゲーチームがありますか？ (164)
イチロー・ズズキとイティラウ・ナガラッタ (101)
【電動】中華銃個人輸入総合3【ガス】 (544)
【信者乙】黒騎士ドラ【アンチ乙】３土下座 (222)
どんな下らない質問にもマジレスするスレしょの74 (299)
東京マルイ次世代電動ガン　30 (955)
【キティ店員】ＺＥＲＯ【店長愛してる】 (949)
--log55.com------------------
【Fuji xerox】富士ゼロックス裏事情 27台目
職場の恋 Part290
発達障害者は恋愛、結婚を諦めたほうがいいのか
【 客に 】 コンビニ恋愛84【 店員に】
絶対会いたい好きな人の名前を書くと会えるスレ36
好きな人から欲しいもの Part.2
【片思い】もう会えなくなったあの人へ【FO】6
とっても好きな人にメッセージ☆ダミー