topic Re: mget using Perl in Operating System - HP-UX

mget using Perl

Kishore.R.P — Tue, 09 Sep 2008 05:04:57 GMT

all,
I want to copy a file with an extension .zip using FTP via Perl.
am using NET::FTP module but get() method does not seem to work if i need to copy a file with some extension..
Pls help out

Re: mget using Perl

Ollie Rowland — Tue, 09 Sep 2008 07:21:16 GMT

Hi,

Can you give a sample of the perl script for further analysis?

Re: mget using Perl

H.Merijn Brand (procura — Tue, 09 Sep 2008 09:34:19 GMT

You mean something like this?

my $ext = "zip";
for ($ftp->ls) {
m/\.$ext$/i or next;
$ftp->get ($_);
}

Enjoy, Have FUN! H.Merijn

Re: mget using Perl

Kishore.R.P — Tue, 09 Sep 2008 10:02:19 GMT

i got it by using $ftp->ls(*.zip)
Thanks a lot..

Re: mget using Perl

H.Merijn Brand (procura — Tue, 09 Sep 2008 11:43:11 GMT

note that using $ftp->ls ("*.zip") (don't forget the quotes) is case sensitive, whereas my suggested solution will catch all .zip .Zip .ZIP .ziP .zIp etc

Enjoy, Have FUN! H.Merijn [ seeing no appreciations for the given comments ]