5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

無駄なことをして遊ぼう

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:???
a

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:???
gr

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:???
p@

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

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

8 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)