pbot/applets/define.pl

#!/usr/bin/perl -w

# SPDX-FileCopyrightText: 2003-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT

# quick and dirty by :pragma

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/browse/$phrase");

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

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

    if ($text =~ m/Did you mean <a class.*?>(.*?)<\/a>/g) {
        print "Did you mean '$1'?  Alternate suggestions: ";

        $i     = 90;
        $comma = "";
        while ($text =~ m/<div id="spellSuggestWrapper"><li .*?><a href=.*?>(.*?)<\/a>/g && $i > 0) {
            print "$comma$1";
            $i--;
            $comma = ", ";
        }
    }

    #  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/- (.*?) dictionary result/g) { $entries = $1; }

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

if ($entry > $entries) {
    print "No entry found for $phrase.\n";
    exit 0;
}

print "$phrase: ";

$i = $entry;

$defint = "";

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

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

    # and now for some fugly beautifying regexps...

    $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;

    if ($defint =~ /interfaceflash/) {
        $i++;
        next;
    }

    $i++ and next if $defint eq " ";

    print "$i) $defint ";

    $i++;
}

print "\n";