Select Code to Download

# tsanta.pl. Santa Claus golf game test program.
use strict;
...
CheckWc($wc);
PrintGolfScore($head, $tail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

print reverse<>

-p $\=$_.$\}{

#!/usr/bin/perl -p
11..exit

print+(<>)[-10..-1]

#!/usr/bin/perl -p
$\=$_.$\}{

#!/usr/bin/perl -p0
$_=$1while/.^(.+)^/ms

printf"%010d\n",$.,<>