ネットで買ってる日用品がそろそろ切れそうで、そろそろ買おうかなぁと見てみたら、 ちょうど2,3日前に買ったら1000円くらい安かったことがわかり、 何か悔しくなったので「価格.comの最安値をチェックして安い時に買ってやろう」という気になりました。 まずはPerlで。Web::Scraperで。 とりあえず思いついたのはWeb::Scraperで定期的に取得。 #!/usr/local/bin/perl use strict; use warnings; use Web::Scraper; use URI; my $url = shift; my $scraper = scraper { process '#minPrice > a', 'price' => 'TEXT'; result 'price'; }; my $price = $scraper->scrape(URI->new($