Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / examples / calcSizes.pl

diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/calcSizes.pl b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/calcSizes.pl
new file mode 100644 (file)
index 0000000..80ff750
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/examples/calcSizes.pl
@@ -0,0 +1,31 @@
+# Example of how to compute compressed sizes
+# $Revision: 1.2 $
+use strict;
+use Archive::Zip qw(:ERROR_CODES);
+use File::Spec;
+my $zip = Archive::Zip->new();
+my $blackHoleDevice = File::Spec->devnull();
+
+$zip->addFile($_) foreach (<*.pl>);
+
+# Write and throw the data away.
+# after members are written, the writeOffset will be set
+# to the compressed size.
+$zip->writeToFileNamed($blackHoleDevice);
+
+my $totalSize = 0;
+my $totalCompressedSize = 0;
+foreach my $member ($zip->members())
+{
+       $totalSize += $member->uncompressedSize;
+       $totalCompressedSize += $member->_writeOffset;
+       print "Member ", $member->externalFileName,
+       " size=", $member->uncompressedSize,
+       ", writeOffset=", $member->_writeOffset,
+       ", compressed=", $member->compressedSize,
+       "\n";
+}
+
+print "Total Size=", $totalSize, ", total compressed=", $totalCompressedSize, "\n";
+
+$zip->writeToFileNamed('test.zip');