|
MegaHAL - Perl interface to the MegaHAL natural language conversation simulator. |
MegaHAL - Perl interface to the MegaHAL natural language
conversation simulator.
use MegaHAL;
$megahal = new MegaHAL('Path' => './',
'Banner' => 0,
'Prompt' => 0,
'Wrap' => 0,
'AutoSave' => 0);
$text = $megahal->initial_greeting(); $text = $megahal->do_reply($message);
Conversation simulators are computer programs which give the appearance of conversing with a user in natural language. Such programs are effective because they exploit the fact that human beings tend to read much more meaning into what is said than is actually there; we are fooled into reading structure into chaos, and we interpret non-sequitur as valid conversation.
This package provides a Perl interface to the MegaHAL conversation simulator written by Jason Hutchens.
$megahal = new MegaHAL('Path' => './',
'Banner' => 0,
'Prompt' => 0,
'Wrap' => 0,
'AutoSave' => 0);
Creates a new MegaHAL object. The object constructor can optionaly receive the following named parameters:
'Path' - The path to MegaHALs brain or training file
(megahal.brn and megahal.trn respectively).
If 'Path' is not specified the current working
directory is assumed.
'Banner' - A flag which enables/disables the banner
which is displayed when MegaHAL starts up.
The default is to disable the banner.
'Prompt' - A flag which enables/disables the prompt. This
flag is only useful when MegaHAL is run
interactively and is disabled by default.
'Wrap' - A flag which enables/disables word wrapping of
MegaHALs responses when the lines exceed 80
characters in length. The default is to
disable word wrapping.
$text = $megahal->initial_greeting();
Returns a string containing the initial greeting which is created by MegaHAL at startup.
$text = $megahal->do_reply($message);
Generates reply $text to a given message $message.
None known at this time.
The Perl MegaHAL interface was written by Cory Spencer <cspencer@interchange.ubc.ca>
MegaHAL was originally written by and is copyright Jason Hutchens <hutch@ciips.ee.uwa.edu.au>
|
MegaHAL - Perl interface to the MegaHAL natural language conversation simulator. |