- 856 名前：[名無し]さん(bin+cue).rar mailto:sage [2007/09/24(月) 02:45:05 ID:p42QTQhS0]
- mimiのウザいファイル名自動変換スクリプト作ったんで吊るすよ
use LWP::Simple;
use Encode qw/ decode /;
use Encode qw/ encode /;
opendir(DIR, ($ARGV[0] || './'));
@file = readdir(DIR);
foreach (@file) {
print $_;
if ($_ =~/(mimip2p\+nike|nike\+mimip2p|boby\+mimip2p)\(([a-zA-Z]+_?[0-9]+)\)\.([a-z]{3})/ig){
print "$_\n";
$old = $_;
$num = $2;
$pri = $3;
$url = "www.videomanial.co.jp/PG/shopping/search.php?pc_in=&fp_in=$num";
$data=get($url);
$utf8 = decode ( 'euc-jp' , $data );
if ($utf8 =~/$num\">(.+)<\/a><br>/i) {
$name = $1;
$name = encode ( 'shiftjis' , $name );
$new = "$name\($num\).$pri";
rename($old,$new) or die "rename false. $!";
push (@ren ,"ren $new $old\n");
}else {next;}
}
}
open FH, ">>ren.txt";
print FH @ren;
close FH;
|
 |
