#!/usr/bin/perl -w

# Uses
use strict;
use Win32::OLE;
use Win32::OLE::Const;

# Create MSWord object and load constants
my $MSWord = Win32::OLE->new('Word.Application', 'Quit') or 
    die "Could not load MS Word\n";
my $wd=Win32::OLE::Const->Load($MSWord);

# Word and language to search for
my $word="big";
my $language=$wd->{wdEnglishUS};

# Get antonyms from MSWord
my $antonyms=$MSWord->SynonymInfo(
    {Word => $word, LanguageID => $language})->AntonymList;

# Print them out...
foreach (@{ $antonyms }) { print $_."\n" };
[download]

Hi , It's great. It really helped me a lot. Can you pl. give me the code for finding Synonym also? I tried to use your code but I failed. I thought it will be like this

# Get synonyms from MSWord
my $synonyms=$MSWord->SynonymInfo(
    {Word => $word, LanguageID => $language})->SynonymList;

# Print them out...
foreach (@{ $synonyms }) { print $_."\n" };
[download]

But it did not work. Thanks Ashok

Your'e just (1) from correct. :)


#!/usr/bin/perl -w

# Uses
use strict;
use Win32::OLE;
use Win32::OLE::Const;

# Create MSWord object and load constants
my $MSWord = Win32::OLE->new('Word.Application', 'Quit') or 
    die "Could not load MS Word\n";
my $wd=Win32::OLE::Const->Load($MSWord);

# Word and language to search for
my $word="big";
my $language=$wd->{wdEnglishUS};

# Get synonyms from MSWord
my $synonyms=$MSWord->SynonymInfo(
    {Word => $word, LanguageID => $language})->SynonymList(1);

# Print them out...
foreach (@{ $synonyms }) { print $_."\n" };
[download]

The (1) returns the synonymlist for the first meaning of the word. If you have a word that can mean many things, you could end up with many synonymlists. You'll then have to check the MeaningCount property and loop all the synonymlists for each meaning.

/brother t0mas

Look at issue #18 of The Perl Journal, Volume 5, Number 2 (#18), Summer 2000. It has an article on Lingua::Wordnet, which can do what you want (actually, it can do much more) by searching the Wordnet database.

WordNet® is an on-line lexical reference system whose design is inspired by current psycholinguistic theories of human lexical memory. English nouns, verbs, adjectives and adverbs are organized into synonym sets, each representing one underlying lexical concept. Different relations link the synonym sets. WordNet was developed by the Cognitive Science Laboratory at Princeton University under the direction of Professor George A. Miller (Principal Investigator).

As a demo, this is the Wordnet output on a query of "Pearl" (no, it won't find Perl).

BTW, this Wordnet stuff is a real gem - it comprises many, many years of expert linguist's work, and it's free, too: "WordNet® is unencumbered, and may be used in commercial applications in accordance with the following license agreement. An attorney representing the commercial interest should review this WordNet license with respect to the intended use. ( ... snip ... ) Permission to use, copy, modify and distribute this software and database and its documentation for any purpose and without fee or royalty is hereby granted, (... snip ...)"

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com

Yep, that's where I saw it.

Still waiting for TPJ to accept international creditcards for online access to the magazines, which means that my hard copy is never with me when I need it (either at home or work)!.

It is a great magazine though. Maybe we can manage to get a discount subscription set up for PerlMonks users - or a referral link so PerlMonks can get a little money? Does anyone have any contacts there?