使用Perl将斜体发布到Twitter

Question

我正在使用Net :: Twitter :: Lite,我想发布带有斜体的部分文本.我了解到这可以通过Unicode实现:http://mothereff.in/twitalics有Java脚本代码,但我不明白.是否有一些Perl代码执行相同的操作？或者有人可以解释JavaScript的作用,以便我可以在Perl中做同样的事情.

Answer 1

此程序将使用数字符号的Unicode字符将字符串转换为斜体.

#!/usr/bin/perl -CS

use strict;
use warnings;
use 5.010;

use charnames ':full';

my $out;
foreach (@ARGV) {
  foreach my $char (split //) {
    if ($char =~ /[A-Z]/) {
      my $charname = "MATHEMATICAL ITALIC CAPITAL $char";
      $char = charnames::string_vianame $charname;
    } elsif ($char =~ /[a-z]/) {
      my $charname = 'MATHEMATICAL ITALIC SMALL ' . uc $char;
      $char = charnames::string_vianame $charname;
    }
    $out .= $char;
  }
}
say $out;