在 Perl 中我应该使用什么来代替 printf ？

Question

我需要在 Perl 中使用一些字符串替换来简化翻译，即用

print "Outputting " . $n . " numbers";

类似的东西替换许多字符串

printf ("Outputting %d numbers", $n);

但是，我想用更易于人类解析的东西替换 printf，就像这样：

printX ("Outputting {num} numbers", { num => $n });

或者通常更 Perly 的东西。

您能推荐一些您喜欢和使用的东西（无论是否来自 CPAN）？

Answer 1

简单地说：

 print "Outputting $n numbers";

这非常Perly。 如果您不需要任何花哨的格式，那么字符串插值绝对是最佳选择。

Answer 2

CPAN 上的大多数模板模块可能会满足您的需求。 以下是使用模板工具包的示例...

use Template;
my $tt = Template->new;

$tt->process( \"Outputting [% num %] numbers\n", { num => 100 } );

你可以用这样的东西模仿你需要的例子......

sub printX {
    use Template;
    my $tt = Template->new( START_TAG => '{', END_TAG => '}' );
    $tt->process( \( $_[0] . "\n" ), $_[1] );
}

你已经......

printX 'Outputting {num} numbers' => { num => 100 };

Answer 3

内置的 print 在大多数情况下都非常方便。 除了变量插值之外：

print "Outputting $n numbers";    # These two lines
print "Outputting ${n} numbers";  # are equivalent

请记住 print 可以接受多个参数，因此如果需要打印子例程调用的结果，则无需先将它们连接成单个字符串：

print "Output data: ", Dumper($data);

但是，对于输出其他数字与简单的整数相比，您可能需要 printf 的格式化便利性。 不过，使用 print 输出其他数据类型很容易。

您可以使用join方便地输出数组：

print join ', ', @array;

并与map和keys结合输出哈希：

print join ', ', map {"$_ : $hash{$_}"} keys %hash;

使用qq如果要输出数据周围的引号，请使用运算符：

print join ', ', map {qq("$_" : "$hash{$_}"}) keys %hash;

Answer 4

如果您希望简化翻译，您应该考虑使用可用的 L10n/i18n CPAN 模块之一。 具体来说，作为一部分，很好地概述了为什么您的方法最终会失败Local::Maketext 文档。

另一个与 Locale::Maketext 很好搭配的模块是 Locale::Maketext::Lexicon 。 这允许您使用更标准的本地化格式，例如 gettext 的 .po/.mo 文件，这些文件具有 GUI 工具，可以帮助翻译人员处理所有需要翻译的文本。 Locale::Maketext::Lexicon 还附带了一个帮助程序脚本 (xgettext.pl)，可帮助您的本地化文件与包含需要翻译的文本的模板或模块保持同步。 我过去通过这种设置取得了非常好的结果。

Answer 5

看来你想要一种不同的方式来解析字符串。 我建议你不要这样做。 唯一看到其中包含 %d 的语法的是开发人员，他会准确理解其含义。 printf 语法非常强大，因为它有填充、小数等选项。

我认为你想更多地使用替换方法。 这样做是很危险的 s/{num}/$n/。

Answer 6

根据您关于翻译人员的评论，我建议编写一个 perl 脚本，该脚本删除所有 printf() 并以更简单、更翻译人员友好的方式将它们制成表格。

像这样的事情：

while(<>)
{
    #regex for striping printf

    #print in tabulated form
}

如果您也打印出行号，您可以轻松编写另一个程序来替换翻译后的文本。

该解决方案不会花费您比从 printf() 进行重构更长的时间，而且它是可重用的。

---

我肯定会坚持使用 printf()，它是许多语言的标准。

它几乎已经成为字符串输出的标准。 就像i 是for for 循环一样。

Answer 7

一般来说，Draegtun 的回答很好，但如果你需要更小的东西（即更少的内存），并且不那么强大，你可以使用这个函数轻松地做到这一点：

sub printX {
    my ( $format, $vars ) = @_;

    my @sorted_keys = sort { length($b) <=> length($a) } keys %{ $vars };
    my $re = join '|', map { "\Q$_\E" } @sorted_keys;

    $format =~ s/ \{ \s* ($re) \s* \} /$vars->{$1}/xg;

    print $format;
}

Answer 8

好吧，perl 有 printf 函数...
等等，你想要像 python 的 dict 字符串格式化之类的东西吗？

 >>> print '%(key)s' % {'key': 'value'}
 value

嗯，我不知道 Perl 中存在类似的东西......
至少不是这么“容易”......
也许 Text::Sprintf:: Named可以成为你的朋友