는 펄

Question

내가 아래에있는 프로그램의 출력을 계산 할 수 있어야합니다

에 출력의 길이를 계산하는 방법, 출력은 기본적으로, 나는 그러나 그것을 만들려고 한

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

다워야 그것 dosent 작동하는 것, 그래서 약간의 도움을 크게 감상 할 수있을 것입니다

그냥 작은 배경 정보에 대한 프로그램 내가 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; 
}