Net::AIML

chiron — 2006-10-31T11:47:43+00:00

I was messing around with the ALICE chatbot software, when i learnt about AIML, this is a way for users to easily create there own chatbot personalitys and ten have them interpreted through the ALICE Engine, i then wondered if this could be implemented in perl, turns out somemone has done this already 'program v'. However i found it hard to pick out the ALICE Engine as it was heavily integrated with other stuff.

Thats when i found out about Net::AIML a simple module that integrates into pandorabots, a server hosting ALICE bots, basically it was just sending POST requests to the webpage, nothing to fancy. Anyway for a laugh i built it into a ircbot, to see who would be fooled into believing it was a real person, several people got strung along for a while although the majority soon recognised the hidden AI. Here's the code for it: *Sorry about the single letter variables, i couldn't be bothered to name them*

use Net::IRC; use Net::AIML; use strict; use warnings; if (!@ARGV) { print "\nUSAGE: bot.pl [SERVER] [NICK] [CHAN]\nTo talk to the bot simply /msg [NICK] [MESSAGE]\nOr in the channel [NICK], [MESSAGE]. Within your irc client\n"; exit(0); } my $b = Net::AIML->new(botid => 'ba30d497ce360e23'); my $i = new Net::IRC; my $c = $i->newconn("Server", $ARGV[0], "Nick", $ARGV[1]); my $x; $c->add_handler(376, \&o); $c->add_handler('msg', \&m); $c->add_handler('public', \&m); $i->start; sub o { (my $s = shift)->join($ARGV[2]); $x = 1; } sub m { if ($x == 1) { my ($s, $e) = @_; if ($e->{type} =~ /public/ && $e->{args}[0] =~ /^($ARGV[1]), /i or $e->{type} =~ /msg/) { my $d = ($e->{type} =~ /public/) ? $e->{to}[0] : $e->{nick}; my $r = $e->{args}[0]; $r =~ s/^($ARGV[1]), //i; my $t = $b->tell($r)."\n"; $t =~ s/^Alice ://i; $t =~ s/<\/?.+?>//g; $s->privmsg($d, $t); } } }

Perl Gui interface to Phillips GoGear

chiron — 2006-10-20T18:58:25+00:00

About two years ago i bought a philips gogear mp3 player, it was ok, the main downside was lame software to load music on to it.

About a year ago it broke, i found it two weeks ago and through the magic of fist i fixed it ( apparently the hd needle gets stuck easily ).

I couldn't stand the software so i decided to write my own, not too hard i thought it uses sqlite, however i spent ages on working out the logic, in the end i ended up using a much better script from use.perl.org/~domm/ for the logic.

I then added the gui front end, making it easier to add & remove songs.

I spent some time then making it cross-platform as apparently activestate perl is happy with storing querys into an array, for use in a foreach ie:


my @ret = $main->getOpenFile(-multiple => 9999999, -filetypes => $types);

 		foreach my $path (@ret) {

However perl on linux isn't and i had to use:


my $ret = $main->getOpenFile(-multiple => 9999999, -filetypes => $types);

 		foreach my $path (@$ret) {

Hopefully it works ok, here it is. Thanks to Domm at http://use.perl.org/~domm/ for the original logic in his script here.

NOTE: God help me if someone actually opens more than 9999999 files

chiron's Journal

Net::AIML

Perl Gui interface to Phillips GoGear