- Original Message -
From: Kprasad kpra...@aptaracorp.com
#!/usr/bin/perl
use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); # imports
#mkdir c:/onfly;
my $localdir=c:/onfly; ## I've two zip files i.e., first.zip and
second.zip which respectively contains 3 files and two files and after
read( $fileName )
Read zipfile headers from a zip file, appending new members. Returns
AZ_OK or error code.
my $zipFile = Archive::Zip-new();
my $status = $zipFile-read( '/some/FileName.zip' );
At 10:06 AM 7/2/2009 +0530, Kprasad wrote:
Hi All
I've simple perl
files i.e., first.zip and second.zip which respectively contains 3
files and two files and after extraction 'c:/onfly/first' should contain 3
files and c:/onfly/second' should contain 2 files only.
CODE:
#!/usr/bin/perl
use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); # imports
#mkdir c:/onfly
I am using Archive::Zip to unzip large text file from archives created
by Freebyte Zip. This program (Freebyte Zip) seems to have a 2GB limit
when compressing files. The Archive file when viewed in both WinZip and
my Perl program show the uncompressed size as zero (0) bytes. My Perl
program
I use 7zip ... I believe its a SourceForge project. Open Source.
Bill
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Bullock, Howard A.
Sent: Wednesday, June 14, 2006 4:23 PM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: Archive::Zip filesize
- Original Message -
From: Bullock, Howard A. [EMAIL PROTECTED]
To: Perl-Win32-Users@listserv.ActiveState.com
Sent: Thursday, June 15, 2006 6:22 AM
Subject: Archive::Zip filesize limit?
I am using Archive::Zip to unzip large text file from archives created
by Freebyte Zip
Sisyphus wrote:
my (aging) version 13.0.0.0 of WinZip
Well ... that's the version of winzip32.exe ... but the actual WinZip
version number is 8.0.
Cheers,
Rob
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To
I am using Archive::Zip to unzip large text file from archives created
by Freebyte Zip. This program (Freebyte Zip) seems to have a 2GB
limit
when compressing files. The Archive file when viewed in both WinZip
and
my Perl program show the uncompressed size as zero (0) bytes.
For me, version
- Original Message -
From: Bullock, Howard A.
.
.
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip-new();
unless ($zip-read(
'C:\\Data\\Scripts\\ProxyLogs\\data\\20060613us194px01.zip' ) == AZ_OK){
print Error reading zip file ()\n
Title: Archive::Zip windows 2003
I created a ZIP file using Perl v5.8.6 Build 811 and Archive::Zip that was included in the ActiveState build on a Windows 2003 server. When I open the file on the server the OS shows no files in the archive. But if I copy the file to my client running XP SP1
- Original Message -
From: Bullock, Howard A. [EMAIL PROTECTED]
To: perl-win32-users@listserv.ActiveState.com
Sent: Wednesday, November 16, 2005 7:07 AM
Subject: Archive::Zip windows 2003
I created a ZIP file using Perl v5.8.6 Build 811 and Archive::Zip that
was included
- Original Message -
From: Bullock, Howard A.
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip-new();
my $member1 = $zip-addFile( C:/data/scripts/junk1.pl );
my $member2 = $zip-addFile( C:/data/scripts/junk2.pl );
my $result = $zip-overwriteAs(C
}
No, but you can do this:
my $zip = Archive::Zip-new();
my $status = $zip-writeToFileNamed($archive_name);
die Error: unable to create zip archive\n unless $status == AZ_OK;
foreach my $i (@whatever) {
my $file = generate_file($i)
$zip = Archive::Zip-new();
$zip-read
On Thu, 28 Apr 2005, [koi8-r] áÒÔÅÍ á×ÅÔÉÓÑÎ wrote:
Thank you! That works.
However, as the zip gets bigger the perfomance suffers aloud. Which is
no surprise for the programm has to reread and rewrite zip every cycle
round.
A downside to the zip format is that there's a central directory
, Archive::Zip doesn't allow me this simple
task. Is that correct, or I misread something?
Thanks in advance,
Artem A. Avetisyan.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com
, as I understood, Archive::Zip doesn't allow me this
You can do it in the cycle with a system command. Like system(gzip
$filename); That will compress the file and remove the original. Of
course u can put any zip program u want in there and add, make new etc.
--
REMEMBER THE WORLD TRADE
[], on Wednesday, April 27, 2005 at 12:13 (+0400) made
these points:
same cycle. However, as I understood, Archive::Zip doesn't allow me this
simple
task. Is that correct, or I misread something?
why not use external zip ? I thought about that, as you, and I found
external zipping is ok. I
understood, Archive::Zip doesn't allow me this
simple
task. Is that correct, or I misread something?
Thanks in advance,
Artem A. Avetisyan.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http
, that deploying machine will have zip
versus Archive::Zip. Archive::Zip you must install.
--
How do you protect mail on web? I use http://www.2pu.net
[I drive a truck, I'm butt ugly I hate spiders - Tom Servo]
___
Perl-Win32-Users mailing list
Perl
However, I want the script to be portable to other machines which
don't have to have appropriate archiver.
Deploying the script with archiver is no good either.
So? What would you say?
I think it will be more common, that deploying machine will have zip
versus Archive::Zip. Archive
in the same cycle. However, as I understood,
Archive::Zip doesn't allow me this simple task. Is that correct, or I
misread something?
It's easy enough to use Archive::Zip in place of an external archiver.
Instead of
system('zip -rm archive.zip file1 file2 file3');
use a subroutine that does
in the same cycle. However, as I understood,
Archive::Zip doesn't allow me this simple task. Is that correct, or I
misread something?
It's easy enough to use Archive::Zip in place of an external archiver.
Instead of
system('zip -rm archive.zip file1 file2 file3');
use a subroutine that does
($i)
add $file to zip
delete $file
}
No, but you can do this:
my $zip = Archive::Zip-new();
my $status = $zip-writeToFileNamed($archive_name);
die Error: unable to create zip archive\n unless $status == AZ_OK;
foreach my $i (@whatever) {
my $file = generate_file($i)
$zip = Archive::Zip
Not really, 100,000 items shouldn't take up more than a few megs. ;) But u
can just iterate over the subscripts.
for $i ( 0 .. $#whatever ) {
generate_file($whatever[$i]);
}
for $i ( 0 .. $#whatever ) {
add_and_delete($whatever[$i]);
}
At 06:25 PM 4/27/05 +0400,
I have to
: Sisyphus [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 30, 2005 11:59 PM
To: Ben Conrad; perl-win32-users@listserv.ActiveState.com
Subject: Re: Archive::Zip - Bad file descriptor on directories
- Original Message -
From: Ben Conrad [EMAIL PROTECTED]
To: perl-win32-users
I noted I had some problems using the constants (e.g., AZ_OK) with
Archive::Zip, so I went with the literal values.
Sam Gardner
GTO Application Development
Keefe, Bruyette Woods, Inc.
212-887-6753
-Original Message-
From: Sisyphus [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March
Folks,
I'm not sure what the problem is but I can't seem to get a valid return when
using $zip-writeToFileNamed(). It works when I zip a single file, but
when I use
addTree() I get Bad file descriptor. Am I doing something wrong?
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
# FYI
- Original Message -
From: Ben Conrad [EMAIL PROTECTED]
To: perl-win32-users@listserv.ActiveState.com
Sent: Thursday, March 31, 2005 7:37 AM
Subject: Archive::Zip - Bad file descriptor on directories
Folks,
I'm not sure what the problem is but I can't seem to get a valid return
Hi;
I'm using Archive::Zip to unzip a bunch of
CSV files that I want to extract information from. The problem is that
when I extact a file, and I try and read it into an array for line by line
handling, the system doesn't see the line breaks. Has anyone run into this?
Here's the relevant snippet
[EMAIL PROTECTED] wrote:
Hi;
I'm using Archive::Zip to unzip a bunch of CSV files that I want to
extract information from. The problem is that when I extact a file, and
I try and read it into an array for line by line handling, the system
doesn't see the line breaks. Has anyone run
On Wed, 9 Mar 2005 14:03:54 -0600, [EMAIL PROTECTED]
[EMAIL PROTECTED] wrote:
Hi;
I'm using Archive::Zip to unzip a bunch of CSV files that I want to extract
information from. The problem is that when I extact a file, and I try and
read it into an array for line by line handling
-3094
Ceridian
www.ceridian.ca
$Bill Luebkert
[EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
03/09/2005 03:12 PM
To
[EMAIL PROTECTED]
cc
perl-win32-users@listserv.ActiveState.com
Subject
Re: Archive::Zip and CSV files for parsing
[EMAIL PROTECTED] wrote:
Hi;
I'm using
: Any way to process passwords in Archive::Zip
On Thu, Jul 29, 2004 at 08:33:14PM +0300, Burak Gursoy wrote:
don't know how to do that with perl.
and... do you know how to do in another language? :) I'm also interested
in
this subject but digging google didn't return me any info :(
http
way to process passwords in Archive::Zip
nope. I'm currently not interested in zip cracking or winzip thingies.
Thanks for the infozip link.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Willem Hengeveld
Sent: Thursday, July 29, 2004 10:33 PM
To: Burak
PROTECTED]
Subject:Re: Any way to process passwords in Archive::Zip
On Thu, Jul 29, 2004 at 07:55:47AM -0600, Ignacz, Alex wrote:
Hi there, my client has a set of files they want zipped up and then
password encoded or decoded (if I'm extracting from the archive). With
the password
, July 29, 2004 6:59 PM
To: Ignacz, Alex
Cc: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Re: Any way to process passwords in Archive::Zip
On Thu, Jul 29, 2004 at 07:55:47AM -0600, Ignacz, Alex wrote:
Hi there, my client has a set of files they want zipped up and then
password encoded
On Thu, Jul 29, 2004 at 08:33:14PM +0300, Burak Gursoy wrote:
don't know how to do that with perl.
and... do you know how to do in another language? :) I'm also interested in
this subject but digging google didn't return me any info :(
http://www.info-zip.org/pub/infozip/
download from
I am trying to archive a very large directory tree. The zip file is
approximately 1.4 Gb in size at the end of the job. Unfortunately, many
times a temporary file exists when the file list is built internally by
Archive::Zip that doesn't exist 10 minutes later when the attempt to
deflate
:
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip-new();
.
foreach $box (@boxes) {
print $box\n;
...
$member = $zip-addFile( document.$box);
}
$status = $zip-writeToFileNamed( Container.zip );
werror(040 Error while trying
Jamie Le Tual wrote:
Well, looking at the source code for Zlib.xs, we see that the filename
is a null terminated string that starts at offset 10L.
Knowing that, and having a copy of a gzip file, we can just peek at the
header of the gzip file.
#!perl
use strict;
my $filename =
Dirk Bremer (NISC) wrote:
Rob,
Due to legacy issue, we have a requirement where the source file has one
version of a name and the compressed version of the file has another name.
We will be looking at a different way to do this, possibly using tar or a
zip compatible Linux program.
I see. 'system
object method addTree via package Archive::Zip::Archive at
/var/www/cgi-bin/arhivator.pl line 117.
It is my code:
109 sub CreateArhiv {
110 my $inp = shift @_;
111 my $name = '20030700';
112 my $root = '/var/www';
113 my $mess = New;
114 my $out = '${root}/arhive/${name}.zip';
115
Hello
I am trying to use Archive::Zip to zip files when they meet a condition
i.e. File Age.
The problem I have is that it will not recuse directions. I do not want to
add every file just files that will meet a certain condition.
code listed below
my $zip = Archive::Zip-new();
my $zipName
Does anyone know if there is an upper limit on the number of files which can be
included in a single archive when using archive::zip?
If so, what other Archive package would you recommend that doesn't have any limit?
Thanks!
Todd Enright
-Original Message-
From: todd enright [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 26, 2003 3:36 PM
To: [EMAIL PROTECTED]
Subject: Archive::Zip - upper limit on # of files?
Does anyone know if there is an upper limit on the number of
files which can be included
You can always nest your archives, if you reach the limit.
-Henry
-Original Message-
From: todd enright [mailto:[EMAIL PROTECTED]
Sent: Wed 2/26/2003 3:36 PM
To: [EMAIL PROTECTED]
Cc:
Subject: Archive::Zip - upper limit on # of files
that can't cope with C:/tmp2 is command.com
and the commandline DOS utilities.
As long as Archive::Zip doesn't run zip.exe
via system(), C:/tmp2 should be perfectly adequate.
There's no need to use backslashes as path separator
in Perl, ever. People tend to forget to double them.
There's no such danger
I'm trying to use the Perl Module Archive::Zip and I'm having a
little difficulty understanding it. After reading the pod doc for
Archive::Zip I've written the following test:
use Archive::Zip;
my $dir = C:/tmp2;
my $zip = Archive::Zip-new();
my $member = $zip-addDirectory('$dir');
$member
Hello Carter,
Try these suggestions:
my $dir = C:/tmp2;
CHANGE TO:
my $dir = C:\\tmp2;
my $member = $zip-addDirectory('$dir');
CHANGE TO:
my $member = $zip-addDirectory($dir);
OR:
my $member = $zip-addDirectory($dir);
I'm not familure at all with the package, but I think this will have you
warnings;
use strict;
use locale;
use Archive::Zip::Tree;
use Archive::Zip qw(:ERROR_CODES);
my $zip_path = './fnav-zip/';
my $extr_path = './fnav-extr/';
foreach my $file (glob($zip_path.*.zip)) {
my $zip = Archive::Zip-new();
# my $bb = $zip_path;
# my $aa
Hello.
This code unzip files from $zip_path to $extr_path, but when you
uncomment, tree lines below, then this code unzip files from $zip_path
to './'. Where is a bug?
Sorry, but my english is so bad.
---
use warnings;
use strict;
use locale;
use Archive::Zip::Tree
times to get the hang of the classes.
In my program I create a new ZIP, add files to it, and write it to disk:
$zip = Archive::Zip-new();
$zip-addFile( $filename );
$status = $zip-writeToFileNamed( $zipname );
Questions:
1. What if I want to add files to a ZIP file that already exists? If I
use
is ARchive :: Zip suitable for use for automatic backing up purposes?
- Original Message -
From: Grant Hopwood [EMAIL PROTECTED]
To: RICHARD A. NAKROSHIS (Contractor) [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Friday, May 18, 2001 2:39 AM
Subject: Re: Archive::Zip questions
Using:
Activestate Perl V5.6.0 Build 623
NT 4.0 (SP5)
Archive-Zip 0.11
Compress-Zlib 1.08
Is there a size limit to the files that are zipped? I don't seem to be
able to zip a file greater than 2gig (though I CAN unzip a file greater
than 2gig).
I can break up the large file before zipping
54 matches
Mail list logo