- #!/usr/bin/perl
- use Net::SCP::Expect;
- my $pc_ip="192.168.233.135";
- my $pc_passwd="test";
- my $pc_user="test";
- my $pc_ssh_port="22";
- eval{
- my $scpe = Net::SCP::Expect->new(host=>$pc_ip,user=>$pc_user,password=>$pc_passwd,port =>$pc_ssh_port,auto_yes=>1);
- #$scpe->scp("$pc_ip:/home/autotest/log/$log_file","$ENV{WORKSPACE}/MPLS_Test_Result.html");
- $scpe->scp("/home/huanghongbo/testlogs/test.log","$pc_ip:/home/huanghongbo/testlogs/");
- };
来源: