diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-19 18:26:52 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-19 18:26:52 (GMT) |
commit | 818fd731f62993dc8aa5d07b82e1d1b2c04aae7d (patch) | |
tree | 41a61b0a1b18ed5ffeeb028e986b3586f9063628 /libxml2/dbgenattr.pl | |
parent | d72feaf69933b069cff3c0cb20a5f5f03ecba77b (diff) | |
download | blt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.zip blt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.tar.gz blt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.tar.bz2 |
update libxml2
Diffstat (limited to 'libxml2/dbgenattr.pl')
-rwxr-xr-x | libxml2/dbgenattr.pl | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/libxml2/dbgenattr.pl b/libxml2/dbgenattr.pl deleted file mode 100755 index dce11cd..0000000 --- a/libxml2/dbgenattr.pl +++ /dev/null @@ -1,42 +0,0 @@ -#!/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"; - |