739351d476
Change log:95336cb92b..191d55580eFull diff:95336cb92b..191d55580eRoll chromium third_party 4e16929f46..3a8f2a9e1e Change log:4e16929f46..3a8f2a9e1eChanged dependencies: * src/tools:c44a3f5eca..f524a53b81DEPS diff:95336cb92b..191d55580e/DEPS No update to Clang. TBR=titovartem@google.com, BUG=None CQ_INCLUDE_TRYBOTS=master.internal.tryserver.corp.webrtc:linux_internal Change-Id: Ic9c4a62b050383646e9fcf5cc07a5653c14ac06e Reviewed-on: https://webrtc-review.googlesource.com/76120 Reviewed-by: Patrik Höglund <phoglund@webrtc.org> Reviewed-by: Karl Wiberg <kwiberg@webrtc.org> Reviewed-by: Artem Titov <titovartem@webrtc.org> Commit-Queue: Artem Titov <titovartem@webrtc.org> Cr-Commit-Position: refs/heads/master@{#23205}
43 lines
1.3 KiB
Raku
Executable File
43 lines
1.3 KiB
Raku
Executable File
#!/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";
|
|
|