Have tried it with my own expression to get it to work with my project. But after several hours of looking at the internet, I still don't get it to work. Trying the code below (not mine) but it does only produce the "die" statement. My own code (another question on here) only returns "Press any key.." What am I doing wrong?
#!/usr/bin/perl -w
# cookbook-rank - find rank of Perl Cookbook on Amazon
use LWP::Simple;
my $html = get("http://www.amazon.com/exec/obidos/ASIN/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";