#!/usr/bin/perl -w |
# file:remoteps.pl |
use 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 ; |
by: 发表于:2017-09-13 14:15:05 顶(0) | 踩(0) 回复
??
回复评论