>>81
my $links = $res->{list}[1]{link};
for my $link ( @$links ) {
　　say $link->{$_} for qw/url title/;
}