ftp获取文件 ，如何指定本地保存目录??

gdutllf2006

ftp获取文件 ，如何指定本地保存目录??

目录结构：
oracle@bmpdb3a:/ora_arch/huawei_opr/mouse/reportgene> ls
genereport.pl  input  output

脚本：genereport.pl
需要把$ftp->get的文件放到input目录下，没有实现，文件还是保存在当前目录下？？

#!/usr/bin/perl
use strict;
use Net::FTP;
use POSIX;

my $yesterday=strftime("%Y%m%d", localtime(time()-86400));


print "Yesterday is $yesterday\n";


my ($IP, $USERNAME,$PASSWORD)=("xxx.xxx.xxx.xxx","med1","med");
my $source_directory="/app1/cdr/bak_MIS/mon/$yesterday/";
print "source_directory is $source_directory\n";

my $ftp = Net::FTP->new($IP, Debug => 0)  or die "Cannot connect to 192.168.17.173: $@";

$ftp->login($USERNAME,$PASSWORD)  or die "Cannot login ", $ftp->message;

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

my $destdir="input/";   
my $pwddir=`pwd`;           
print "The current dictory is: $pwddir";
chdir("$destdir");
my @filelist=$ftp->ls("mon$yesterday*.unl");

foreach my $file (@filelist){
    $ftp->get("$file")  or die "get failed ", $ftp->message;
}

$ftp->quit;

malon111

chdir "path/to/local/dir";

gdutllf2006

chdir "path/to/local/dir";
malon111 发表于 2011-06-10 16:22

my $destdir="input/";   
my $pwddir=`pwd`;           
print "The current dictory is: $pwddir";
chdir("$destdir");

使用了，但没达到效果，好像

gdutllf2006

my $ftp = Net::FTP->new($IP, Debug => 0)  or die "Cannot connect to 192.168.17.173: $@";

$ftp->login($USERNAME,$PASSWORD)  or die "Cannot login ", $ftp->message;

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

#my $destdir="input/";   
#my $pwddir=`pwd`;           
#print "The current dictory is: $pwddir";
#chdir("$destdir");

my @filelist=$ftp->ls("mon$yesterday*.unl");

foreach my $file (@filelist){
                my $localfile="input/$file";
    $ftp->get("$file","$localfile")  or die "get failed ", $ftp->message;
}

$ftp->quit;

解决了