Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl
use strict;
use warnings;
...

unless ($zip->writeToFileNamed('/home/user/d/backup.zip') == AZ_OK) {
        die "write error";}
  2. or download this
    /home/user/a/a.txt
/home/user/b/b.txt
/home/user/c/c.txt
  3. or download this
    #! /usr/bin/perl
use strict;
use warnings;
...

my $zip = Archive::Zip->new('backup.zip');
print $zip->memberNames();