Разбор строки интернет-страницы за строкой

Question

Во-первых, я хотел бы извиниться - я новичок в Perl, и мой вопрос настолько прост, что я почти уверен, что его уже задавали, но, к сожалению, я не смог его найти.

Iхотел бы проанализировать интернет-страницу, как я анализирую текстовый файл с open my $file, "<", "..".То есть я бы хотел использовать цикл: while (my $line = <$file>).К сожалению, я не мог найти способ сделать это;только используя LWP :: UserAgent с некоторыми ссылками и содержимым, но это дает мне всю интернет-страницу.Я мог бы сделать из него массив, разделив его по \ n, но я действительно хочу использовать удобство <$file>.

Что я могу сделать?

Спасибо большоемного и еще раз извините, если об этом спрашивали раньше.

Answer 1

Вот один из способов сделать это:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://search.cpan.org/');

# assume a successful response

open(my $fh, "<", \$response->decoded_content);
while (<$fh>) {
  print "line $. has ", length($_), " characters\n";
}

# $fh will close when it goes out of scope.