本日は朝から必要に駆られてCGIを一つ作成。
覚書的に書いておく。
#!/usr/local/bin/perl# .txt が付くファイル名を@filesへ
@files = glob("*.txt");# カウンターの初期化
$count = 0;# ファイルが無くなるまでぐるぐる数える。
foreach $file (@files) {
if ( -f $file) { $count = $count +1; }
}# サブルーチンjoin_kでカンマをつける
$count = &join_k($count);# 出力
print "Content-type: text/html\n\n";
print "$count\n";
exit;sub join_k{
my $TMP = $_[0];
$TMP =~ s/\G((?:^-)?\d{1,3})(?=(?:\d\d\d)+(?!\d))/$1,/g;
$TMP;
}
join_kサブルーチンは、以前（いつかはもうわからない）、「統計局」を作る際に、サイト容量のカンマ区切りをどこかのサイトで見て、使わせていただいているもの。
突貫工事の割には動いています。
※実際は「.txt」を数えるために使っているわけではありません。
（そこはナイショ的な処理なので編集。）