$ perltidy pm_11105453.pl
$ vi pm_11105453.pl
<<< I then used vi to add some print statements to the result >>>
$ cat pm_11105453.pl.tdy
@t = map { $_ * ( $_ + ( $_ - 1 ) ) % 4 } ( 2, 3, 4 );
print "T=(", join(", ", @t), ")\n"; # What do we have in @t?
$i = chr(0x34);
$five = chr(55);
print "I=$i, FIVE=$five\n"; # What's in $i and $five?
print "$i$five "
. ( @t[0] + @t[1] )
. ( $i / 2 ) . "."
. @t[0]
. chr(0x35)
. ( @t[0] * 3 + 1 ) . "\n";
@x = map { ( srand(1) * $_ ) % 9 } ( 28, 34, 57 );
print "X=(", join(", ", @x), ")\n"; # What do we have in @x?
print @x[0]
. ( @x[0] * 2 )
. ( @x[0] * 2 * 2 / 2 ) . " "
. chr(48)
. ( @x[2] * 3 ) . "."
. ( @x[2] + 1 )
. chr(0x30)
. ( ( @x[1] % 4 ) - 3 ) . "\n";
$ perl pm_11105453.pl.tdy
T=(2, 3, 0)
I=4, FIVE=7
47 52.257
X=(1, 7, 3)
122 09.400
####
$ perl -e 'print chr(0x35)'
5
$ perl -e 'print chr(0x30)'
0
$ perl -e 'print chr(48)'
0
##
##
@t = (2, 3, 0);
@x = (1, 7, 3);
print "47 "
. ( @t[0] + @t[1] )
. 2 . "."
. @t[0]
. '5'
. ( @t[0] * 3 + 1 ) . "\n";
print @x[0]
. ( @x[0] * 2 )
. ( @x[0] * 2 ) . " "
. '0'
. ( @x[2] * 3 ) . "."
. ( @x[2] + 1 )
. '0'
. ( ( @x[1] % 4 ) - 3 ) . "\n";
##
##
print "47 52.257\n";
print "122 09.400\n";