Perl'de printf yerine ne kullanmalıyım?

Question

Ben çeviriler hafifletmek için Perl bazı dize değiştirme kullanmak gerekir, yani Ancak

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

gibi bir şey ile birçok

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

yerine, ben ayrıştırılması daha kolay bir şey ile printf değiştirmek istediğiniz Bu gibi insanlar:

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

veya genelde daha fazla bir şey.

Beğendiğiniz ve kullandığınız bir şey (CPAN'dan değil) önerebilir misiniz?

Answer 1

En şablonu modülleri CPAN Muhtemelen istediğini yapacaksın. İşte Template Toolkit kullanarak bir örnek ...

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

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

Ve böyle bir şey ile gerekli örnek taklit edebilir ...

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

ve var ...

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

Answer 2

Dizeleri ayrıştırmanın farklı bir yoluna sahip olmak istediğiniz görünüyor. Bunu yapmamanı tavsiye ederim. Sözdizimini% d ile görebilen tek kişi geliştiricidir ve tam olarak ne anlama geldiğini anlayacaktır. Printf sözdizimi, dolgu, ondalık vb. Gibi seçenekler nedeniyle güçlüdür.

Daha çok bir değiştirme yöntemi kullanmak istediğinizi düşünüyorum. S/{num}/$ n/yapmak doğrudur.

Answer 3

Çevirmen olmanın hakkındaki yorumunuzun ışığında, tüm printf()'u kuran ve bunları daha kolay çevirmen dostu bir şekilde etiketleyen bir perl komut dosyası yazmanızı öneririm. Böyle

şey: hattan çıktısını Eğer

while(<>) 
{ 
    #regex for striping printf 

    #print in tabulated form 
} 

çok kolayca çevrilmiş metni değiştirmek için başka bir program yazabilirsiniz.

Bu çözüm, printf()'dan yeniden faktoring yapmanıza gerek kalmaz ve yeniden kullanılabilir. Kesinlikle printf() sopa ile olur

---

, birçok diller arasında standart.

Neredeyse dizi çıkışı için bir standart haline gelmiştir. i gibi for döngüleri içindir.

Answer 4

Ne basitçe hakkında: çok Perly var

print "Outputting $n numbers"; 

. Herhangi bir fantezi biçimlendirmeye ihtiyacınız yoksa, string interpolasyon kesinlikle gitmek için bir yoldur.

Answer 5

well, perl printf işlevinde ... wait, python's string formatting with dict gibi bir şey ister misiniz?

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

mmm, ben ... perl'de var böyle bir şey bilmiyorum en azından ... belki Text::Sprintf::Named arkadaşınız olabilir bu "kolay"

Answer 6

print yerleşik çok olduğu çoğu durum için uygun. Değişken interpolasyon yanında:

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

print birden fazla argüman sürebileceğini unutmayın, böylece bir alt yordam çağrısı sonucu yazdırmak gerekiyorsa tek bir dize halinde onları ilk bağlamak için gerek yoktur:

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

Ancak, basit tamsayılar dışındaki sayıları çıktı almak için muhtemelen printf formatlama kolaylığını isteyeceksiniz. Diğer veri türlerinin çıktısı ise print ile çok kolaydır.

Sen join elverişli çıktı diziler kullanabilirsiniz:

print join ', ', @array; 

Ve çıkış sağlamalarının map ve keys ile birleştirmek: Veri etrafında çıkış tırnak için isterseniz

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

Kullanım qq operatör :

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

Answer 7

Çevirileri kolaylaştırmak istiyorsanız, mevcut olan L10n/i18n CPAN modüllerinden birini kullanmayı düşünmelisiniz. Spesifik olarak, yaklaşımınızın neden kısa düşeceği hakkında iyi bir genel bakış written up as part of the Local::Maketext docs'dur.

Locale :: Maketext ile güzelce eşleşen bir başka harika modül ise Locale::Maketext::Lexicon. Bu, çevirmenlerin çeviri gerektiren tüm metinleri kullanmasına yardımcı olmak için GUI araçlarına sahip gettext'in .po/.mo dosyaları gibi daha standart yerelleştirme biçimlerini kullanmanıza olanak tanır. Locale :: Maketext :: Lexicon ayrıca, yerelleştirme dosyalarınızı, çeviri gerektiren metne sahip şablonlarınız veya modüllerle güncel tutmanıza yardımcı olan bir yardımcı komut dosyası (xgettext.pl) ile birlikte gelir. Geçmişte bu tür bir kurulumla çok iyi sonuçlar aldım.

Answer 8

Genellikle Draegtun gelen cevap harika ama daha küçük bir şey (yani daha az bellek) ve kolayca bu fonksiyon kullanılarak yok gibi güçlü değil ihtiyacım olacağını eğer:

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