無駄なことをして遊ぼう

1 ：名無しさん＠お腹いっぱい。：2001/05/31(木) 16:41 ID:/ItWxlxM

#!/usr/bin/perl
use ostream;

cout << "overloadで遊んでみる。" << endl
<< "Hello Perl world" << endl;

__END__

2 ：名無しさん＠お腹いっぱい。：2001/05/31(木) 16:42 ID:/ItWxlxM

# 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 ：名無しさん＠お腹いっぱい。：2001/05/31(木) 20:58 ID:???

#ありゃ…ウケなかったか。
#まあ良いや一人で遊ぼう。
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 ：名無しさん＠お腹いっぱい。：2001/05/31(木) 21:09 ID:???

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

5 ：名無しさん＠お腹いっぱい。：2001/06/01(金) 22:11 ID:???

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

6 ：名無しさん＠お腹いっぱい。：2001/06/02(土) 11:14 ID:???

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

7 ：　：2001/06/27(水) 23:55 ID:???

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

8 ：☆"削除" ☆削;除 ☆：2001/07/06(金) 16:41 ID:???

★削除 ★ｼﾞｹｰﾝ

9 ：☆"削除"：2001/07/06(金) 16:41 ID:???

ｼﾞｹｰﾝ

10 ：☆"削除"：2001/07/06(金) 16:42 ID:???

ｼﾞｹｰﾝ

11 ：op ◆wcLA0jlk：2001/08/10(金) 05:17 ID:???

ooooooooo

12 ：jjjjjjop ◆wcLA0jlk：2001/08/10(金) 05:17 ID:???

545

13 ：o ◆s/Ha0kB.：2001/08/10(金) 05:18 ID:???

14 ：8 ◆9XUsrjzU：2001/08/10(金) 05:18 ID:???

ddd

15 ：wwwwwwww ◆ZfDAZmLo：2001/08/10(金) 05:23 ID:???

hrthrthrthrthrthrthrthrthrthrthrthrthrt

16 ：ewewewewew ◆mcT4V1x6：2001/08/10(金) 05:24 ID:???

