User Profile

Collapse

Profile Sidebar

Collapse
p1qb0d
p1qb0d
Last Activity: May 26 '16, 06:22 AM
Joined: May 25 '16
Location:
  •  
  • Time
  • Show
  • Source
Clear All
new posts
  • p1qb0d
    started a topic getlines from Net::Telnet works different (works/does not work). while loop opt?
    in Perl

    getlines from Net::Telnet works different (works/does not work). while loop opt?

    Hello.

    I'm trying to work with Cisco hardware.

    Simple script read the config:
    Code:
    #!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet;

my $t;
my $host = "megahw";
my $username = "megauser";
my $passwd = "megapassword";
my @lines = ();
my $fh;
my $fn = "/var/tmp/t.log";
    ...
    See more | Go to post
    • p1qb0d
      replied to The script works in debug mode and doesn't in run mode
      in Perl
      The same issue with the same module Net::Telnet.

      My script has "use strict; use warnings;". There are no errors in the script.

      It works under debugger and doesn't work in the flat run (the function getlines returns only one string instead of 25 under debugger).

      Perl 5.8.8 under CentOS 5.11, perl-Net-Telnet-3.03-5.

      The main excerpt:

      Code:
      @lines = $t->getlines(All =>
      ...
      See more | Go to post

        Leave a comment:

      No activity results to display
      Show More
      Working...