複数のソースリポジトリからの一括変換(EUC->Shift_JIS)＆JavaDoc
#!/usr/bin/perl
#$command="sjtoeuc";
$command="nkf -s";
$srcbase="/usr/java/e3/workspace/"; #例えばEclipseのworkspace
@targets=(
"${srcbase}/XXXX/", #srcの上のディレクトリ１
"${srcbase}/YYYY/", #srcの上のディレクトリ２
);
$srctarget="src";
$home="/home/shuei/";
$head="${home}sj";
$srcdest="${head}src";
foreach my $target (@targets) {
print"Working in $target...
";
chdir($target);
&exx($srctarget);
}
chdir($home);
`ant -f javadoc.xml`;
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/) {}
elsif (-d $file) {print"directory: $file
"; &exx($src, $file);}
}
print("Exited....$a[0] $a[1]
");
}
最終更新：2007年11月15日 07:14
