math.pl

#!/usr/bin/perl

use Math::Expression::Evaluator;
use Try::Tiny;

sub trim {
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

sub math {
    my $plain = shift;
    my $evaluator = Math::Expression::Evaluator->new;
    try {
        my $result = $evaluator->parse($plain)->val();
        return $result;
    }catch {
        return "Fail";
    }
}

sub main {
    my $plain = shift;
    $plain = trim($plain);
    my $result = math($plain);
    return "[${plain}] ${result}";
}

sub event_privmsg {
    my ($server, $data, $nick, $address) = @_;
    my ($target, $text) = split(/ :/, $data, 2);
    $target = $nick if($target !~ /^#/);
    return unless($text =~ /계산\?(.+)?/);
    $server->command("MSG ${target} ".main($+));
}

if(caller) {
    require Irssi;
    Irssi::signal_add("event privmsg", "event_privmsg");
}else {
    binmode(STDOUT, ":utf8");
    print main(@ARGV[0]);
    print "\n";
}