Annotation of embedaddon/libxml2/dbgenattr.pl, revision 1.1.1.1
1.1 misho 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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>