perl - 如何计算perl中输出的长度

Question

我需要能够计算我下面的程序的输出，输出基本上应该看起来像

website-name.com - Breaking news, opinion, politics, entertainment, sports and culture.
Length 89008
Lines 1517

我已尝试创建它，但它似乎正在工作，因此将不胜感激

只是为了一点背景信息，我正在编写脚本的程序正在使用 LWP::UserAgent; 从网站获取内容并显示它，所以我想做的是计算输出并获取字符数量。

#!/usr/bin/perl

use strict;
use warnings;
require LWP::UserAgent;



 my $size = length(content);

 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;

 my $response = $ua->get('http://kmra.org/');

 if ($response->is_success) {
     print $response-> title();
     print "$size\n";

 }
 else {
     die $response->status_line;
 }

Answer 1

得到响应后需要获取内容：

#!/usr/bin/perl

use strict;
use warnings;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://kmra.org/');

if ($response->is_success) {
  my $size = length($response->content());
  print $response->title();
  print "$size\n";
} else {
  die $response->status_line;
}