HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/doc/libtext-reform-perl/examples/demo_table.pl
#! /usr/bin/perl -w

use Text::Reform;

my @values   = (1..12);

my @squares  = map { sprintf "%.6g", $_**2    } @values;
my @roots    = map { sprintf "%.6g", sqrt($_) } @values;
my @logs     = map { sprintf "%.6g", log($_)  } @values;
my @inverses = map { sprintf "%.6g", 1/$_     } @values;

print +form
"  N      N**2    sqrt(N)      log(N)      1/N",
"=====================================================",
"| [[  |  [[[  |  [[[[[[[[[[ | [[[[[[[[[ | [[[[[[[[[ |
-----------------------------------------------------",
\@values,  \@squares,    \@roots,       \@logs,      \@inverses;