• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1#!/usr/bin/perl
2
3$size = shift;
4
5if ($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
20print "<?xml version=\"1.0\"?>\n";
21print "\n";
22print "<table>\n";
23
24for ($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
41print "</table>\n";
42
43