Print
Send Feedback
Fixed Width
Fluid WidthError Buddy
Do you have an error message from your application? Then find the answer with Error Buddy. You can search over 40000 source code files and troubleshooting documents using our beta lucene/nutch search interface or if you prefer, search as normal using google. With LXR technology you can drill right down into the line of source code where it came from with full cross-referencing.
If after searching you didn't get your ideal answer, or you are still unclear what the error means, you can choose to post that question to the community forums following the link included in the search results.
[1.6]001 #!/usr/bin/perl 002 003 $size = shift; 004 005 if ($size eq "") 006 { 007 die "usage: dbgen.pl [size]\n"; 008 } 009 010 @firstnames = ("Al", "Bob", "Charles", "David", "Egon", "Farbood", 011 "George", "Hank", "Inki", "James"); 012 @lastnames = ("Aranow", "Barker", "Corsetti", "Dershowitz", "Engleman", 013 "Franklin", "Grice", "Haverford", "Ilvedson", "Jones"); 014 @states = ("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FL", "GA", 015 "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", 016 "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", 017 "NM", "NY", "NC", "ND", "OH", "OK", "OR", "PA", "RI", "SC", 018 "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY"); 019 020 print "<?xml version=\"1.0\"?>\n"; 021 print "\n"; 022 print "<table>\n"; 023 024 for ($i=0; $i<$size; $i++) 025 { 026 $first = $firstnames [$i % 10]; 027 $last = $lastnames [($i / 10) % 10]; 028 $state = $states [($i / 100) % 50]; 029 $zip = 22000 + $i / 5000; 030 031 printf " <row>\n"; 032 printf " <id>%04d</id>\n", $i; 033 printf " <firstname>$first</firstname>\n", $i; 034 printf " <lastname>$last</lastname>\n", $i; 035 printf " <street>%d Any St.</street>\n", ($i % 100) + 1; 036 printf " <city>Anytown</city>\n"; 037 printf " <state>$state</state>\n"; 038 printf " <zip>%d</zip>\n", $zip; 039 printf " </row>\n"; 040 } 041 042 print "</table>\n"; 043
Testing
