2009-11-06 調子悪いぜよ……最悪
ついに休んだ。
ＰＣは普通になった。
◆ [情報] 乙女はお姉さまに恋してる ～櫻の園のエトワール～
オーディオドラマＣＤが公式に。
◆ [情報] 楽天、「Edy」のビットワレットを子会社化
なぬん
◆ [情報] SSL / TLS の再ネゴシエーション処理にプロトコル上の欠陥があり、 HTTPS において中間介入攻撃 (Man-In-The-Middle 攻撃) を防げない、という指摘
なぬん。
◆ [ネタ] コードギアスでウテナＯＰ【手描き】おまけ‐ニコニコ動画(9)
コードギアスでウテナＯＰ【手描き】シリアス版‐ニコニコ動画(9)の某シーンの別バージョン……こっちみんな（笑）
◆ [ネタ] オリコンデイリー6位スタートの新生fripSide「only my railgun」 日本橋でも壊滅
個数をつくって無くてオリコンに入らない説（笑）
◆ [日記][プログラム] ディレクトリ内の総ファイル数を求めるperlスクリプト
多分こんな感じ
#!/usr/bin/perl
$root = ".";
&files($root);
sub files{
my($dir) = @_;
local(*DIR);
my($cnt);
$cnt = 0;
opendir(DIR,$dir);
while($file = readdir(DIR)){
if ($file eq "." or $file eq ".."){ next; }
$cnt++;
if (-d "$dir/$file"){ &files("$dir/$file"); }
}
closedir(DIR);
printf "%10d %s\n",$cnt,$dir;
}
出てきた出力をファイルにとって置いて、sortってかければ大量にファイルを抱え込んでいるディレクトリが分かります（笑）
◆ [日記][プログラム] カレントディレクトリのファイルサイズを求めるスクリプト
#!/usr/bin/perl
$size = 0;
opendir(DIR,".");
while($file = readdir(DIR)){
$size += (stat($file))[7];
}
closedir(DIR);
print $size;
こんな感じ。ディレクトリサイズも加算されるけど気にするな。
du -s .ってやると、メモリ不足だよウワーンって言われたので適当にでっち上げた。
◆ [日記][プログラム] カレントディレクトリのファイルを全部削除するスクリプト
#!/usr/bin/perl
opendir(DIR,".");
while($file = readdir(DIR)){
if ($file eq "." or $file eq ".."){ next; }
print $file,"\n";
unlink($file);
}
closedir(DIR);
rm -Rf ./ってやると、メモリ不足だよウワーンって言われるので適当にでっち上げた。
いや、さっきから何してるかというと、あるディレクトリに、2,915,446ファイルあってな？ ディレクトリのサイズ（ファイルサイズにあらず）が149,271,040byteで、中身が17,218,357,293Byteもあったのよ。
数年放置されていたqmailサーバのpostmasterな（笑） こんな酷いことに……。
FreeBSD 6.2+FFS2でディレクトリへの書き込みがメタクソ遅くなってなぁ……（そう言えばちょっと前に同じような現象を喰らったことがあるな（笑）ファイル数が多すぎてバックアップがタイムアウトするという……）
qmailの欠点……というか、Maildirの欠点ですな。ファイル作りすぎ。
余談：iusedも100%(ifreeが0)だったんだぜ？（笑）
Last Update: 2009-11-07 00:28:46
[ツッコミを入れる]