Что я должен использовать вместо printf в Perl?

Как насчет просто:

 print "Outputting $n numbers";

Это очень Перли. Если вам не нужно какое-либо необычное форматирование, то, безусловно, лучше использовать интерполяцию строк.

Встроенная функция 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 и клавиши для вывода хэшей:

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

Используйте оператор qq , если вы хотите выводить кавычки вокруг данных:

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

Кажется, вы хотите использовать другой способ анализа строк. Я бы посоветовал вам не делать этого. Единственный, кто видит синтаксис с% d в нем, является разработчиком, и он точно поймет, что имеется в виду. Синтаксис printf является мощным из-за таких опций, как padding, decimals и т. Д.

Я думаю, вы хотите использовать больше метод замены. Это неправильно - делать s / {num} / $ n /.

Если вы хотите облегчить перевод, вам следует рассмотреть возможность использования одного из доступных модулей CPAN L10n / i18n. В частности, хороший обзор того, почему ваш подход в конечном итоге потерпит неудачу, написан как часть Local :: Maketext docs .

Еще один замечательный модуль, который прекрасно сочетается с Locale :: Maketext, это Locale :: Maketext :: Lexicon . Это позволяет вам использовать более стандартные форматы локализации, такие как файлы .po / .mo gettext, которые имеют инструменты GUI, чтобы помочь переводчикам работать со всем текстом, который требуется перевести. Locale :: Maketext :: Lexicon также поставляется со вспомогательным скриптом (xgettext.pl), который помогает поддерживать ваши файлы локализации в актуальном состоянии с вашими шаблонами или модулями, которые имеют текст, который необходимо перевести. Я'

В свете вашего Комментарий о том, чтобы быть для переводчиков Я предлагаю написать Perl-скрипт, который удаляет все printf () и табулирует их в более удобной для переводчиков форме.

Примерно так:

while(<>)
{
    #regex for striping printf

    #print in tabulated form
}

Если вы распечатаете строку Кроме того, вы можете легко написать другую программу для замены переведенного текста.

Это решение не займет у вас больше времени, чем перефакторинг от printf () и его можно будет использовать повторно.

Я бы определенно придерживался printf () , это стандарт для многих языков.

Это почти стало стандартом для вывода строки.

Generally answer from Draegtun is great, but if you'd need something smaller (i.e. less memory), and not as powerful you can easily do it using this function:

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

ну, у perl есть функция printf ... подождите, вы хотите что-то вроде форматирования строки python с помощью dict ?

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

ммм, я не знаю, что-то подобное существует в perl ... по крайней мере, не это "легко" ... возможно Текст :: Sprintf :: Named может быть вашим другом