[[[[[

17 ：aaaaa ◆h6FlXXjw：2001/08/10(金) 05:24 ID:???

18 ：erwy ◆5yxooO3k：2001/08/10(金) 05:25 ID:???

ppppppppppp

19 ：pppppppp ◆1HWnvWrM：2001/08/10(金) 05:28 ID:???

hhhhhhhhhh

20 ：p#%$ ◆5Wn6MfQM：2001/08/10(金) 05:29 ID:???

rthjhjrthjrthjrthjrthjrthjrthjrt

21 ：ppppppp ◆Y1X8zhZI：2001/08/10(金) 05:30 ID:???

fdsdfsdfsdfs

22 ：@[@[@[ ◆rGxmgIc.：2001/08/10(金) 05:30 ID:???

[i@i@[i@[

23 ：@@ ◆hOpvsy1U：2001/08/10(金) 05:31 ID:???

sdsds

24 ：ppp ◆/EYJojak：2001/08/10(金) 05:31 ID:???

dsdfsds

25 ：$$$ ◆Lw2xKWmg：2001/08/10(金) 05:32 ID:???

ppppp

26 ：pppppp ◆VmyA10O6：2001/08/10(金) 05:32 ID:???

aaa

27 ：222222 ◆XztSndzY：2001/08/10(金) 05:33 ID:???

fadsadfsadfsadfs

28 ：2323 ◆Qv03JASo：2001/08/10(金) 05:33 ID:???

sddsdsdsdsdsds

29 ：34343434 ◆PD8t76Zs：2001/08/10(金) 05:34 ID:???

uil;ilu;ilu;ilu;ilu;

30 ：qqq ◆9XUsrjzU：2001/08/10(金) 05:34 ID:???

31 ：m ◆B/LpRnPE：2001/08/10(金) 06:14 ID:???

32 ：ppp ◆A9wfXmXE：2001/08/10(金) 17:16 ID:???

asssssssss

33 ：ppp ◆okHrckLA：2001/08/10(金) 17:19 ID:???

tyjety

34 ：\ ◆G.kfKDDY：2001/08/12(日) 14:44 ID:???

すっかり練習場と化している・・・

おいらもだ

35 ： ◆GsPeedg.：2001/08/12(日) 15:11 ID:???

36 ： ◆POWErJ6o：2001/08/12(日) 15:12 ID:???

37 ： ◆PoWerxxg：2001/08/12(日) 15:12 ID:???

38 ： ◆PERLWCdo：2001/08/12(日) 15:12 ID:???

39 ： ◆Sexghack：2001/08/12(日) 15:13 ID:???

40 ：名無しさん ◆PerlMppc：2001/08/12(日) 18:11 ID:???

41 ：_gunzip ◆Edmx0RJw：2001/08/12(日) 21:54 ID:???

新機能か....。

42 ：asaa ◆7CRfGlsw：2001/08/12(日) 21:55 ID:???

efwefwefwefwefwefwefwefwefw

43 ：asaa ◆ws/3jvyI：2001/08/12(日) 22:04 ID:???

efwefwefwefwefwefwefwefwefwefw

44 ：hoge ◆RbZL6NeQ：2001/08/12(日) 22:14 ID:???

hoge#hoge

45 ：Perl ◆UOKcssdY：2001/08/12(日) 22:16 ID:???

>>41
久しぶり。

46 ：◆skperlJw：2001/08/12(日) 23:09 ID:???

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

47 ：_gunzip ◆JPerlueo：2001/08/13(月) 00:15 ID:???

>>45
うん。ありがと。

48 ：_gunzip ◆Mr9K.VcU：2001/08/13(月) 00:20 ID:???

ふぅ。

49 ：_gunzip ◆Perlwn7g：2001/08/13(月) 00:21 ID:???

間違えた。

50 ：名無しさん ◆FT6E2bsA：2001/08/13(月) 04:34 ID:???

テスト

51 ：GIKO＠ ◆L4g4RxYk：2001/08/13(月) 04:47 ID:???

>>47
おひさそっす！

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

52 ：名無しさん ◆PerleJn6：2001/08/13(月) 04:51 ID:???

テストっ

53 ：名無しさん◇一行野郎：2001/08/13(月) 15:50 ID:???

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

54 ：◆GpSwX8mo：2001/08/13(月) 21:28 ID:???

テスト

55 ：◆YSo.f4Pk：2001/08/13(月) 21:29 ID:???

もいっちょ

56 ：_gunzip ◆LnaPyfj.：2001/08/15(水) 07:53 ID:???

>>51
どうもですー

57 ：_gunzip ◆PerlXsxc：2001/08/15(水) 07:54 ID:???

...

58 ：AAA ◆UOKcssdY ：2001/08/23(木) 23:17 ID:???

Perl

59 ：hoge ◆RbZL6NeQ ：01/09/21 10:39 ID:???

hoge#hoge

60 ：antique ◆ERF1YrA. ：01/09/21 10:40 ID:???

AAA

61 ：401 ◆PHP41h4. ：02/01/05 20:07 ID:???

とりっぷてす

62 ：K.OKADA ◆18GD4M5g ：02/01/07 17:46 ID:???

ｵｶﾔｿ逝って良し

63 ：a：02/01/09 04:30 ID:???

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

64 ：a：02/01/09 04:31 ID:???

http://1

65 ：a：02/01/09 04:31 ID:???

http://1/

66 ：a：02/01/09 04:31 ID:???

http://pc.2ch.net/

67 ：a：02/01/09 04:32 ID:???

http://1.

68 ：a：02/01/09 04:32 ID:???

http://1./

69 ：a：02/01/09 04:33 ID:???

http://1./

70 ：a：02/01/09 04:33 ID:???

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

71 ：a：02/01/09 04:34 ID:???

http://1./()

72 ：a：02/01/09 04:34 ID:???

http://1./&

73 ：a：02/01/09 04:40 ID:???

�

74 ：a：02/01/09 04:42 ID:???

75 ：a：02/01/09 04:43 ID:???

76 ：a：02/01/09 04:43 ID:???

77 ：a：02/01/09 04:44 ID:???

78 ：a：02/01/09 04:44 ID:???

79 ：a：02/01/09 04:45 ID:???

80 ：無題Logo ◆216/WEbc ：02/01/14 18:28 ID:???

実験～。

81 ：nobodyさん：02/12/06 12:44 ID:???

あげてみーる

82 ：◇：02/12/12 01:21 ID:???

あがってない

83 ：山崎渉：03/01/15 13:42 ID:???

（＾＾）

84 ：山崎渉：03/03/13 17:27 ID:???

（＾＾）

85 ：山崎渉：03/04/17 12:21 ID:???

（＾＾）

86 ：山崎渉：03/04/20 06:13 ID:???

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

87 ：山崎渉：03/05/22 02:14 ID:???

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

88 ：山崎渉：03/05/28 17:13 ID:???

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

89 ：山崎渉：03/07/15 11:20 ID:???

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

90 ：山崎渉：03/08/02 02:32 ID:???

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

91 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 05:08 ID:???

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

92 ：山崎渉：03/08/15 23:15 ID:???

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

93 ：nobodyさん：04/10/03 17:26:58 ID:???

？？

94 ： ◆hO1prOgrAM ：04/10/11 23:34:07 ID:???

てす

95 ：うおお：04/10/13 20:06:25 ID:???

てすと

96 ：電脳プリオン：04/12/11 19:48:06 ID:???

>>1－7で終了。

97 ：nobodyさん：05/03/05 11:19:41 ID:???

さらしあげ

98 ： ◆EybMKw1HJA ：2005/05/05(木) 15:57:20 ID:??? BE:351994379-

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

99 ：nobodyさん：2007/07/02(月) 18:22:58 ID:???

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

100 ：nobodyさん：2009/01/04(日) 20:34:08 ID:???

100gt

101 ：nobodyさん：2009/01/04(日) 20:34:31 ID:tUrF+z2D

sosite
agemasune

102 ：nobodyさん：2009/01/04(日) 20:56:53 ID:???

PHPも頼む

103 ：nobodyさん：2009/01/04(日) 22:49:38 ID:f9P2VP+w

echo(print_r(var_dump(die(print("Hello world.")))));

104 ：【関電 66.9 %】【18.5m】電脳プリオン ◆GDSZsj1GHk ：2012/05/04(金) 15:27:06.62 ID:??? BE:162164328-PLT(12079)

　　∧＿∧
　（　・∀・）　　　 |　| ｶﾞｶﾞｯ
　と　　　　）　　　 |　|
　　Ｙ　/ノ　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>90
　　　　　　　　　　/ ←>>86

105 ：nobodyさん：2013/12/17(火) 00:15:15.18 ID:QNNJf0I3

へぇー

106 ：nobodyさん：2014/01/09(木) 02:58:32.44 ID:???

ムダ

107 ：い：2014/01/23(木) 21:10:07.68 ID:si9Y1cbr

★☆

108 ：nobodyさん：2014/01/27(月) 00:25:33.49 ID:???

全て無駄じゃない

109 ：nobodyさん：2014/08/30(土) 23:49:45.33 ID:???

ぬるぽ