kc3-lang/libxml2/dbgenattr.pl
Tag
-
Show log
Commit
-
Hash : f6bc7c24
Author :
Date : 2003-09-17T22:33:22
add a Timingtests target to check bad behaviour from the streaming engine * Makefile.am: add a Timingtests target to check bad behaviour from the streaming engine * dbgen.pl dbgenattr.pl: perl script to generate big instances * xmlreader.c: fix a bad behaviour on large buffer inputs Daniel
-
dbgenattr.pl
-
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 42
#!/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";