perl - 将 unicode 代码点转换为 irssi 中的特定字符串

Question

是否有命令/设置/脚本将某些 unicode 代码点转换为 irssi 中的不同字符串？具体来说，我想将表情符号代码点转换为 ASCII 笑脸，因为我的字体不支持它们。这主要用于 facebook messenger 插件。我已经尝试为此创建一个 perl 脚本，但文档有些稀疏。

Answer 1

所以，问题是我的 irssi 有点过时了，这个 bug 已经修复了，而且它实际上很容易完成。对于任何想要做同样的事情的人，你需要一些类似的东西：

my %hash = (
    0x1f600 => ':)',
    # add smileys to taste here
);

sub transform ($$$$$$) {
    my ($server, $msg, $nick, $address, $target) = @_;
    my $transformed = '';

    $msg = decode('utf8', $msg);

    for (my $l = length($msg), my $i = 0; $i < $l; $i++) {
        my $chr = substr($msg, $i, 1);
        my $code = ord($chr);

        if (defined $hash{$code}) {
            $transformed .= $hash{$code};
        }
        else {
            $transformed .= $chr;
        }
    }
    Irssi::signal_continue($server, $transformed, $nick, $address, $target);
}

Irssi::signal_add_last('message public', 'transform');
Irssi::signal_add_last('message private', 'transform');

请注意，我绝对不是 Perl 专家，因此可能有更聪明/更好的方法来实现这一点！