gctaylor1 has asked for the wisdom of the Perl Monks concerning the following question:
When I use Net::Telnet my command works but it also echoes the command and I want just the results. The docs for Net::Telnet talk about this and suggest using cmd_remove_mode, yet I still get the same result in my output. I've been working on this silly problem for hours. It seems so simple but I cannot figure out what I'm missing here?
to remove two lines.
Here's my code:
Which produces this output:#!/usr/bin/perl use strict; use warnings; use Net::Telnet (); my $t = new Net::Telnet (Timeout => 10, Prompt => '/host\@user ~\/'); my ($username, $passwd) = qw(user password); $t->open("host"); $t->login($username, $passwd); my @distro = $t->cmd(String => "cat /etc/redhat-release", cmd_remove_mode => '1'); print "@distro";
$ ./connect.pl $ cat /etc/redhat-release CentOS release 5 (Final)
and I don't want the cat command. Can anyone shed some light?
UPDATE:
Set cmd_remove_mode to the number of lines to remove such as
my @distro = $t->cmd(String => "cat /etc/redhat-release", cmd_remove_mode => '2');
to remove two lines.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Can't get cmd_remove_mode to work in Net::Telnet
by vek (Prior) on Jan 15, 2009 at 21:38 UTC | |
by gctaylor1 (Hermit) on Jan 15, 2009 at 21:44 UTC | |
by leriksen (Curate) on Jan 15, 2009 at 23:11 UTC |
Back to
Seekers of Perl Wisdom