telnet.pl

Perl开发的数据采集工具 基于UNIX

#!/usr/bin/env perl

use Net::Telnet;
use Data::Dumper;

my $ip = "133.197.19.2";
my $usr = "wangguan";
my $pass = "wangguan";

my $telnet_hdl=new Net::Telnet (Timeout => 1800, Prompt => '/[\$%#>:]\s*$/');

        $telnet_hdl->open(Host=>$ip,Timeout=>60);
        $telnet_hdl->login($usr, $pass);

my @csh = $telnet_hdl->cmd("which csh");
print Dumper(\@csh);