输出被 LWP::UserAgent 截断

Question

我尝试获取显示日志输出，但它给了我部分输出，预期输出 65000 字节。我该如何解决这个问题？

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('POST' => $url);
$request->content("command='term length 0, sh log'")
$request->protocol('HTTP/1.0');
my $respone = $ua->request($request);
warn Dumper($respone->content); #It only gives me the first page (I've included "term length 0" in my command).

Answer 1

这是与路由器“对话”的方式

Net::Telnet

:

#!/usr/bin/env perl -w
use strict;
use utf8;                                                                                                                                
use encoding qw[ utf8 ];
use Net::Telnet;
use Data::Dumper;

my $telnet = Net::Telnet->new(
    Prompt  => '/>/',
    Errmode => sub { warn "telnet warn $@" if $@ },
    Timeout => 20
);

#die "Die open telnet " if !$err;
$telnet->open( "172.17.20.1" );
$telnet->waitfor('/RETURN/');
$telnet->print("");
$telnet->waitfor('/Password:/');
$telnet->print('xxx');
$telnet->waitfor('/\>/');
$telnet->cmd('enable');
$telnet->waitfor('/Password:/');
$telnet->print('xxx');
$telnet->waitfor('/#/');
$telnet->cmd('term length 0, sh log');