#!/usr/bin/perl
################################################################################
# #
# ############################################################################ #
# # Title : randword.pl # #
# # Description : You're a douche, pc486. # #
# # Coded by : Justin "HEYO--!" Lee # #
# # Version : 0.0.2.3 # #
# # Date : 2008-12-14 # #
# # License : GNU General Public License v.2 # #
# # Copyright (C) 2008 Justin Lee <kool.name at gmail.com> # #
# ############################################################################ #
# #
# ############################################################################ #
# # This program is free software; you can redistribute it and/or # #
# # modify it under the terms of the GNU General Public License version 2 # #
# # as published by the Free Software Foundation. # #
# # # #
# # This program is distributed in the hope that it will be useful, # #
# # but WITHOUT ANY WARRANTY; without even the implied warranty of # #
# # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # #
# # GNU General Public License for more details. # #
# # # #
# # You should have received a copy of the GNU General Public License # #
# # along with this program; if not, write to the Free Software # #
# # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA # #
# # 02110-1301, USA. Or, see: <http://www.gnu.org/licenses/> # #
# ############################################################################ #
# #
################################################################################
# config
my $url = 'http://www.zokutou.co.uk/randomword/index.php';
# script
use strict;
use warnings;
use lib '.';
use HTML::Scrape qw(put);
use LWP::Simple;
my $scraper = new HTML::Scrape(
Machine => [
# find the word's table
{ 'tag' => 'table',
'require' => { 'width' => qr/95%/,
'border' => qr/2/,
'align' => qr/center/i,
'cellpadding' => qr/8/,
'cellspacing' => qr/0/,
'bordercolor' => qr/85A1CC/i,
'bgcolor' => qr/#babfFf/i } },
# find the word's element
{ 'tag' => 'h4' },
# grab the word
{ 'text' => put('word') }
]
) or die;
# tsv from ScrapeTest.pl is fucking cryptic, you bastard ;)
my ($html) = get($url) or die "Couldn't retrieve: $url";
my ($word) = $scraper->scrape($html,1);
print "Random Word: $word->{'word'}\n";