自动解压器

xjflyttp

Post by imghch;1994968
参数不用这么复杂吧，xf 就可以解决大部分问题了

把新版tar更新了咯...

hamika

要自动解压的话，可以试试sEx软件

d00m3d

Post by hamika;2016773
要自动解压的话，可以试试sEx软件

此乃什麼玩意？

stesen

参考arch官方论坛某贴和这个帖子,再从不知某处扒了个unzip的perl实现,自己做了一个perl脚本
用perl的Archive::Zip模块是为了处理中文zip不产生乱码

2. #!/usr/bin/perl -w
4. #########################################################################
5. # Author: stesen
6. # Created Time: Thu 07 Oct 2010 05:31:52 PM CST
7. # File Name: e.pl
8. # Description: try to decompress files
9. #########################################################################
11. #use strict;
13. use Archive::Zip;
14. use Encode qw(decode encode);
16. my ($archive, $basenme, $bh, $fh);
18. foreach $archive (@ARGV) {
19.     $archive =~ m/\b([^\.]*)\..*\b/;
20.     $fh = $1;
21.     $fh =~ s/\s//g;
22.     if (-e $archive) {
23.         if ($archive =~ m/(\.tar\.bz2)|(\.tar\.gz)|(\.tar)|(\.tgz)|(\.tbz2)\b/) {
24.             system "time", "-p", "tar", "xvf", $archive;
25.         } elsif ($archive =~ /\.bz2\b/) {
26.             system "time", "-p", "bunzip2", $archive;
27.         } elsif ($archive =~ m/\.rar\b/i) {
28.             system "mkdir", "-v", $fh;
29.             system "time", "-p", "unrar", "x", $archive, $fh;
30.         } elsif ($archive =~ /\.gz\b/) {
31.             system "time", "-p", "gunzip", $archive;
32.         } elsif ($archive =~ m/(\.zip)|(\.jar)\b/i) {
33.             system "mkdir", "-v", $fh;
34.             chdir("$fh") or die "$!";
35.             &uzip("../$archive");
36.             chdir("..");
37.         } elsif ($archive =~ /\.Z\b/) {
38.             system "time", "-p", "uncompress", $archive;
39.         } elsif ($archive =~ /\.7z\b/) {
40.             system "time", "-p", "7z", "x", $archive;
41.         } elsif ($archive =~ /.xz\b/) {
42.             system "time", "-p", "xz", "-d", $archive;
43.         } else {
44.             print("don\'t know how to extract" . $archive . "..."."\n");
45.         }
46.     } else {
47.         print("$archive is not a valid file!" . "\n");
48.     }
49. }
51. sub uzip {
52.     my ($zip, $from, $to);
53.     $zip = Archive::Zip->new($_[0]);
54.     $from = $_[1] || 'utf-8';
55.     $to = $_[2] || 'utf-8';
57.     for ($zip->memberNames()) {
58.         $member = $zip->memberNamed($_);
59.         $_ = encode($to, decode($from, $_));
60.         $zip->extractMember($member, $_);
61.     }
62. }

复制代码

stesen

参考arch官方论坛某贴和这个帖子,再从不知某处扒了个unzip的perl实现,自己做了一个perl脚本
用perl的Archive::Zip模块是为了处理中文zip不产生乱码

2. #!/usr/bin/perl -w
4. #########################################################################
5. # Author: stesen
6. # Created Time: Thu 07 Oct 2010 05:31:52 PM CST
7. # File Name: e.pl
8. # Description: try to decompress files
9. #########################################################################
11. #use strict;
13. use Archive::Zip;
14. use Encode qw(decode encode);
16. my ($archive, $basenme, $bh, $fh);
18. foreach $archive (@ARGV) {
19.     $archive =~ m/\b([^\.]*)\..*\b/;
20.     $fh = $1;
21.     $fh =~ s/\s//g;
22.     if (-e $archive) {
23.         if ($archive =~ m/(\.tar\.bz2)|(\.tar\.gz)|(\.tar)|(\.tgz)|(\.tbz2)\b/) {
24.             system "time", "-p", "tar", "xvf", $archive;
25.         } elsif ($archive =~ /\.bz2\b/) {
26.             system "time", "-p", "bunzip2", $archive;
27.         } elsif ($archive =~ m/\.rar\b/i) {
28.             system "mkdir", "-v", $fh;
29.             system "time", "-p", "unrar", "x", $archive, $fh;
30.         } elsif ($archive =~ /\.gz\b/) {
31.             system "time", "-p", "gunzip", $archive;
32.         } elsif ($archive =~ m/(\.zip)|(\.jar)\b/i) {
33.             system "mkdir", "-v", $fh;
34.             chdir("$fh") or die "$!";
35.             &uzip("../$archive");
36.             chdir("..");
37.         } elsif ($archive =~ /\.Z\b/) {
38.             system "time", "-p", "uncompress", $archive;
39.         } elsif ($archive =~ /\.7z\b/) {
40.             system "time", "-p", "7z", "x", $archive;
41.         } elsif ($archive =~ /.xz\b/) {
42.             system "time", "-p", "xz", "-d", $archive;
43.         } else {
44.             print("don\'t know how to extract" . $archive . "..."."\n");
45.         }
46.     } else {
47.         print("$archive is not a valid file!" . "\n");
48.     }
49. }
51. sub uzip {
52.     my ($zip, $from, $to);
53.     $zip = Archive::Zip->new($_[0]);
54.     $from = $_[1] || 'utf-8';
55.     $to = $_[2] || 'utf-8';
57.     for ($zip->memberNames()) {
58.         $member = $zip->memberNamed($_);
59.         $_ = encode($to, decode($from, $_));
60.         $zip->extractMember($member, $_);
61.     }
62. }

复制代码

stesen

怎么重复发了两遍?版主通知帮忙删掉一个

相思爱文

tar xvf可以自动识别.tar.gz和.tar.bz2

fallening

7zip 的格式加下吧