use strict;
use LWP::UserAgent;
my $VERSION = 1.0;
my %pages = (
'Firewall 1' => 'http://www1.fatbrain.com/asp/bookinfo
+/bookinfo.asp?theisbn=007134229x',
'Bay Network Router Configuration' => 'http://www1.fat
+brain.com/asp/bookinfo/bookinfo.asp?theisbn=0070284857',
'Mastering Algorthims with Perl' => 'http://www1.fatbr
+ain.com/asp/bookinfo/bookinfo.asp?theisbn=1565923987',
);
foreach (keys %pages) {
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => $pages{$_};
my $string = $ua->request($req)->as_string;
if ($string =~ m/Not yet published/g) {
print "$_ is not out yet.\n";
} else {
print "$_ has been published.";
}
}
=head1 NAME
fatbrain - This script takes a list of books and looks to see if they
+are considered published on fatbrain.
=head1 DESCRIPTION
I am always waiting for books to be published and I am sick of doing a
+ll the work in looking them up.
I created this script to check if the books I am looking for are publi
+shed.
=head1 README
=head1 PREREQUISITES
This script has a few requirements. You will need LWP and you will ne
+ed to look up the book the first time
yourself. Once you have the url cut and paste it into the value field
+ in %pages and put in a description in the key
of the hash.
=head1 COREQUISITES
None
=pod SCRIPT CATEGORIES
Web
=cut
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|