ﾄﾞｷｭｿが議員やってるぞ

あれれ？山ちゃんが紹介されなかったよ？

> > 一ヶ月の食費2000円も夢じゃない
> 医療費10万円も夢じゃないな

　保険おりると思うけど。いろいろ親が入れてくれてるから

参考：2000/08/31(木)22時02分23秒

> 会社の先輩で車買うから金貯めるってカップラーメンばかり食ってら
> 栄養失調で死んじゃったよ　ﾏｼﾞで

　身体にわるいからカプラーメンは食べないよ


参考：2000/08/31(木)22時04分47秒

交通違反でルール知らなかったなんて言い訳じゃ許されないけどな

綿貫かっこWARIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

フジで山ちゃんが出てるよ

> > ここが変だョ日本人はじまたーー
> 君が変だょ

消すボタン押す勇気を

参考：2000/08/31(木)21時36分09秒

会社の先輩で車買うから金貯めるってカップラーメンばかり食ってら
栄養失調で死んじゃったよ　ﾏｼﾞで

┌───────────────────┐
│                                      │
│  　 棚井さんにはなんの恨みも無い     │
│                                      │
└─────────┬─────────┘
                    │
                    ヽ(´ー｀)
                       (    )>
                       ＜ω＼

森田健作の二枚舌は異常。

> 一ヶ月の食費2000円も夢じゃない

医療費10万円も夢じゃないな


参考：2000/08/31(木)22時01分19秒

Nステの女子アナつまんねーな

棚井さんにはなんの恨みも無い

> > 本音を言うと俺は棚井さんにはなんの恨みは無いし
> > セクシーフォントじゃお世話になってるし、アニメのレビューも
> > 楽しく読んでるし、みらいのカキコも結構良いと思う。
> > でも周りが煽るから・・俺も今まで何度か酷いカキコをしてしまった・・・
> > 良く考えたら俺はなんて酷い奴なんだろう・・・
> > みんなも何で棚井さんが煽られる必要があるのかよく考えようね。
> 煽られ固定だから。
> ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 終了 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

ﾁｬﾝﾎﾞ死ね

参考：2000/08/31(木)21時53分05秒

一ヶ月の食費2000円も夢じゃない

アリスは未だに掲示板潰しが日課だそうだよ

> 地獄が見えたあの日から～

( ﾟДﾟ)<おーれのこころをふくかぜはー

参考：2000/08/31(木)21時58分29秒

＞三宅島住民を受け入れるため、夏休み中の教職員が来て準備を初めています
そうか、ご苦労さまだなぁ　　え？まだ休んでいたのか！！！！

飛び魚の後はひきこもりか

> > 本音を言うと俺は棚井さんにはなんの恨みは無いし
> > セクシーフォントじゃお世話になってるし、アニメのレビューも
> > 楽しく読んでるし、みらいのカキコも結構良いと思う。
> > でも周りが煽るから・・俺も今まで何度か酷いカキコをしてしまった・・・
> > 良く考えたら俺はなんて酷い奴なんだろう・・・
> > みんなも何で棚井さんが煽られる必要があるのかよく考えようね。
> 今すぐ死んで詫びろヽ(´ー｀)ノ

棚井さんにはなんの恨みも無い
という書き込みが時々見られますが
面文字とかキャベシ太郎とかおジャる丸とか
未読ﾘﾛｰﾄﾞ for ゆうとか言う単語が一定以上書き込まれると
自動的に出るスクリプトだそうです。

参考：2000/08/31(木)21時54分03秒

今日の食事

　　お茶漬け一杯
　　食費：0円

地獄が見えたあの日から～

> > ｿｰｽ見てもｻｯﾊﾟﾘわからないので何をするｽｸﾘﾌﾟ?か教えてくだちい
> perl duke

そか俺には不要だなｻﾝｸｽｺ

参考：2000/08/31(木)21時56分03秒

> > #! /usr/local/bin/perl
> > }
> ｿｰｽ見てもｻｯﾊﾟﾘわからないので何をするｽｸﾘﾌﾟ㌧か教えてくだちい

南アルプスの天然水を作る

参考：2000/08/31(木)21時54分22秒

あれれ? 8月があと2時間あまりで終わるよ!?

> > #! /usr/local/bin/perl
> > }
> ｿｰｽ見てもｻｯﾊﾟﾘわからないので何をするｽｸﾘﾌﾟ㌧か教えてくだちい

# 簡易ダンパー
# perl perldump.pl infile.dat // infile.datの中身を先頭から256バイト分表示
# perl perldump.pl infile.dat 1024 5000 // infile.datの中身を5000バイト目から1024バイト分表示

参考：2000/08/31(木)21時54分22秒

> > #! /usr/local/bin/perl
> > }
> ｿｰｽ見てもｻｯﾊﾟﾘわからないので何をするｽｸﾘﾌﾟ?か教えてくだちい

