help with ftp

RE: help with ftp

--===============1205395663==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_6DFE695E783E004A9E6D2CD1E0B8CA1F0BED995FD8bma il2bigfixc_"

--_000_6DFE695E783E004A9E6D2CD1E0B8CA1F0BED995FD8bmail2bigfi xc_
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

from the pod:

mkdir ( DIR [, RECURSE ])

Create a new directory with the name DIR. If RECURSE is true then mkdir wil=
l attempt to create all the directories in the given path.





________________________________
From: activeperl-bounces@listserv.ActiveState.com [activeperl-bounces@lists=
erv.ActiveState.com] On Behalf Of zilore mumba [zmumba@yahoo.com]
Sent: Tuesday, December 29, 2009 6:00 AM
To: activeperl@listserv.activestate.com
Subject: help with ftp

Hello Perl Community.
Thanks so much for all the help provided lduring the current year.
Happy and prosperous New Year 2010 to all.

Below is my code where I have a problem with ftp. I am trying to transfer d=
ata from one PC to another. When I try to make a directory on the distant m=
achine, I get the error: "Can't locate object method 'mkpath' via package '=
ftp".
When I comment this part out, the same error appears later on with "ftp->pu=
t".
Both parts with problem are highlighted in yellow.

I am not able to find help in Perldoc.
Any help will be appreciated

Zilore


#!/usr/bin/perl -w
#This transfers files from a PC running LINUX to Windows PC.
#
use Net::FTP;

use strict;
use warnings;
use POSIX;
use File::Path;
use File::Copy;

my $debug =3D 1;
# set variables
#
my $User =3D 'pc-mis';
my $Pass =3D 'acmad11';
my $Host =3D '192.168.2.115';

my @models =3D ('arpege', 'ukmo', 'ecmf');
my @now =3D localtime;
my $dat =3D strftime "%Y%m%d", @now;
my $mon_ab =3D strftime "%b",@now;
my $mon_num =3D strftime "%m",@now;
my $mon_name =3D strftime "%B",@now;
my $yr=3Dstrftime "%y",@now;

my $dash=3D"-";
my $mod =3D "models";

my ($day, $month, $year) =3D (localtime(time() - 60 * 60 * 24)) [ 3, 4, 5 ]=
;
$year =3D $year+1900;
$month =3D $month+1;

my $dat0 =3D sprintf("%04d%02d%02d", $year, $month, $day );

my $archive_dir =3D "../ARCHIVE/$mon_num$dash$mon_name$yr"; # where data =
is

my $remote_basedir =3D '/';
my $data_dir =3D "ARCHIVE/$mon_num$dash$mon_name$yr/$mon_ab$yr$dash$mod"; #=
where to put it

my @localdir =3D("../ARCHIVE/$mon_num$dash$mon_name$yr/$models[0]/$dat0",
"../ARCHIVE/$mon_num$dash$mon_name$yr/$models[1]/$dat0",
"../ARCHIVE/$mon_num$dash$mon_name$yr/$models[2]/$dat0");

#my @remotedir =3D ('$data_dir/$models[0]/$dat0','$data_dir/$models[1]/$dat=
0',
# '$data_dir/$models[2]/$dat0');

# connect to the remote host

print "Connecting to $Host ...\n";
my $ftp =3D Net::FTP->new($Host, Timeout =3D> 360, Passive =3D> 'true') or =
fail ();

$ftp->login($User,$Pass) or die " login '$ftp' failed: $_ ($^E)";
$ftp->binary;

foreach my $ddir (@remotedir) {
if (! -d $ddir) {
print "mkpath $ddir\n" if $debug;
$ftp->mkpath ($ddir) or die "mkpath '$ddir' failed: $! ($^E)";
}
}
$ftp->cwd($data_dir);

# transfer data

print "Transfering data\n";

#my %numbers =3D ('$localdirs[0]' =3D> '0','localdirs[1]' =3D> '1','localdi=
rs[2]' =3D> '2');

my %remotedirs =3D ();
my $remotedirs;

foreach my $model (@models) {

# define local and remote directories before copying files

if ($model eq 'arpege') {
my $remotedirs =3D "$data_dir/$models[0]/$dat0";
$remotedirs{$remotedirs} =3D $localdir[0];

} elsif ($model eq 'ukmo') {
my $remotedirs =3D "$data_dir/$models[1]/$dat0";
$remotedirs{$remotedirs} =3D $localdir[1];

} elsif ($model eq 'ecmf') {
my $remotedirs =3D "$data_dir/$models[2]/$dat0";
$remotedirs{$remotedirs} =3D $localdir[2];
}

# Transfer files

foreach my $rdir (keys %remotedirs) {
$ftp->cwd($remotedirs($rdir));

my $ldir =3D $remotedirs{$rdir}

print "Transfering files from $ldir to $remotedirs(rdir)\n" if $debug;
opendir DIR, "$ldir" or die "opendir '$ldir: $! ($^E)";
while (my $file =3D readdir DIR) {
print "DIR";
exit;
next if $file =3D~ /\*(b|x|l)$/;
print "Putting $file\n" if $debug;
ftp->put($file) or warn "Failed '$file': $! ($^E)";
}
closedir DIR;

}
}

$ftp->close;
print "Transfering ends\n";
exit 0;

#===================3D=3 D=====
==================== =====3D=
==================== =====3D=
==
# Subroutines
#===================3D=3 D=====
==================== =====3D=
==================== =====3D=
==

sub fail {

$ftp->quit;
die "ftp error occurred\n";

}


__END__

my $files =3D $ftp->dir() or die "Error doing ftp->dir: $!\n";
my $files =3D dir() or die "Error doing dir: $!\n";
foreach (@$files) {
# skip lines not starting with d or -
if (/^[^d-]/) {
print "Skipping garbage dir line\n" if $debug;
next;
}

# ftp dir listing
#----0----- -1- ---2---- ---3---- ---4---- -5- -6 --7-- -----8--------
#total 52
#drwx--x--- 3 owner group 1024 Dec 13 1997 .
#drwxr-xr-x 671 owner group 49152 Dec 18 14:09 ..
#-rw-r--r-- 1 xyz httpd 2010 Sep 21 13:31 index.htm

my ($size, $file) =3D (split /\s+/, $_, 9)[4,8]; # get size/filename
next if $file =3D~ /^\.{1,2}$/; # skip . and ..

# if directory - call directory recurse routine

if (/^d/) {
...





--_000_6DFE695E783E004A9E6D2CD1E0B8CA1F0BED995FD8bmail2bigfi xc_
Content-Type: text/html; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable


1">