Какие еще языки имеют функции и/или библиотеки, похожие на формат Perl?
Вопрос
Возможно, я здесь в меньшинстве, но мне очень нравится Форматы Perl.Мне особенно нравится возможность помещать длинный фрагмент текста в столбец (типа ~~ ^<<<<<<<<<<<<<<<»).Существуют ли другие языки программирования с похожими функциями или библиотеки, реализующие аналогичные функции?Меня особенно интересуют библиотеки, реализующие что-то подобное для Ruby, но мне также интересны и другие варианты.
Решение
FormatR предоставляет Perl-подобные форматы для Ruby.
Вот пример из документации:
require "formatr"
include FormatR
top_ex = <<DOT
Piggy Locations for @<< @#, @###
month, day, year
Number: location toe size
-------------------------------------------
DOT
ex = <<TOD
@) @<<<<<<<<<<<<<<<< @#.##
num, location, toe_size
TOD
body_fmt = Format.new (top_ex, ex)
body_fmt.setPageLength(10)
num = 1
month = "Sep"
day = 18
year = 2001
["Market", "Home", "Eating Roast Beef", "Having None", "On the way home"].each {|location|
toe_size = (num * 3.5)
body_fmt.printFormat(binding)
num += 1
}
Который производит:
Piggy Locations for Sep 18, 2001
Number: location toe size
-------------------------------------------
1) Market 3.50
2) Home 7.00
3) Eating Roast Beef 10.50
4) Having None 14.00
5) On the way home 17.50
Другие советы
Кажется, я припоминаю что-то подобное в Фортране, когда использовал его много лет назад (хотя вполне возможно, что это была сторонняя библиотека).
Что касается других опций в Perl, посмотрите Perl6::Form
.
А form
функция заменяет format
в Перл6.Дэмиан Конвей в "Лучшие практики Perl"рекомендует использовать Perl6::Form
с Perl5, ссылаясь на следующие проблемы с format
....
- статически определенный
- полагаться на глобальные переменные для конфигурации и переменные pkg для данных, которые они форматируют
- использует именованные дескрипторы файлов (только)
- не рекурсивный или реентерабельный
Вот 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;
Существует Lisp (format ...)
функция . Он поддерживает зацикливание, условные выражения и множество других забавных вещей.
например (скопировано сверху по ссылке):
(defparameter *english-list*
"~{~#[~;~a~;~a and ~a~:;~@{~a~#[~;, and ~:;, ~]~}~]~}")
(format nil *english-list* '()) ;' ==> ""
(format nil *english-list* '(1)) ;' ==> "1"
(format nil *english-list* '(1 2)) ;' ==> "1 and 2"
(format nil *english-list* '(1 2 3)) ;' ==> "1, 2, and 3"
(format nil *english-list* '(1 2 3 4));' ==> "1, 2, 3, and 4"