LWP не работает

Question

Попробовал это с моим собственным выражением, чтобы заставить его работать с моим проектом. Но после нескольких часов работы в Интернете я все равно не работаю. Пробовав код ниже (не мой), но он производит только оператор «die». Мой собственный код (другой вопрос здесь) возвращает только «Нажмите любую клавишу ..» Что я делаю неправильно?

#!/usr/bin/perl -w 
# cookbook-rank - find rank of Perl Cookbook on Amazon 

use LWP::Simple; 

my $html = get("http://rads.stackoverflow.com/amzn/click/1565922433") 
    or die "Couldn't fetch the Perl Cookbook's page."; 
$html =~ m{Amazon\.com Sales Rank: </b> ([\d,]+) </font><br>} || die; 
my $sales_rank = $1; 
$sales_rank =~ tr[,][]d; # 4,070 becomes 4070 
print "$sales_rank\n"; 

Answer 1

die происходит, когда загруженный контент не содержит какой-либо текст, который соответствует регулярному выражению. Нет ничего плохого в LWP или самом коде, кроме предположения, что загрузка будет соответствовать. (В заявлении die лучше всего содержалось объяснение того, что пошло не так.)

Answer 2

Похоже, что HTML-код Amazon изменился с тех пор, как этот пример был написан. Страница больше не содержит строку «Amazon.com Sales Rank». Вместо этого он теперь говорит: «Рейтинг лучших амазонок:».

Но вам нужно посмотреть источник HTML для страницы. По какой-то причине Amazon вставляет более тридцати пустых строк между этой меткой и линией, содержащей фактический рейтинг продаж.

Что является, в целом, хорошим примером того, почему скрипинг экрана - плохая идея. Вам будет гораздо лучше посоветовать использовать API продуктов Amazon.