Play around with printf and sprintf, or split you data into columns and create html tables.
$ perl
use strict;
use warnings;
my @arr = qw ( 397 1234565 129837 12387621 21365 1 123123 );
printf("%010d\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%+10d\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%10s\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%-10s\n", $_) for @arr;
__END__
0000000397
0001234565
0000129837
0012387621
0000021365
0000000001
0000123123
----------
+397
+1234565
+129837
+12387621
+21365
+1
+123123
----------
397
1234565
129837
12387621
21365
1
123123
----------
397
1234565
129837
12387621
21365
1
123123
Now my next question is ..
PS: Please create a new thread if you have additional questions. Thanks. DS.
|