perl duke

参考：2000/08/31(木)21時54分22秒

飛び魚も災難だな

> #! /usr/local/bin/perl
> }

ｿｰｽ見てもｻｯﾊﾟﾘわからないので何をするｽｸﾘﾌﾟ㌧か教えてくだちい

参考：2000/08/31(木)21時50分42秒

> 本音を言うと俺は棚井さんにはなんの恨みは無いし
> セクシーフォントじゃお世話になってるし、アニメのレビューも
> 楽しく読んでるし、みらいのカキコも結構良いと思う。
> でも周りが煽るから・・俺も今まで何度か酷いカキコをしてしまった・・・
> 良く考えたら俺はなんて酷い奴なんだろう・・・
> みんなも何で棚井さんが煽られる必要があるのかよく考えようね。

今すぐ死んで詫びろヽ(´ー｀)ノ

参考：2000/08/31(木)21時51分24秒

> 本音を言うと俺は棚井さんにはなんの恨みは無いし
> セクシーフォントじゃお世話になってるし、アニメのレビューも
> 楽しく読んでるし、みらいのカキコも結構良いと思う。
> でも周りが煽るから・・俺も今まで何度か酷いカキコをしてしまった・・・
> 良く考えたら俺はなんて酷い奴なんだろう・・・
> みんなも何で棚井さんが煽られる必要があるのかよく考えようね。

煽られ固定だから。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 終了 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

参考：2000/08/31(木)21時51分24秒

携帯が使えるのに驚いた

本音を言うと俺は棚井さんにはなんの恨みは無いし
セクシーフォントじゃお世話になってるし、アニメのレビューも
楽しく読んでるし、みらいのカキコも結構良いと思う。

でも周りが煽るから・・俺も今まで何度か酷いカキコをしてしまった・・・
良く考えたら俺はなんて酷い奴なんだろう・・・
みんなも何で棚井さんが煽られる必要があるのかよく考えようね。

#! /usr/local/bin/perl


# 簡易ダンパー
# perl perldump.pl infile.dat // infile.datの中身を先頭から256バイト分表示
# perl perldump.pl infile.dat 1024 5000 // infile.datの中身を5000バイト目から1024バイト分表示

# 対象ファイル（引数1）
$openfile = $ARGV[0];
# ダンプする範囲（引数2・バイト）
$dump_width = $ARGV[1] || 256;
# ダンプをはじめる位置（引数3・先頭からのバイト）
$dump_offset = $ARGV[2] || 0;

# main
OpenFile();
DumpData();
close(IN);
exit(0);

sub OpenFile {
	open(IN,"$openfile") || die "Can't Open infile!\n -> $!\n";
	flock(IN,2);
	binmode(IN);
	seek(IN,$dump_offset,0);
}

sub DumpData {
	my(@dumper,$buffer,@linebuf,$col_count,$row_count,$octet_count);
	my $buf_width = 1024;
	
	# プリヘダ
	print STDERR '-' x 30,' dumped data ','-' x 30,"\n";
	print STDERR ' ' x 8;
	foreach (0 .. 15) {
		printf STDERR ("+%X ",$_);
	}
	print STDERR ' ' x 17,"\n";
	
	# 最初の行（パディング）
	$row_count = int($dump_offset / 16);
	printf STDERR ("%05X0  ",$row_count);
	$col_count = int($dump_offset % 16);
	print STDERR '   ' x $col_count;
	for ($i = 0;$i < $col_count;$i++) {
		push(@linebuf,'');
	}
	
	# 出力
	OUTPUT_LOOP: {
		$octet_count = 0;
		for (;;) {
			read(IN,$buffer,$buf_width) || last;
			foreach $byte (unpack('C*',$buffer)) {
				# メイン出力
				printf("%02X ",$byte);
				push(@linebuf,$byte);
				if (! (++$col_count % 16)) {
					OptionalOut(\@linebuf);
					undef(@linebuf);
					$col_count = 0;
					$row_count++;
					print STDERR "\n";
					# ここから次の行
					printf STDERR ("%05X0  ",$row_count);
				}
				if (++$octet_count >= $dump_width) {
					last OUTPUT_LOOP;
				}
			}
		}
	}
	
	# 最後の行（パディング）
	if ($col_count) {
		while ($col_count++ % 16) {
			print STDERR '   ';
			push(@linebuf,'');
		}
		OptionalOut(\@linebuf);
	}
}

sub OptionalOut {
	my $buf = shift;
	
	print STDERR ' ';
	foreach (@$buf) {
		if ($_ > 30) {
			printf STDERR ("%c",$_);
		} elsif ($_ eq '') {
			print STDERR ' ';
		} else {
			print STDERR '.';
		}
	}
}