01/05/31 16:42 /ItWxlxM.net
# 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:名無しさん＠お腹いっぱい。
01/05/31 20:58 .net
#ありゃ…ウケなかったか。
#まあ良いや一人で遊ぼう。
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:名無しさん＠お腹いっぱい。
01/05/31 21:09 .net
どうも挙動がおかしい。
>>3でcoutを変数にしたのは、
>>2のコードで
#!/usr/bin/perl
use ostream;
exit;
cout << "test " << endl;
__END__
とやると妙なことになってしまう為。
変数だと結果はマトモだ。
5:名無しさん＠お腹いっぱい。
01/06/01 22:11 .net
C++の本を買ってきた。
iostreamをPerlで実装するのはなかなか難しい…。
頑張れ＞俺
6:名無しさん＠お腹いっぱい。
01/06/02 11:14 .net
マニピュレータの実装が難しい…。
7:
01/06/27 23:55 .net
難しいことやってるねぇ。
意味不明です・・・私には・・・
8:☆"削除" ☆削;除 ☆
01/07/06 16:41 .net
★削除 ★ｼﾞｹｰﾝ
9:☆"削除"
01/07/06 16:41 .net
ｼﾞｹｰﾝ
10:☆"削除"
01/07/06 16:42 .net
ｼﾞｹｰﾝ
11:op ◆wcLA0jlk
01/08/10 05:17 .net
ooooooooo
12:jjjjjjop ◆wcLA0jlk
01/08/10 05:17 .net
545
13:o ◆s/Ha0kB.
01/08/10 05:18 .net
a
14:8 ◆9XUsrjzU
01/08/10 05:18 .net
ddd
15:wwwwwwww ◆ZfDAZmLo
01/08/10 05:23 .net
hrthrthrthrthrthrthrthrthrthrthrthrthrt
16:ewewewewew ◆mcT4V1x6
01/08/10 05:24 .net
[[[[[
17:aaaaa ◆h6FlXXjw
01/08/10 05:24 .net
gr
18:erwy ◆5yxooO3k
01/08/10 05:25 .net
ppppppppppp
19:pppppppp ◆1HWnvWrM
01/08/10 05:28 .net
hhhhhhhhhh
20:p#%$ ◆5Wn6MfQM
01/08/10 05:29 .net
rthjhjrthjrthjrthjrthjrthjrthjrt
21:ppppppp ◆Y1X8zhZI
01/08/10 05:30 .net
fdsdfsdfsdfs
22:@[@[@[ ◆rGxmgIc.
01/08/10 05:30 .net
[i@i@[i@[
23:@@ ◆hOpvsy1U
01/08/10 05:31 .net
sdsds
24:ppp ◆/EYJojak
01/08/10 05:31 .net
dsdfsds
25:$$$ ◆Lw2xKWmg
01/08/10 05:32 .net
ppppp
26:pppppp ◆VmyA10O6
01/08/10 05:32 .net
aaa
27:222222 ◆XztSndzY
01/08/10 05:33 .net
fadsadfsadfsadfs
28:2323 ◆Qv03JASo
01/08/10 05:33 .net
sddsdsdsdsdsds
29:34343434 ◆PD8t76Zs
01/08/10 05:34 .net
uil;ilu;ilu;ilu;ilu;
30:qqq ◆9XUsrjzU
01/08/10 05:34 .net
p@
31:m ◆B/LpRnPE
01/08/10 06:14 .net
sa
32:ppp ◆A9wfXmXE
01/08/10 17:16 .net
asssssssss
33:ppp ◆okHrckLA
01/08/10 17:19 .net
tyjety
34:\ ◆G.kfKDDY
01/08/12 14:44 .net
すっかり練習場と化している・・・
おいらもだ
35: ◆GsPeedg.
01/08/12 15:11 .net
36: ◆POWErJ6o
01/08/12 15:12 .net
37: ◆PoWerxxg
01/08/12 15:12 .net
38: ◆PERLWCdo
01/08/12 15:12 .net
39: ◆Sexghack
01/08/12 15:13 .net
40:名無しさん ◆PerlMppc
01/08/12 18:11 .net
41:_gunzip ◆Edmx0RJw
01/08/12 21:54 .net
新機能か....。
42:asaa ◆7CRfGlsw
01/08/12 21:55 .net
efwefwefwefwefwefwefwefwefw
43:asaa ◆ws/3jvyI
01/08/12 22:04 .net
efwefwefwefwefwefwefwefwefwefw
44:hoge ◆RbZL6NeQ
01/08/12 22:14 .net
hoge#hoge
45:Perl ◆UOKcssdY
01/08/12 22:16 .net
>>41
久しぶり。
46:◆skperlJw
01/08/12 23:09 .net
とりあえずパス解析成功風？
47:_gunzip ◆JPerlueo
01/08/13 00:15 .net
>>45
うん。ありがと。
48:_gunzip ◆Mr9K.VcU
01/08/13 00:20 .net
ふぅ。
49:_gunzip ◆Perlwn7g
01/08/13 00:21 .net
間違えた。
50:名無しさん ◆FT6E2bsA
01/08/13 04:34 .net
テスト
51:GIKO＠ ◆L4g4RxYk
01/08/13 04:47 .net
>>47
おひさそっす！
変わってるのか??? またしょぼマシンぶん回さないと ｳﾄｩだ（-＿-
52:名無しさん ◆PerleJn6
01/08/13 04:51 .net
テストっ
53:名無しさん◇一行野郎
01/08/13 15:50 .net
print chr hex for split chr++$_**++$_*++$_*++$_*--$_-++$_*++$_-++$_*$_+$_+$_/$_,
'68Z74Z74Z70Z3AZ2FZ2FZ63Z6FZ72Z6EZ2EZ32Z63Z68Z2EZ6EZ65Z74Z2FZ70Z68Z70Z2FZ69Z6EZ64Z65Z78Z32Z2EZ68Z74Z6DZ6C'
54:◆GpSwX8mo
01/08/13 21:28 .net
テスト
55:◆YSo.f4Pk
01/08/13 21:29 .net
もいっちょ
56:_gunzip ◆LnaPyfj.
01/08/15 07:53 .net
>>51
どうもですー
57:_gunzip ◆PerlXsxc
01/08/15 07:54 .net
...
58:AAA ◆UOKcssdY
01/08/23 23:17 .net
Perl
59:hoge ◆RbZL6NeQ
01/09/21 10:39 .net
hoge#hoge
60:antique ◆ERF1YrA.
01/09/21 10:40 .net
AAA
61:401 ◆PHP41h4.
02/01/05 20:07 .net
とりっぷてす
62:K.OKADA ◆18GD4M5g
02/01/07 17:46 .net
ｵｶﾔｿ逝って良し
63:a
02/01/09 04:30 .net
URLﾘﾝｸ(1_)<))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
URLﾘﾝｸ(1_^)<))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
URLﾘﾝｸ(1_^-^)<)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
URLﾘﾝｸ(1_)<))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
URLﾘﾝｸ(1_-^)<))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
URLﾘﾝｸ(1_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
64:a
02/01/09 04:31 .net
URLﾘﾝｸ(1)
65:a
02/01/09 04:31 .net
URLﾘﾝｸ(1)
66:a
02/01/09 04:31 .net
URLﾘﾝｸ(pc.2ch.net)
67:a
02/01/09 04:32 .net
URLﾘﾝｸ(1.)
68:a
02/01/09 04:32 .net
URLﾘﾝｸ(1.)
69:a
02/01/09 04:33 .net
URLﾘﾝｸ(1.)
70:a
02/01/09 04:33 .net
URLﾘﾝｸ(1.)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
URLﾘﾝｸ(1.)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
URLﾘﾝｸ(1.))(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
URLﾘﾝｸ(1.)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
71:a
02/01/09 04:34 .net
URLﾘﾝｸ(1.)()
72:a
02/01/09 04:34 .net
URLﾘﾝｸ(1.)
73:a
02/01/09 04:40 .net
�
74:a
02/01/09 04:42 .net
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_)<)
URLﾘﾝｸ(_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_)<)
URLﾘﾝｸ(_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_)<)
URLﾘﾝｸ(_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_)<)
URLﾘﾝｸ(_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_)<)
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_)
75:a
02/01/09 04:43 .net
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.)<)
URLﾘﾝｸ(_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_.)<)
URLﾘﾝｸ(_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_.)<)
URLﾘﾝｸ(_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_.)<)
URLﾘﾝｸ(_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_.)<)
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.)
76:a
02/01/09 04:43 .net
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.)
URLﾘﾝｸ(_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_.)
URLﾘﾝｸ(_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_.)
URLﾘﾝｸ(_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_.)
URLﾘﾝｸ(_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_.)
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.)
URLﾘﾝｸ(_oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^_.)
URLﾘﾝｸ(_^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-_.)
URLﾘﾝｸ(_-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^_.)
URLﾘﾝｸ(_^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo_.)
URLﾘﾝｸ(_o^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^oo^-^o_.)
77:a
02/01/09 04:44 .net
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
URLﾘﾝｸ(1.)
78:a
02/01/09 04:44 .net
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
79:a
02/01/09 04:45 .net
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
&rlo;URLﾘﾝｸ(1.)
80:無題Logo ◆216/WEbc
02/01/14 18:28 .net
実験～。
81:nobodyさん
02/12/06 12:44 .net
あげてみーる
82:◇
02/12/12 01:21 .net
あがってない
83:山崎渉
03/01/15 13:42 .net
（＾＾）
84:山崎渉
03/03/13 17:27 .net
（＾＾）
85:山崎渉
03/04/17 12:21 .net
（＾＾）
86:山崎渉
03/04/20 06:13 .net
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
87:山崎渉
03/05/22 02:14 .net
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
88:山崎渉
03/05/28 17:13 .net
∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎―◎ 山崎渉
89:山崎 渉
03/07/15 11:20 .net
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
90:山崎 渉
03/08/02 02:32 .net
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
91:ぼるじょあ ◆ySd1dMH5Gk
03/08/02 05:08 .net
∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎―――◎ 山崎渉&ぼるじょあ
92:山崎 渉
03/08/15 23:15 .net
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
93:nobodyさん
04/10/03 17:26:58 .net
？？
94: ◆hO1prOgrAM
04/10/11 23:34:07 .net
てす
95:うおお
04/10/13 20:06:25 .net
てすと
96:電脳プリオン
04/12/11 19:48:06 .net
>>1－7で終了。
97:nobodyさん
05/03/05 11:19:41 .net
さらしあげ
98: ◆EybMKw1HJA
05/05/05 15:57:20 .net ?
#!/usr/bin/exit
#!/usr/bin/shutdown
99:nobodyさん
07/07/02 18:22:58 .net
今日ヤバイんだよ
いつもはこんなベランベランに掲示板で書き込んだりしないのに
どーでもいいようなことを書き込みたくてしょうがない
荒らしては無いよ！
100:nobodyさん
09/01/04 20:34:08 .net
100gt
101:nobodyさん
09/01/04 20:34:31 tUrF+z2D.net
sosite
agemasune
102:nobodyさん
09/01/04 20:56:53 .net
PHPも頼む
103:nobodyさん
09/01/04 22:49:38 f9P2VP+w.net
echo(print_r(var_dump(die(print("Hello world.")))));
104: 【関電 66.9 %】 【18.5m】 電脳プリオン ◆GDSZsj1GHk
12/05/04 15:27:06.62 .net ?PLT(12079)
∧＿∧
（ ・∀・） | | ｶﾞｶﾞｯ
と ） | |
Ｙ /ノ .人
/ ） .人 < >_∧∩
＿/し' < >_∧∩｀Д´）/
（＿フ彡 Ｖ｀Д´）/ / ←>>90
/ ←>>86
105:nobodyさん
13/12/17 00:15:15.18 QNNJf0I3.net
へぇー
106:nobodyさん
14/01/09 02:58:32.44 .net
ムダ
107:い
14/01/23 21:10:07.68 si9Y1cbr.net
★☆
108:nobodyさん
14/01/27 00:25:33.49 .net
全て無駄じゃない
109:nobodyさん
15/11/16 09:07:15.11 G1hNhQfu.net
就労移行支援事業所は、利用者1名×1日で行政から1万円前後の補助金が出てるんだよね。。
110:ギンコ ◆BonGinkoCc
16/01/23 07:08:10.57 .net
パナソニックのBD-Rにて、10個のセッションを作るような書き方をする。
1枚1400円もするディスクでやると無駄な使い方になるな…。
書き込みには時間が掛かるし、フォルダごとにセッションを作成しなければならないので膨大な手間だろう。
名前が異なるディレクトリを10個作り、中のファイルは高橋洋子の歌のWAVファイルで
1フォルダ当たり2ギガバイト（非圧縮WAVファイルで4アルバムを入れるとこれくらいの容量になる）くらいかな。
111:ギンコ ◆BonGinkoCc
16/01/23 07:11:22.86 .net
この使い方は、CD-Rにて、わざとマルチセッションで書き込み、
古いCD-ROMドライブで読めるかのテストディスクとして使うくらい。
シングルセッションでしか対応していないドライブでは、最初のセッションでしか読み込めないので、
最初のセッションに入っているフォルダやファイルが表示されるだけだ。
112:nobodyさん
17/12/30 15:26:53.46 YhlYw6jg.net
誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
4EUPG7A5Z5