错误处理在网络爬虫开发中的重要性：Perl示例 引言

Plain Text

1

2

3

foreach my $img (@images) {

print "图片链接：$img\\n";

}

Plain Text

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

复制

#!/usr/bin/perl

use strict;

use warnings;

use LWP::UserAgent;

use HTML::Parser;

my $ua = LWP::UserAgent->new;

my $url = 'http://www.example.com';

my $response = $ua->get($url);

if (!$response->is_success) {

die "请求失败，状态码：" . $response->code . "，消息：" . $response->message;

}

my $html = $response->decoded_content;

my $parser = HTML::Parser->new(api_version => 3.14);

my @images;

$parser->handler(start => sub { push @images, $_[0]{data} if $_[0]{tag} eq 'img' });

eval {

$parser->parse($html);

};

if ($@) {

warn "解析HTML时发生错误：$@";

exit;

}

foreach my $img (@images) {

print "图片链接：$img\\n";

}