無駄なことをして遊ぼう

#!/usr/bin/perl
use ostream;

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

__END__

# 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__

#ありゃ…ウケなかったか。
#まあ良いや一人で遊ぼう。
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がうまく働かないことがあるんだよなぁ…。
# 何でだろ。

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

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

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

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

★削除 ★ｼﾞｹｰﾝ

ｼﾞｹｰﾝ

ｼﾞｹｰﾝ

ooooooooo

545

a

ddd

hrthrthrthrthrthrthrthrthrthrthrthrthrt

[[[[[

gr

ppppppppppp

hhhhhhhhhh

rthjhjrthjrthjrthjrthjrthjrthjrt

fdsdfsdfsdfs

[i@i@[i@[

sdsds

dsdfsds

ppppp

aaa

fadsadfsadfsadfs

sddsdsdsdsdsds

uil;ilu;ilu;ilu;ilu;

p@

sa

asssssssss

tyjety

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

おいらもだ

新機能か....。

efwefwefwefwefwefwefwefwefw

efwefwefwefwefwefwefwefwefwefw

hoge#hoge

>>41
久しぶり。

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

>>45
うん。ありがと。

ふぅ。

間違えた。

テスト

テストっ

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

テスト

もいっちょ

>>51
どうもですー

...

Perl

hoge#hoge

AAA

とりっぷてす

ｵｶﾔｿ逝って良し

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

http://1

http://1/

http://pc.2ch.net/

http://1.

http://1./

http://1./

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

http://1./()

http://1./&;

�

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_

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_.

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_./

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_./

&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_./

&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_

実験〜。

あげてみーる

あがってない

（＾＾）

（＾＾）

（＾＾）

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

？？

てす

てすと

>>1−7で終了。

さらしあげ

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

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

100gt

sosite
agemasune

PHPも頼む

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

へぇー

ムダ

★☆

全て無駄じゃない

ぬるぽ

就労移行支援事業所は、利用者1名×1日で行政から1万円前後の補助金が出てるんだよね。。

パナソニックのBD-Rにて、10個のセッションを作るような書き方をする。
1枚1400円もするディスクでやると無駄な使い方になるな…。
書き込みには時間が掛かるし、フォルダごとにセッションを作成しなければならないので膨大な手間だろう。

名前が異なるディレクトリを10個作り、中のファイルは高橋洋子の歌のWAVファイルで
1フォルダ当たり2ギガバイト（非圧縮WAVファイルで4アルバムを入れるとこれくらいの容量になる）くらいかな。

この使い方は、CD-Rにて、わざとマルチセッションで書き込み、
古いCD-ROMドライブで読めるかのテストディスクとして使うくらい。

シングルセッションでしか対応していないドライブでは、最初のセッションでしか読み込めないので、
最初のセッションに入っているフォルダやファイルが表示されるだけだ。

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

4EUPG7A5Z5

ディーゼル車が燃料の軽油に重油などを混ぜていないか確認するため、長野県が抜き取り調査をした軽油の一部が、
長野県の公用車の燃料として不正に利用されていたことがわかりました。

ディーゼル車の燃料となる軽油には、１リットルあたり３２円余りの軽油引取税がかかりますが、脱税を目的に
その税金がかからない重油や灯油を混ぜるケースがあとを絶ちません。
このため、県内に１０か所ある県税事務所のうち４か所は、毎年、事業所などを対象にディーゼル車の燃料の抜き取り調査を行っています。
抜き取った燃料は通常の軽油であれば廃棄する決まりですが、長野市にある総合県税事務所では、
軽油の一部を長野建設事務所が所有するトラックの燃料として不正に利用していたということです。
県によりますと、総合県税事務所の担当者と、同じ庁舎に入る長野建設事務所の職員との雑談をきっかけに、
遅くとも５年前には不正利用が始まり、確認できただけでおよそ７６リットルが、公用車の燃料に使われていたということです。

総合県税事務所の担当者は「残った軽油は廃棄するのが決まりとは知らなかった。
捨てるのはもったいないと思った」などと話しているということです。
県は「県民の信頼を損ない大変申し訳ありません。今後はルールに基づいた事務処理を徹底すると共に、
廃棄処分量などを正確に記録して上司が定期的に管理を行います」とコメントしています。

また、県は、納税者１人について、納めていない県税があるかや滞納処分を受けているかといった個人情報を、
第三者に誤って電話で提供したことを明らかにしました。
納税に関する個人情報は、本人か、本人から依頼を受けた代理人にしか提供できない決まりですが、
今回のケースでは、納税者の知り合いの代理人に誤って伝えてしまったということです。

ｔｔｖ