Query in NET:Telnet module

[kriz4321]

Hello all
i am using net:telnet module to login to the remote machine and execute some commands and to collect some logs corresponding to the command given.
After loging into the machine I do patternmatch for a string and collect the logs and store it in a file.
The code for the same is given below.

$telnet->print('cmd1');#command to be executed
sleep(5);
($prematch,$match) = $telnet->waitfor(
    String  => "2>",
    Timeout => 10 ,
    Errmode => 'return',
);
open(OUTFILE1,">x");
print OUTFILE1 ($prematch);#copying the logs of cmd into a file.
close(OUTFILE1);
 

The above code works fine and iam able to see the contents in the file "X" created.

I need to modify the code in such a way that all the logs must be stored in the file even if I cont match any pattern(bcoz logs will be varying
I will not be able match any pattern)I just tried giving String => "" but it doesnot work and the content of the file "x"is zero.

I did some search in google and the info i got is

The waitfor() method is the workhorse of Net::Telnet. It waits up to Timeout seconds for the specified string or pattern to appear on the data stream coming from the remote host. In a scalar context, waitfor() returns a true value if the desired pattern was seen.

The issue here is I cont match any pattern in that case how can I get the logs from remote host.

Any pointers in solving it will be helpful.

[KevinADC]

It sounds like you want to read all the lines of the files:

getlines - read next lines

@lines = $obj->getlines([Binmode => $mode,]
[Errmode => $errmode,]
[Input_record_se parator => $chars,]
[Rs => $chars,]
[Telnetmode => $mode,]
[Timeout => $secs,]
[All => $boolean,]);

This method reads and returns all the lines of data from the object until end of file is read. You can use input_record_se parator() to change the notion of what separates a line. The default is "\n". A time-out error occurs if all the lines can't be read within the time-out interval. See timeout().

[kriz4321]

Thanks kevin I tried the same and it worked.

This is the code i have

$telnet3->print("monitor log");
sleep(40);
@lines = $telnet3->getlines(
    Binmode    => 0,
    # Errmode    => $errmode,
    Input_record_separator => $chars,
    Rs         => $chars,
    Telnetmode => $mode,
    Timeout    => $secs,
    All        => $boolean,
);
print @lines;
 
$telnet3->print('quit');
 

when I did this Iam able to see all the logs.If you see i have a given a sleep time of 40 secons so iam able to see all the logs only upto 40 sec.(If i dont give sleep time iam not able to see any logs)
I cont hardcode this value as we cont predict the time.
Iam not sure if we can acheive this by the folling process.
i want to run run this script without this line($telnet3->print('quit'); ) so it never quits from the host and keep it in a infiniteloop(by including a while loop) and run another perl script which inturn kill this perl script and collect the logs.
is there anyother betterway to do this.