Мне кажется, что я вспомнил нечто подобное в Фортране, когда использовал его много лет назад (однако вполне возможно, что это была сторонняя библиотека).
Что касается других опций в Perl, взгляните на Perl6::Form
.
Функция form
заменяет format
в Perl6. Дамиан Конвей из " Perl Best Practices " рекомендует использовать Perl6::Form
с Perl5, ссылаясь на следующие проблемы с format
....
- статически определено
- полагаться на глобальные переменные для config & pkg vars для данных, которые они форматируют на
- использует именованные файловые дескрипторы (только)
- не рекурсивный или реентерабельный
Вот вариант Perl6::Form
на примере Ruby Роберта Гэмбла ....
use Perl6::Form;
my ( $month, $day, $year ) = qw'Sep 18 2001';
my ( $num, $numb, $location, $toe_size );
for ( "Market", "Home", "Eating Roast Beef", "Having None", "On the way home" ) {
push @$numb, ++$num;
push @$location, $_;
push @$toe_size, $num * 3.5;
}
print form
' Piggy Locations for {>>>}{>>}, {<<<<}',
$month, $day, $year ,
"",
' Number: location toe size',
' --------------------------------------',
'{]}) {[[[[[[[[[[[[[[[} {].0} ',
$numb, $location, $toe_size;