Net::Telnet

来源:互联网 发布:珠宝设计软件 编辑:程序博客网 时间:2024/06/05 08:58


#!/usr/bin/perl -w#file:remoteps.pluse strict;use Net::Telnet;use constant HOST => 'phage.cshl.org';use constant USER => 'lstein';use constant PASS => 'xyzzy';my $telnet=Net::Telnet->new(HOST);$telnet->login(USER,PASS);my @lines=$telnet->cmd('ps -ef');print @lines; 


0 0
原创粉丝点击