#!perluse warnings;use strict;use Net::FTP;my $ftpserver='192.168.188.2';my $ftpuser='tony';my $ftppassword='tony123456';my $ftp=Net::FTP->new("$ftpserver",Debug=>1)or die "$!";$ftp->login("$ftpuser","$ftppassword") or die "$!";###cwd前进到目录#$ftp->cwd('/abc') or die "$!";###ls显示文件my @file=【阅读全文】