pbot/modules/define.pl

#!/usr/bin/perl -w

# quick and dirty by :pragma

use strict;
use LWP::Simple;

my ($defint, $phrase, $text, $entry, $entries, $i);

if ($#ARGV < 0)
{
  print "What phrase would you like to define?\n";
  die;
}

$phrase = join("%20", @ARGV);

$entry = 1;

if($phrase =~ m/([0-9]+)%20(.*)/)
{
  $entry = $1;
  $phrase = $2;
}

$text = get("http://dictionary.reference.com/search?q=$phrase");

$phrase =~ s/\%20/ /g;

if($text =~ m/No results found/i)
{
  print "No entry found for '$phrase'. ";

  
  if($text =~ m/Dictionary suggestions:/g)
  {
    print "Suggestions: ";

    $i = 30;
    while($text =~ m/<a href="\/search\?r=2&amp;q=.*?>(.*?)<\/a>/g && $i > 0)
    {
      print "$1, ";
      $i--;
    }
  }

#  if($text =~ m/Encyclopedia suggestions:/g)
#  {
#    print "Suggestions: ";
#
#    $i = 30;
#    while($text =~ m/<a href=".*?\/search\?r=13&amp;q=.*?>(.*?)<\/a>/g 
# && $i > 0)
#    {
#      print "$1, ";
#      $i--;
#    }
#  }

  print "\n";
  exit 0;
}

if($text =~ m/<h1>(.*?) results for:/g)
{
  $entries = $1;
}

$entries = 1 if(not defined $entries);

if($entry > $entries)
{
  print "But there are only $entries entries for $phrase.\n";
  exit 0;
}

print "$phrase ($entry of $entries entries): ";

$i = 1;

while($i <= $entry)
{
  if($text =~ m/<td valign="top">(.*?)<\/td>/gs)
  {
    $defint = $1;
  }
  $i++;
}

# and now for some fugly beautifying regexps...

my $quote = chr(226) . chr(128) . chr(156);
my $quote2 = chr(226) . chr(128) . chr(157);
my $dash = chr(226) . chr(128) . chr(147);

$defint =~ s/$quote/"/g;
$defint =~ s/$quote2/"/g;
$defint =~ s/$dash/-/g;
$defint =~ s/<b>Pronun.*?<BR>//gsi;
$defint =~ s/<.*?>//gsi;
$defint =~ s/\&nbsp\;/ /gi;
$defint =~ s/\&.*?\;//g;
$defint =~ s/\r\n//gs;
$defint =~ s/\( P \)//gs;
$defint =~ s/\s+/ /gs;

$defint = substr($defint, 0, 300);

print "$defint\n";