文件名称:代码示例-Perl 在主机内容过滤应用中的实践
文件大小:42KB
文件格式:PPT
更新时间:2024-05-15 02:47:59
Perl 在主机内容过滤应用中的实践
代码示例 #创建FTP对象 $ftp = Net::FTP->new( "$SERVER" ) or die "Cannot connect to host.name: $@"; #登录服务器 $ftp->login("$FTP_USER","$FTP_PASSWD") or die "Cannot login ", $ftp->message; #显示文件和目录列表 my @dirlist = $ftp->dir("$DIR"); #下载文件 my $ret = $ftp->get( $remote_file, $local_file ); #关闭连接 $ftp->close();