getting rid of telnet prompt

[mike]

hi

i used Telnet.pm to telnet to a remote server to get some directory listing
but the listing always includes the "prompt" of the remote server
how do i not display the "prompt" at the end of my listing?

my $telnet = Net::Telnet-> new
(
Timeout => 30,
Host=> "$server"
);
$telnet-> login($name, $pass);
@listing = $telnet-> cmd("$command");
$telnet->close;
print @listing;


thanks

 

[Walter Roberson]

:i used Telnet.pm to telnet to a remote server to get some directory listing
:but the listing always includes the "prompt" of the remote server
:how do i not display the "prompt" at the end of my listing?

:my $telnet = Net::Telnet-> new
: (
: Timeout => 30,
: Host=> "$server"
: );
: $telnet-> login($name, $pass);
: @listing = $telnet-> cmd("$command");
: $telnet->close;
rint @listing;

If it is a separate line at the beginning, then shift @listing

If it forms part of a line, then $listing[0] =~ s/the prompt//;
or as appropriate.