在Perl中我应该使用什么而不是printf？

发布时间：2020-12-15 21:50:27 所属栏目：大数据来源：网络整理

导读：我需要在Perl中使用一些字符串替换来简化翻译,即替换很多 print "Outputting " . $n . " numbers"; 通过类似的东西 printf ("Outputting %d numbers",$n); 但是,我想用更容易为人类解析的东西替换printf,如下所示： printX ("Outputting {num} numbers",{ nu

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

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

通过类似的东西

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

但是,我想用更容易为人类解析的东西替换printf,如下所示：

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

或者更普遍的东西.

你能推荐一些你喜欢和使用的东西(无论是否来自CPAN)？

解决方法

CPAN上的大多数模板模块可能会做你想要的.这是一个使用 Template Toolkit的例子……

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

$tt->process( "Outputting [% num %] numbersn",{ 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 };

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!