踏岸寻柳

#!/usr/bin/perl#ok, lets begin.use Net::FTP;#set some variables$host = "10.20.30.40";$user = "username";$pass = "password";$path = "/home/mengge/testpath";#login to host && change cwdmy $ftp = new

#!/usr/bin/perl#ok, lets begin.use Socket;use Sys::Hostname;#get hostname && get hostaddress infomy($name,$aliases,$type,$len,@myaddr)=gethostbyname(hostname());print "$name,$aliases,$type,$len/n";fo