<![CDATA[
#!/usr/local/bin/perl
#初期設定
$tmp_dir = './data'; #ファイルがあるディレクトリ
$passwd = 'passwd.txt'; #記録するファイル名
$body = '<body bgcolor=black text=white>';
$ls = "$tmp_dir\/*.txt"; #抜き出すファイルの拡張子
$bad = "0";
$list = `ls $ls` || &error("コマンドエラー",'lsが使えないっす.Unixコマンドを使える環境で使ってくださいな');
if ($list eq '') { &error("File Not Found",'ファイルがないっす.'); }
@lists = split(/\s+/,$list);
print "Content-type: text/html\n\n";
print "<html><head><title>MK</title></head>\n";
print "$body<pre>\n";
foreach $lists (@lists) {
$list2=$lists;
$lists=~s/$tmp_dir\///;
$lists=~s/\.txt//; #抜き出すファイルの拡張子
open(DB,"$list2");
@pass = <DB>;
close(DB);
@pass1=split(":",$pass[0]);
$pass2= pop @pass1;
chomp($pass2);
substr($lists,0,2) =''; #IDの先頭2文字を取る
$passz="$lists:$pass2\:\:\:\:\:";
$te = substr($pass2,0,2);
if ($te eq 'te'){
#print "$passz\n";
push @john,"$passz\n"; #マッチしたら記録する
}
else { print "<font color=yellow>error!! $passz</font>\n";
$bad++;}
}
open(QQ,">$passwd");
print QQ @john;
close(QQ);
$num = @john; $total = @lists;
print "total $total file,and $num success. $bad error...\n";
print "end \n";
print "</pre></body></html>\n";
exit;
sub error {
print "Content-type: text/html\n\n";
print "<html><head><title>えら〜</title></head>\n";
print "$body\n";
print "<h1>$_[0]</h1>\n";
print "<h3>$_[1]</h3>\n";
print "</body></html>\n";
exit;
}
]]>
written by 2代目怒羅絵悶