20 lines
467 B
Perl
Executable File
20 lines
467 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# finds in current dir 7z compressed file, makes dir according filename,
|
|
# move file to that dir, unpack file to that dir, remove file
|
|
|
|
opendir(S, ".");
|
|
@list = readdir(S);
|
|
foreach (@list) {
|
|
next if ($_ eq ".");
|
|
next if($_ eq "..");
|
|
$filename = $_;
|
|
$name = (split(/\.7z/, $filename))[0];
|
|
next unless (mkdir($name));
|
|
system("mv", $filename, $name);
|
|
next unless (chdir($name));
|
|
system("7z", "x", $filename);
|
|
unlink($filename);
|
|
chdir("..");
|
|
}
|