Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

use of telnet in perl

by varalaxmibbnl (Acolyte)
on Sep 14, 2013 at 07:36 UTC ( #1054065=perlquestion: print w/ replies, xml ) Need Help??
varalaxmibbnl has asked for the wisdom of the Perl Monks concerning the following question:

hi monks, after executing this code the output dumped in out1.log should be read line by line (complete line) and i have to do the pattern match with that and i have to pick the lines which i require but it is not working plz help me out what changes are to be done....

#!/usr/local/bin/perl use Net::Telnet; open ($inputlog, ">out1.log"); $host = "xxx"; $port = "xxxx"; $box = new Net::Telnet(Timeout=>20, Errmode=>'die'); $box->open( Host => $host, Port => $port, ); $box->input_log($inputlog); $box->cmd("i"); $box->close; open(OUTFILE,">out2.txt"); for($i=26;$i<=40;$i++) { my @array = `awk 'NR==$i' out1.log`; foreach(@array) { if($_ =~ m/^\d+\. .*/ig ) { print OUTFILE ("$&\n"); } } }

Comment on use of telnet in perl
Download Code
Re: use of telnet in perl
by Laurent_R (Parson) on Sep 14, 2013 at 08:08 UTC

    but it is not working

    Please explain what is not working: do you get any output, is output different from what you wish, or what?

    It would also be good to get a sample of your input file.

Re: use of telnet in perl
by hippo (Curate) on Sep 14, 2013 at 17:33 UTC

    This:

    for($i=26;$i<=40;$i++) { my @array = `awk 'NR==$i' out1.log`;

    is very inefficient. Why would you shell out 15 separate times just to retrieve one line of input each time? Why do you then run a foreach on an array which by definition will have only one element? There doesn't seem much logic to this, TBH.

    Ignore the telnet part while fixing the post-processing. Just save one instance of out1.log and run your post-processing on that until it works. If you still have problems, come back here with sample input, sample output and desired output and then we might be able to offer some further advice.

    Good luck

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1054065]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2014-12-25 19:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (162 votes), past polls