7-Zip総合スレ Part 4 - 暇つぶし2ch

7-Zip総合スレ Part 4 ..

618:611
07/08/12 20:29:22 YKkUiH+N0
おれにはこんな方法しかわかんないや…
for %%A in (%1 %2 %3 %4 %5 %6 %7 %8 %9) do (
perl c:\perl\chkfc.pl "%%A"
IF ERRORLEVEL 1 ("7z.exe" x -o"%%~nA" "%%A") ELSE ("7z.exe" x "%%A")
)
-------------- chkfc.pl
use Cwd;
$_ = Cwd::getcwd();
s#/#\\#g;
$cmd = '"7z.exe" l "' . "$_\\@ARGV[0]" . '" | ';
print ">>>$cmd<<<";
open(CMD, $cmd);
$dir = 0; $file = 0;
while (<CMD>) {
chomp;
if (/\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d (.+) /) {
if ($1 =~ /D/) {
$dir++;
if (1 < $dir) {
exit 1;
}
} else {
$file++;
if (1 < $file) {
exit 1;
}
}
}
}
if (($dir + $file) == 1) { exit 0; }
exit 1;

次ページ

続きを表示

1を表示