- 618 名前：611 mailto:sage [2007/08/12(日) 20:29:22 ID: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;
|
 |
