Check latest free ebook from packt pub.

check-packtpub-freelearning.perl

#!/usr/bin/perl -w-

use strict;
use warnings;
use autodie;

my $URL = "https://www.packtpub.com/packt/offers/free-learning";
my $CMD = "curl -s -S $URL";

my ($match_title, $bookname) = (0, "");

open C, "$CMD |" or die "Can't execute cmd '$CMD' : $!\n";
while (<C>) {
	if (/<title>Free Learning | PACKT Books<\/title>/) {
		die "Title already matched!\n" if ($match_title == 1);
		$match_title = 1;
		next;
	}
	if (/<h2>$/) {
		($bookname) = (<C> =~ /\s+(.+?)\s+\<\/h2/);
	}
}
close C;

if ($match_title) {
	print localtime . "\t$bookname\n";
} else {
	print localtime . "\t[failed to get bookname]\n";
}

1;