X
無駄なことをして遊ぼう
0001名無しさん＠お腹いっぱい。
垢版 |
2001/05/31(木) 16:41ID:/ItWxlxM
#!/usr/bin/perl
use ostream;

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

__END__
0002名無しさん＠お腹いっぱい。
垢版 |
2001/05/31(木) 16:42ID:/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:58ID:???
#ありゃ…ウケなかったか。
#まあ良いや一人で遊ぼう。
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:09ID:???
どうも挙動がおかしい。
>>3でcoutを変数にしたのは、
>>2のコードで
#!/usr/bin/perl
use ostream;
exit;
cout << "test " << endl;
__END__
とやると妙なことになってしまう為。
変数だと結果はマトモだ。
0007　
垢版 |
2001/06/27(水) 23:55ID:???
難しいことやってるねぇ。
意味不明です・・・私には・・・
0034\ ◆G.kfKDDY
垢版 |
2001/08/12(日) 14:44ID:???
すっかり練習場と化している・・・

おいらもだ
0037 ◆PoWerxxg
垢版 |
2001/08/12(日) 15:12ID:???
　　　　　　　　　　　　　
0038 ◆PERLWCdo
垢版 |
2001/08/12(日) 15:12ID:???
　　　　　　　　　　　　
0039 ◆Sexghack
垢版 |
2001/08/12(日) 15:13ID:???
　　　　　　　　　　　　　　　　　　
0046◆skperlJw
垢版 |
2001/08/12(日) 23:09ID:???
とりあえずパス解析成功風？
0051GIKO＠ ◆L4g4RxYk
垢版 |
2001/08/13(月) 04:47ID:???
>>47
おひさそっす！

変わってるのか???　　またしょぼマシンぶん回さないと　ｳﾄｩだ（-＿-
0053名無しさん◇一行野郎
垢版 |
2001/08/13(月) 15:50ID:???
print chr hex for split chr++$_**++$_*++$_*++$_*--$_-++$_*++$_-++$_*$_+$_+$_/$_,
'68Z74Z74Z70Z3AZ2FZ2FZ63Z6FZ72Z6EZ2EZ32Z63Z68Z2EZ6EZ65Z74Z2FZ70Z68Z70Z2FZ69Z6EZ64Z65Z78Z32Z2EZ68Z74Z6DZ6C'
0063a
垢版 |
02/01/09 04:30ID:???
http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
0070a
垢版 |
02/01/09 04:33ID:???
http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1./_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1./_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1./_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1./_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
http://1./_)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^_
http://1./_^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-_
http://1./_-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^_
http://1./_^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(_
http://1./_(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)(^-^)_
0073a
垢版 |
02/01/09 04:40ID:???
�
0074a
垢版 |
02/01/09 04:42ID:???
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_
0075a
垢版 |
02/01/09 04:43ID:???
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_.
0076a
垢版 |
02/01/09 04:43ID:???
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_./
0077a
垢版 |
02/01/09 04:44ID:???
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_./
0078a
垢版 |
02/01/09 04:44ID:???
&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_./
0079a
垢版 |
02/01/09 04:45ID:???
&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_
0082◇
垢版 |
02/12/12 01:21ID:???
あがってない
0086山崎渉
垢版 |
03/04/20 06:13ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0087山崎渉
垢版 |
03/05/22 02:14ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
0088山崎渉
垢版 |
03/05/28 17:13ID:???
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0089山崎 渉
垢版 |
03/07/15 11:20ID:???

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
0090山崎 渉
垢版 |
03/08/02 02:32ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0091ぼるじょあ ◆ySd1dMH5Gk
垢版 |
03/08/02 05:08ID:???
　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
0092山崎 渉
垢版 |
03/08/15 23:15ID:???
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
0099nobodyさん
垢版 |
2007/07/02(月) 18:22:58ID:???
今日ヤバイんだよ
いつもはこんなベランベランに掲示板で書き込んだりしないのに
どーでもいいようなことを書き込みたくてしょうがない
荒らしては無いよ！
0101nobodyさん
垢版 |
2009/01/04(日) 20:34:31ID:tUrF+z2D
sosite
agemasune
0103nobodyさん
垢版 |
2009/01/04(日) 22:49:38ID:f9P2VP+w
echo(print_r(var_dump(die(print("Hello world.")))));
0105nobodyさん
垢版 |
2013/12/17(火) 00:15:15.18ID:QNNJf0I3
へぇー
0107い
垢版 |
2014/01/23(木) 21:10:07.68ID:si9Y1cbr
★☆
0108nobodyさん
垢版 |
2014/01/27(月) 00:25:33.49ID:???
全て無駄じゃない
0110nobodyさん
垢版 |
2015/11/16(月) 09:07:15.11ID:G1hNhQfu
就労移行支援事業所は、利用者1名×1日で行政から1万円前後の補助金が出てるんだよね。。
0111ギンコ ◆BonGinkoCc
垢版 |
2016/01/23(土) 07:08:10.57ID:???
パナソニックのBD-Rにて、10個のセッションを作るような書き方をする。
1枚1400円もするディスクでやると無駄な使い方になるな…。
書き込みには時間が掛かるし、フォルダごとにセッションを作成しなければならないので膨大な手間だろう。

名前が異なるディレクトリを10個作り、中のファイルは高橋洋子の歌のWAVファイルで
1フォルダ当たり2ギガバイト（非圧縮WAVファイルで4アルバムを入れるとこれくらいの容量になる）くらいかな。
0112ギンコ ◆BonGinkoCc
垢版 |
2016/01/23(土) 07:11:22.86ID:???
この使い方は、CD-Rにて、わざとマルチセッションで書き込み、
古いCD-ROMドライブで読めるかのテストディスクとして使うくらい。

シングルセッションでしか対応していないドライブでは、最初のセッションでしか読み込めないので、
最初のセッションに入っているフォルダやファイルが表示されるだけだ。
0113nobodyさん
垢版 |
2017/12/30(土) 15:26:53.46ID:YhlYw6jg
誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

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

4EUPG7A5Z5
0114調査で抜き取った軽油 県の公用車の燃料として不正利用
垢版 |
2023/03/15(水) 08:55:37.82ID:Ld69gOrI
ディーゼル車が燃料の軽油に重油などを混ぜていないか確認するため、長野県が抜き取り調査をした軽油の一部が、
長野県の公用車の燃料として不正に利用されていたことがわかりました。

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

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

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

ニューススポーツなんでも実況