無駄なことをして遊ぼう

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

#!/usr/bin/perl
use ostream;

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

__END__

[0002 名無しさん＠お腹いっぱい。 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__

[0003 名無しさん＠お腹いっぱい。 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がうまく働かないことがあるんだよなぁ…。
# 何でだろ。

[0004 名無しさん＠お腹いっぱい。 2001/05/31(木) 21:09 ID:???]

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

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

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

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

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

[0007 2001/06/27(水) 23:55 ID:???]

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

[0008 ☆"削除" ☆削;除 ☆ 2001/07/06(金) 16:41 ID:???]

★削除 ★ｼﾞｹｰﾝ

[0009 ☆"削除" 2001/07/06(金) 16:41 ID:???]

ｼﾞｹｰﾝ

[0010 ☆"削除" 2001/07/06(金) 16:42 ID:???]

ｼﾞｹｰﾝ

[0011 op ◆wcLA0jlk 2001/08/10(金) 05:17 ID:???]

ooooooooo

[0012 jjjjjjop ◆wcLA0jlk 2001/08/10(金) 05:17 ID:???]

545

[0013 o ◆s/Ha0kB. 2001/08/10(金) 05:18 ID:???]

a

[0014 8 ◆9XUsrjzU 2001/08/10(金) 05:18 ID:???]

ddd

[0015 wwwwwwww ◆ZfDAZmLo 2001/08/10(金) 05:23 ID:???]

hrthrthrthrthrthrthrthrthrthrthrthrthrt

[0016 ewewewewew ◆mcT4V1x6 2001/08/10(金) 05:24 ID:???]

[[[[[

[0017 aaaaa ◆h6FlXXjw 2001/08/10(金) 05:24 ID:???]

gr

[0018 erwy ◆5yxooO3k 2001/08/10(金) 05:25 ID:???]

ppppppppppp

[0019 pppppppp ◆1HWnvWrM 2001/08/10(金) 05:28 ID:???]

hhhhhhhhhh

[0020 p#%$ ◆5Wn6MfQM 2001/08/10(金) 05:29 ID:???]

rthjhjrthjrthjrthjrthjrthjrthjrt

[0021 ppppppp ◆Y1X8zhZI 2001/08/10(金) 05:30 ID:???]

fdsdfsdfsdfs

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

[i@i@[i@[

[0023 @@ ◆hOpvsy1U 2001/08/10(金) 05:31 ID:???]

sdsds

[0024 ppp ◆/EYJojak 2001/08/10(金) 05:31 ID:???]

dsdfsds

[0025 $$$ ◆Lw2xKWmg 2001/08/10(金) 05:32 ID:???]

ppppp

[0026 pppppp ◆VmyA10O6 2001/08/10(金) 05:32 ID:???]

aaa

[0027 222222 ◆XztSndzY 2001/08/10(金) 05:33 ID:???]

fadsadfsadfsadfs

[0028 2323 ◆Qv03JASo 2001/08/10(金) 05:33 ID:???]

sddsdsdsdsdsds

[0029 34343434 ◆PD8t76Zs 2001/08/10(金) 05:34 ID:???]

uil;ilu;ilu;ilu;ilu;

[0030 qqq ◆9XUsrjzU 2001/08/10(金) 05:34 ID:???]

p@

[0031 m ◆B/LpRnPE 2001/08/10(金) 06:14 ID:???]

sa

[0032 ppp ◆A9wfXmXE 2001/08/10(金) 17:16 ID:???]

asssssssss

[0033 ppp ◆okHrckLA 2001/08/10(金) 17:19 ID:???]

tyjety

[0034 \ ◆G.kfKDDY 2001/08/12(日) 14:44 ID:???]

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

おいらもだ

[0035 ◆GsPeedg. 2001/08/12(日) 15:11 ID:???]

　　

[0036 ◆POWErJ6o 2001/08/12(日) 15:12 ID:???]

　　　　　　　　

[0037 ◆PoWerxxg 2001/08/12(日) 15:12 ID:???]

　　　　　　　　　　　　　

[0038 ◆PERLWCdo 2001/08/12(日) 15:12 ID:???]

　　　　　　　　　　　　

[0039 ◆Sexghack 2001/08/12(日) 15:13 ID:???]

　　　　　　　　　　　　　　　　　　

[0040 名無しさん ◆PerlMppc 2001/08/12(日) 18:11 ID:???]

[0041 _gunzip ◆Edmx0RJw 2001/08/12(日) 21:54 ID:???]

新機能か....。

[0042 asaa ◆7CRfGlsw 2001/08/12(日) 21:55 ID:???]

efwefwefwefwefwefwefwefwefw

[0043 asaa ◆ws/3jvyI 2001/08/12(日) 22:04 ID:???]

efwefwefwefwefwefwefwefwefwefw

[0044 hoge ◆RbZL6NeQ 2001/08/12(日) 22:14 ID:???]

hoge#hoge

[0045 Perl ◆UOKcssdY 2001/08/12(日) 22:16 ID:???]

>>41
久しぶり。

[0046 ◆skperlJw 2001/08/12(日) 23:09 ID:???]

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

[0047 _gunzip ◆JPerlueo 2001/08/13(月) 00:15 ID:???]

>>45
うん。ありがと。

[0048 _gunzip ◆Mr9K.VcU 2001/08/13(月) 00:20 ID:???]

ふぅ。

[0049 _gunzip ◆Perlwn7g 2001/08/13(月) 00:21 ID:???]

間違えた。

[0050 名無しさん ◆FT6E2bsA 2001/08/13(月) 04:34 ID:???]

テスト

[0051 GIKO＠ ◆L4g4RxYk 2001/08/13(月) 04:47 ID:???]

>>47
おひさそっす！

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

[0052 名無しさん ◆PerleJn6 2001/08/13(月) 04:51 ID:???]

テストっ

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

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

[0054 ◆GpSwX8mo 2001/08/13(月) 21:28 ID:???]

テスト

[0055 ◆YSo.f4Pk 2001/08/13(月) 21:29 ID:???]

もいっちょ

[0056 _gunzip ◆LnaPyfj. 2001/08/15(水) 07:53 ID:???]

>>51
どうもですー

[0057 _gunzip ◆PerlXsxc 2001/08/15(水) 07:54 ID:???]

...