[求助]我想用PERL做一个程序,实现它用远程SE

[求助]我想用PERL做一个程序,实现它用远程SE
我想用PERL做一个程序,实现它用远程SERVER下载文件和文件夹..
比如说: $a="//server/pad",SERVER路经.然后下的文件是 1.EXE 和文件夹 2
应该怎么编写.能给个范例吗?谢谢.

我只知道能下载文件,文件?
我只知道能下载文件,文件夹还没试过.
给你个例子吧:
# 用Perl写的FTP客户端程序
#!/usr/bin/perl

use Net::FTP;

#set some variables
$host = "10.18.12.32";
$user = "wangjx";
$pass = "family";
$path = "DOC/";
$dir = "D:/result/other";
$pre =".ok";
chdir("$dir");

#login to host && change cwd
my $ftp = Net::FTP -> new($host, Debug => 0);
if (not defined $ftp){
die "Can Not Connect To 202.96.64.144\n";
}
else{
print "Connect Success\n";
}
$ftp->login($user,$pass) or die "Error on logging in : $!";
$ftp->cwd($path) or die "Error on changing directory : $!";

#list files in the cwd
my @AllFiles = $ftp->ls();
foreach my $file (@AllFiles)
{
$ftp->get($file) or die $ftp->message;
}
#after list, quit
$ftp->quit();

   

以上例子是下载远程文件夹.
以上例子是下载远程文件夹DOC下的'.OK'文件,将下载的文件存放到本地目录D:/result/other下.
你可以试着改一下