~ubuntu-branches/ubuntu/vivid/libarchive-zip-perl/vivid-proposed

« back to all changes in this revision

Viewing changes to examples/unzipAll.pl

• browse files at revision 3
• compare with another revision
• download diff
• download tarball
• view history from revision 3

Show diffs side-by-side

added

removed

examples/unzipAll.pl

 

1

#!/bin/perl -w

 

2

# Extracts all files from the given zip

 

3

# $Revision: 1.3 $

 

4

# usage:

 

5

#       perl unzipAll.pl [-j] zipfile.zip

 

6

# if -j option given, discards paths.

 

7

#

 

8

use strict;

 

9

 

 

10

use vars qw( $opt_j );

 

11

use Archive::Zip qw(:ERROR_CODES);

 

12

use Getopt::Std;

 

13

 

 

14

$opt_j = 0;

 

15

getopts('j');

 

16

 

 

17

if (@ARGV < 1)

 

18

{

 

19

        die <<EOF

 

20

        usage: perl $0 [-j] zipfile.zip

 

21

        if -j option given, discards paths.

 

22

EOF

 

23

}

 

24

 

 

25

my $zip = Archive::Zip->new();

 

26

my $zipName = shift(@ARGV);

 

27

my $status = $zip->read( $zipName );

 

28

die "Read of $zipName failed\n" if $status != AZ_OK;

 

29

 

 

30

$zip->extractTree();

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1