1  #!/usr/bin/perl
 2  
 3  $size = shift;
 4  
 5  if ($size eq "") 
 6  {
 7      die "usage:  dbgen.pl [size]\n";
 8  }
 9  
10  @firstnames = ("Al", "Bob", "Charles", "David", "Egon", "Farbood", 
11                 "George", "Hank", "Inki", "James");
12  @lastnames = ("Aranow", "Barker", "Corsetti", "Dershowitz", "Engleman", 
13                "Franklin", "Grice", "Haverford", "Ilvedson", "Jones");
14  @states = ("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FL", "GA", 
15             "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", 
16             "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", 
17             "NM", "NY", "NC", "ND", "OH", "OK", "OR", "PA", "RI", "SC", 
18             "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY");
19  
20  print "<?xml version=\"1.0\"?>\n";
21  print "\n";
22  print "<table>\n";
23  
24  for ($i=0; $i<$size; $i++)
25  {
26      $first = $firstnames [$i % 10];
27      $last = $lastnames [($i / 10) % 10];
28      $state = $states [($i / 100) % 50];
29      $zip = 22000 + $i / 5000;
30  
31      printf "  <row\n";
32      printf "    id='%04d'\n", $i;
33      printf "    firstname='$first'\n", $i;
34      printf "    lastname='$last'\n", $i;
35      printf "    street='%d Any St.'\n", ($i % 100) + 1;
36      printf "    city='Anytown'\n";
37      printf "    state='$state'\n";
38      printf "    zip='%d'/>\n", $zip;
39  }
40  
41  print "</table>\n";
42