我應該用什麼來代替Perl中的printf？

Question

我需要使用一些字符串替換在Perl來緩解翻譯，如更換許多

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

通過類似

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

不過，我想的東西容易解析爲更換的printf像這樣的人類：

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

或通常更多perly。

你能推薦一些你喜歡和使用的東西嗎？

Answer 1

CPAN上大多數模板模塊可能會做你想做的。這裏有一個使用Template Toolkit的例子...

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 2

看來你想有一個不同的解析字符串的方式。我會建議你不要這樣做。唯一一個在其中看到％d的語法的人是開發人員，他完全明白它的含義。由於填充，小數等選項，printf語法功能強大。

我想你想使用更多的替換方法。執行s/{num}/$ n /是完美的。

Answer 3

根據您對翻譯人員的評論，我建議您寫一個perl腳本，將所有printf()剝離，並以更易於翻譯的方式列表。

事情是這樣的：

while(<>) 
{ 
    #regex for striping printf 

    #print in tabulated form 
} 

如果打印出來的行號也可以很容易地編寫另一個程序來替換翻譯文本。

這個解決方案不會再比從printf()重新分解並且它可以重用。

---

我肯定會堅持與printf()，它是許多語言的標準。

它幾乎已經成爲字符串輸出的標準。像i用於for循環。

Answer 4

什麼簡單：

print "Outputting $n numbers"; 

這是非常佩爾利。如果你不需要任何花哨的格式，字符串插值絕對是一種可行的方式。

Answer 5

好吧，perl有printf函數... 等等，你想要類似python's string formatting with dict的東西嗎？

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

嗯，我不知道這樣的事情存在於Perl中...... 至少不是這個「簡單」 ...... 也許Text::Sprintf::Named可以成爲你的朋友

Answer 6

的print內置非常方便大多數情況。除了變量插值：

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

記住print可以採取多個參數，所以沒有必要首先將它們串聯成一個字符串，如果你需要打印一個子程序調用的結果：

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

但是，對於輸出簡單整數以外的數字，您可能需要printf的格式化便利性。不過，輸出其他數據類型很容易。

您可以使用join方便地輸出數組：

print join ', ', @array; 

而且隨着map和keys相結合，輸出哈希：如果你想

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

使用qq運營商輸出引號將數據：

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

Answer 7

如果您想要簡化翻譯，您應該考慮使用可用的L10n/i18n CPAN模塊之一。具體而言，您的方法最終會失敗的原因概述爲written up as part of the Local::Maketext docs。

與Locale :: Maketext很好地配對的另一個很好的模塊是Locale::Maketext::Lexicon。這使您可以使用更多標準本地化格式，例如帶有GUI工具的gettext的.po/.mo文件，以幫助翻譯人員處理需要翻譯的所有文本。 Locale :: Maketext :: Lexicon還附帶了一個幫助程序腳本（xgettext.pl），可幫助您的本地化文件隨時更新爲需要翻譯的文本模板或模塊。過去這種設置我已經有了很好的結果。

Answer 8

一般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; 
}