annotate html/names.pl @ 43:20f9b0e79cce

resolved mess.
author Robert McIntyre <rlm@mit.edu>
date Sat, 13 Jul 2013 03:04:59 -0400
parents d469c90e2002
children
rev   line source
rlm@27 1 #!/usr/bin/perl
rlm@27 2
rlm@27 3 use Tie::File;
rlm@27 4
rlm@27 5
rlm@27 6 tie @last, 'Tie::File', "./dist.all.last" or die;
rlm@27 7
rlm@27 8 tie @first, 'Tie::File', "/home/r/proj/aurellem/html/dist.all.first" or die;
rlm@27 9
rlm@27 10 $num_first = 5494;
rlm@27 11 $num_last = 88799;
rlm@27 12
rlm@27 13 print "Content-Type: text/plain", "\n\n";
rlm@27 14 print "Random Name generator from US Census data.\n".
rlm@27 15 "Press refresh(F5) to generate more names.\n\n";
rlm@27 16
rlm@27 17
rlm@27 18
rlm@27 19 sub print_rand_name {
rlm@27 20 print $first[int(rand($num_first))]." ".
rlm@27 21 $first[int(rand($num_first))]." ".
rlm@27 22 $last[int(rand($num_last))]."\n";
rlm@27 23 }
rlm@27 24
rlm@27 25
rlm@27 26 &print_rand_name();
rlm@27 27 &print_rand_name();
rlm@27 28 &print_rand_name();
rlm@27 29 &print_rand_name();
rlm@27 30 &print_rand_name();
rlm@27 31
rlm@27 32
rlm@27 33
rlm@27 34
rlm@27 35