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