javascript - 使用 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;