www.pudn.com > libxml2.rar > dbgen.pl

#!/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 "\n";
print "\n";
print "\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 "  \n";
    printf "    %04d\n", $i;
    printf "    $first\n", $i;
    printf "    $last\n", $i;
    printf "    %d Any St.\n", ($i % 100) + 1;
    printf "    Anytown\n";
    printf "    $state\n";
    printf "    %d\n", $zip;
    printf "  \n";
}

print "\n";