0

以下のプログラムの出力をカウントできるようにする必要があります。出力は基本的に次のようになります

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;
 }
4

1 に答える 1

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;
}
于 2013-04-10T02:47:25.693 に答える