File: demo_columns

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 (39 lines) | stat: -rwxr-xr-x 410 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
use Perl6::Form;

my @files = <DATA>;
my $files = join "", @files;

print "Number of cols: ";
my $colcount = <>;

print form 
	'{:[{*}[:}  ' x $colcount,
	($files) x $colcount;

print "\n\n";

print form 
	'{:[{*}[:}  ' x $colcount,
	(\@files) x $colcount;


__DATA__
file1
file2
file3
file4
file5
file6
file7
file8
file9
file10
file11
file12
and this is lucky file13
file14
file15
file16
file17
file18
file19