Help for this page

Select Code to Download


  1. or download this
    use IO::Uncompress::Unzip qw(unzip $UnzipError);
my $file = '2.zip';
my $inner;
unzip $file, \$inner, Name => '1.zip';
  2. or download this
    my $txt;
unzip \$inner, \$txt, Name => '1.txt';
  3. or download this
    unzip $input => $output
        or die "unzip failed: $UnzipError\n";
  4. or download this
    unzip $input => $output, Name => "data1"
        or die "unzip failed: $UnzipError\n";