Lisp::Fmt 0.01

Lisp::Fmt is a Perl module for Common Lisp like formatting.

SYNOPSIS

use Lisp::Fmt;
$str = fmt("~{~a ~5,,,*a~}", $a,$b,$c,$d); # store result in $str
pfmt("~{ ~a~5,,,*a~}", $a,$b,$c,$d); # print to stdout

The Common Lisp "format" function provides an extremely rich set of formatting directives. This module brings this to Perl.

The formatting directives all begin with a ~ and take the form: ~[N]{,N}[@][:]X

where N is a number, X is a formatting directive, and @ and : are optional modifiers. Recognized directives are: A, S, W, D, O, B, X, R, C, P, T, ~, %, |, _, ?, *, n, {, }, (, ), [, ], <, >, ^

examples:

C<~A> - simplest format spec, prints the arg
C<~D> - prints a number in base 10
C<~X> - prints a number in base 16
C<~12R> - prints a number in base 12
C<~@R> - prints a number in roman numerals
C<~#[ none~; ~a~; ~a and ~a~:;~!{~#[~; and~] ~a~^,~}~].">
- prints a list in nice readable english