Stuck at Redeading the Zip file

Perl experts out there, i am stuck at reading the contents of the zip file and dumping them in a destination folder "C:\\temp".

Any hint here would be of great help. Here is my very short code, i know i can do File: Smiley Frustrated

pec to read content, or i might be wrong. Please advice.

Thanks


use warnings;
use strict;
use Archive::Zip;

my $filezip = "E:\\Eclipse\\WORKSPACE\\PerlBasic1\\Perl\\FileHandling\\GroupWorkflow.zip";
my $zip = Archive::Zip->new( "$filezip" );
my @members = $zip->members();
foreach my $mymember(@members){
 open(LOG,">>E:\\Eclipse\\WORKSPACE\\PerlBasic1\\Perl\\FileHandling\\FileList.txt"); 
print LOG "$mymember\n";
 close(LOG);
}

Find more posts tagged with

Comments

Bhargav Coca

I am this some what figured out, but now i have issue with NET::FTP.

THere is soem thing called pwd() which returns the present working directory once ftp is set up, for me it is returning an array i am just defining as follows,

$ftp->pwd();

what am i missing?

Thanks

Migrateduser

Are you sure you're getting back an array? It should return a string that represents the current directory. What do you see when you do the following:

my $pwd = $ftp->pwd();
print $pwd . "\n";

Bhargav Coca

thanks dave, i guess i messed it up at the print statement. Sorry my mistake. I am on Windows doing this when i do pwd it gives me the root "/" . Now i am trying to change directory it doesn't change it, do i have to give full path while ftpying?

here is my snippet.

use strict;
use Net::FTP;
my $ftp = Net::FTP->new("DLEXT02", Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login("necelftp",'n3c3lf7b')
or die "Cannot login ", $ftp->message;

$ftp->cwd("/incoming")
or die "Cannot change working directory ", $ftp->message;

my $pwd = $ftp->pwd();
print $pwd . "\n";

$ftp->get("digital_av.zip")
or die "get failed ", $ftp->message;

print "$ftp\n";

$ftp->quit;

Thanks

Migrateduser

Well, it depends. I prefer doing the following before I put / get files:

$ftp->cwd("/some/directory");

if your Windows box is running its FTP server in Unix-style, the forward slashes are okay. Otherwise, I'm not sure. Also, make SURE you make the following statement before you transfer your zip file:

$ftp->binary;

Dave

Bhargav Coca

i donot understand get functionality right, can you please tell me why it is going wrong.

general syntax is

get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] )

I am doing this,

$ftp->get(digital_av.zip[,digital_av.zip[,E:/]])

I am wrong somewhere....

Please advice.

Thanks

Migrateduser

I recommend you cwd to your E drive before you instantiate the FTP connection and then when you're connected, files will go into that directory. Then, all you need is:

$ftp->get("digital_av.zip");

The hard braces are not literal -- those are notation. But the line above will attempt to retrieve the zip file and put it into whatever your current working directory is at that time.

Dave

Bhargav Coca

This is interesting. I have this perfectly working file which will get digital_av.zip and dumps it in the current folder.

I have put this ipl under $iwhome/custom/bin and i am running the file two ways one is from clt doing "iwperl path-to-file" and double click on the ipl file in windows explorer.

In the first case it is not getting the file, in the second case it is getting file in a blink.

Strange.

Thanks