论坛 › Perl › Perl脚本学习经验（三）--Perl中ftp的使用

ustbwang 发表于 2015-12-27 14:38:01

Perl脚本学习经验（三）--Perl中ftp的使用

　　使用use Net::FTP;
Demo:
    my $Server = '192.168.1.1';
    my $User = 'admin';
    my $Password = 'admin';
   
    my $ftp = Net::FTP->new($Server,Passive => 0, Debug => 1,Timeout => 10) or die "Could not connect.\n";
    if (defined $ftp)
    {
      if ($ftp->login($User, $Password) or die "Could not login. \n")
      {   
            $ftp->cwd("config");                   #切换目录   
   
            $ftp->put($g_file);                     #上传文件
      }
    }
    $ftp->quit();                                    #退出ftp

查看完整版本: Perl脚本学习经验（三）--Perl中ftp的使用