行動記録

#!/usr/bin/perl

###
# Copyright © 2003 IWAI, Masaharu All Rights Reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

use warnings;
use strict;
use LWP::Simple;
use HTML::LinkExtor;

my $target = shift;

my $myid = 'review-22';
my $check = 'http://www.amazon.co.jp/exec/obidos/ASIN/';

my $content = LWP::Simple::get($target);
my $p = new HTML::LinkExtor(\&callback, $target);
my @urls = ();

sub callback {
  my($element, %links) = @_;
  if ( ($element eq "a") && ($links{href} =~ m!$check! ) ){
    push(@urls, values %links);
  }
}
$p->parse($content);

foreach my $url (@urls){
  $url =~ m!(${check}[\w]+/)!;
  print "$1$myid\n";
}