Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
#
# usage: gen-random-csv.pl 1000 7 13 > data.csv
# -> generates 1000 docs with 2 random fields of cardinality 7 and 13.
my $num_docs = shift;
die "Need to specify a number of documents" unless $num_docs;
my @field_bounds = @ARGV;
die "Need to specify some random field limits" unless @field_bounds;
$ (gpg --list-sigs Hostetter && gpg --armor --export Hostetter)
pub 4096R/F8F58E19 2013-07-25
uid Chris "Hoss" Hostetter <hossman@apache.org>
sig 3 F8F58E19 2013-07-25 Chris "Hoss" Hostetter <hossman@apache.org>
sub 4096R/9AF15240 2013-07-25
sig F8F58E19 2013-07-25 Chris "Hoss" Hostetter <hossman@apache.org>
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.4.11 (GNU/Linux)