File: demo_simple.pl

package info (click to toggle)
libperl6-form-perl 0.090-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 584 kB
  • sloc: perl: 3,080; makefile: 8
file content (17 lines) | stat: -rwxr-xr-x 546 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Perl6::Form;

$w = "1.2\n1.3\n1.4\nfoo\n1.9999999\n9999.999\n9999.9999";
$x = "the    firstest    field    is    here and         there";
$y = "     the second field is here";
@z = qw(heyah hey heyah hey heyah hey);

print form {out=>\*STDERR, single=>"=", ws=>qr/[^\S\n]+/,
	  # layout=>'across'
	 },
      "= hi [{:[[[[:}] there [{:>>}] you {:III:}{]][[} -> {]]].[[}",
      'demo',
			 $x,              {bfill=>'*  '}, 
							  $y,        {bfill=>'+'},
										 $x,    \@z,       {rfill=>0}, $w;

print "\n\n", substr($y, pos$y), "\n";