Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
#!/usr/bin/perl -w
$|++;
use strict;
use lib 'perl-Redis/lib';
use Redis;
my $r = Redis->new(server => 'localhost:63790') or die "$!";
## 2.5B values
for my $key (1..25_000_000) {
my @vals;
for my $k (1..50) {
my $v = int(rand($key));
push @vals, $k, $v;
}
$r->hmset("$key", @vals) or die "$!";
}
exit;
__END__
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment