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"); } } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: use of telnet in perl
by hippo (Bishop) on Sep 14, 2013 at 17:33 UTC | |
Re: use of telnet in perl
by Laurent_R (Canon) on Sep 14, 2013 at 08:08 UTC |
Back to
Seekers of Perl Wisdom