ツリー毎まとめてShift_JIS -> EUC-JP変換
#!/usr/bin/perl
#$command="sjtoeuc";
$command="nkf -e";
$srctarget="src";
$head="euc";
$srcdest="${head}src";
if (!(-e "$srctarget/.src-target")) {
exit(0);
}
&exx($srctarget);
sub exx {
local(@a)=@_;
print("Entering....$a[0] $a[1]
");
if (!(-e "$head$a[0]$a[1]")) {
print"creating... $head$a[0]$a[1]
";
mkdir ("$head$a[0]$a[1]", 0755);
}
foreach $i (glob("$a[0]$a[1]/*")) {
$file = $i;
if ($file=~/java/) {
print"+$file
";
print("$command $file > $head$file
");
`$command $file > $head$file`;
} elsif ($file=~/class/) {
} else {
print"directory: $file
"; &exx($src, $file);
}
}
print("Exited....$a[0] $a[1]
");
}
最終更新：2007年11月15日 07:14
