http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/

Alternate packages repositories:
http://cpan.uwinnipeg.ca/PPMPackages/10xx/

The following perl scripts index *.txt in the current folder and search for “TEST”. The first one is using Perl’s KinoSearch module and the other one is using Plucene. KinoSearch is alot faster then Plucene and also gives better results.

(right click to download)

KinoSearch.pl

Plucene.pl

It include the zip code, city, state, latitude, longitude, and county (Last Updated: Sept 20, 2007).

• Download US ZIP codes CSV list

City CSV lists (USA and Canada)

They include city name, state/province, latitude, and longitude (Last Updated: July 31, 2007).

• Download Canada cities CSV List
• Download USA cities CSV List

Great to import in a database.

Credits: http://geocoder.ibegin.com/downloads.php

Download the dictionary.

Note: This file has been extracted from a MySQL database using MySQL Administrator’s backup feature.

$ mkdir ~/perl

Add this line in each of your Perl scripts (change perl version accordingly):

use lib '/home/your_username/perl/lib/perl5/site_perl/5.8.7';

OR rather than editing all your Perl scripts, in your cgi-bin/.htaccess file:

SetEnvIf Request_URI "^/cgi-bin/" PERL5LIB=/home/user/perl/lib/perl5/site_perl/5.8.7:/home/user/perl/lib/perl5/site_perl/5.8.7/site_perl

OR in your .bash_profile:

export PERL5LIB=/home/user/perl/lib/perl5/site_perl/5.8.7:/home/user/perl/lib:/home/user/perl/lib/perl5:/home/user/perl/lib/perl5/site_perl

It won’t be effective until you log back in, if you want to make it effective in your current session, just type that line in your command prompt.

$ mysql -u root -p wiktionary < tables.sql

$ java -jar mwdumper.jar --format=sql:1.5 enwiktionary-20070914-pages-meta-current.xml.bz2 | mysql -u root -p wiktionary

Optional

Copy the 'old_text' column from the 'text' table to the 'page' table
mysql> UPDATE `wiktionary`.`page`,`wiktionary`.`text` SET `wiktionary`.`page`.`old_text`=`wiktionary`.`text`.`old_text` WHERE `wiktionary`.`page`.`page_latest` = `wiktionary`.`text`.`old_id`

Delete non-English rows:
mysql> DELETE FROM `wiktionary`.`page` where old_text not LIKE '%==English==%'

Remove results not in namespace 0 (see Wiktionary:Namespace):
mysql> DELETE FROM `wiktionary`.`page` WHERE `wiktionary`.`page`.`namespace` != 0

What you need:

1. Download and Install WordNet
2. Download and Install this Perl interface by Jason Rennie
3. Download this Perl Script:
4. usage: perl wordnet.pl word

#!/usr/bin/perl -w

use strict;
use warnings;
use WordNet::QueryData;
my $word = $ARGV[0] or exit(usage());
my $wn = WordNet::QueryData->new;
my @senses = $wn->querySense("$word#n", "glos");
my $i = 1;
foreach my $sense(@senses) {
my $temp_sense = join(",", $wn->querySense($sense, "glos"));
my $temp_synset = join(",", $wn->querySense($sense, "syns"));
my $temp_hyponyms = join(",", $wn->querySense($sense, "hypo"));
$temp_synset =~ s/#\w#\d+//g;
$temp_hyponyms =~ s/#\w#\d+//g;
$temp_synset =~ s/_/ /g;
$temp_hyponyms =~ s/_/ /g;
print $i.". ".$temp_sense."\n";
print "Synonyms: ".$temp_synset."\n";
print "Related: ".$temp_hyponyms."\n";
$i++;
}
sub usage{
print "\n\n\nUsage: ".$0." word\n\n\n\n";
}