Tarski

#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;
use XML::XPath;
use Data::Dumper;

use constant NOMRAL_DISPLAY => "\e[0;0m";
#use constant NOMRAL_DISPLAY => "_";
use constant UNDERLINE => "\e[0;4m";
#use constant UNDERLINE => "_";
use constant HOSTNAME => "http://services.aonaware.com";
use constant DICTIONARY => "gcide";
use constant STRATEGY => "lev";
use constant DEFINE_URL =>
    HOSTNAME . "/DictService/DictService.asmx/DefineInDict?dictId=" . DICTIONARY . "&word=";
use constant SEARCH_URL_1 => HOSTNAME ."/DictService/DictService.asmx/MatchInDict?dictId=" . DICTIONARY . "&word=";
use constant SEARCH_URL_2 => "&strategy=" . STRATEGY;

if ($#ARGV == -1) {
    print STDERR "No command line args specified\n";
    exit 1;
}

foreach my $argNum (0 .. $#ARGV) {
    my $rawXml = get(DEFINE_URL . $ARGV[$argNum]);
    my $xp = XML::XPath->new(xml => $rawXml);
    my $data = $xp->find('//Definition/WordDefinition');
    if ($data->size == 0) {
    print "No Matches for $ARGV[0]\n";
        $rawXml = get(SEARCH_URL_1 . $ARGV[$argNum] . SEARCH_URL_2);
        $xp = XML::XPath->new(xml => $rawXml);
        $data = $xp->find('//DictionaryWord/Word');
        if ($data->size > 0) {
            print "Did you mean: -\n";
            for my $def ($data->get_nodelist) {
                print $def->string_value . "\n";
            }
        }
    } else {
        my $count = 1;
        for my $def ($data->get_nodelist) {
        print UNDERLINE . $ARGV[$argNum] . " DEFINITION $count" . NOMRAL_DISPLAY . "\n";
        print $def->string_value . "\n";
        $count++;
        }
    }
}