File: demo_filler.pl

package info (click to toggle)
libtext-reform-perl 1.12.2-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 188 kB
  • ctags: 31
  • sloc: perl: 1,251; makefile: 39
file content (19 lines) | stat: -rwxr-xr-x 413 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#! /usr/bin/perl -w

use Text::Reform;

print +form { filler=>'*' },
	"Pay bearer: ^^^^^^^^^^^^^^^^^^^",
	'$123.45';

print +form { filler=>'-->' },
	"Pay bearer: ]]]]]]]]]]]]]]]]]]]",
	['$1234.50', '$123.45', '$12.34'];

print +form { filler=>{left=>'->', right=>'*'} },
	"Pay bearer: <<<<<<<<<<<<<<<<<<",
	'$123.45',
	"Pay bearer: >>>>>>>>>>>>>>>>>>",
	'$123.45',
	"Pay bearer: ^^^^^^^^^^^^^^^^^^",
	'$123.45';