Trivial Tracks

デフォルトだと検索文字列の項目が文字化け。
なのでcronでwebalizerを実行する前に以下のスクリプトを実行。
スクリプトを実行した後は間違いなく一時ファイルを削除する。
ちなみに下のスクリプトの原型はどっかから拝借してきて、無理矢理UTF-8に対応させたもの。
なのでコードは無駄が多い・・・（きにしない

#!/usr/bin/perl

use Jcode;

open (IN ,$ARGV[0]);
while (<IN>){
$_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$_ = Jcode->new($_)->euc;
print $_;
}
close (IN);
exit;

Author yasu : January 13, 2004 1:32 AM