perl telnet question ($telnet->cmd)

[perlxyo999]

Hi ,
I have a problem doing manipulation (like split) in string comeing back from telnet commnd :

$HOST = 'xxx';
$USER = 'yyy20';
$PASS = 'yyy-pass';
#$telnet = Net::Telnet->new($HOST);
#$telnet->login($USER,$PASS);
$telnet = new Net::Telnet (Timeout => 30,
Prompt => '/[%#>] $/');
$telnet->open($HOST);
$telnet->login($USER, $PASS);
.....

$cmdstr_GSR_logname = "ls -ta ../log/ | grep abc_efg.$HOST | head -1";
(@lines) = $telnet->cmd($cmdstr_GSR_logname); # i tried with $lines[]
@line = split (/./, $lines); # i tried with split('.',$lines)

i tried every manipulation on @lines ($lines)
i cant do split on the string comeing back.

please help

[GunnarH]

I have a problem doing manipulation (like split) in string comeing back from telnet commnd :

If that is the problem you are having, why don't you post the content of the output rather than all that code?

$cmdstr_GSR_logname = "ls -ta ../log/ | grep abc_efg.$HOST | head -1";
(@lines) = $telnet->cmd($cmdstr_GSR_logname);
@line = split (/./, $lines);

But you haven't assigned anything to the variable $lines...

How about making Perl help you by adding

use strict;
use warnings;

to the top of the program and declare the variables using my()?