jzawodn · July 24, 2010 17:47
diff --git a/redisStress b/redisStress
 #!/usr/bin/perl -w
 $|++;

 use strict;
 use Redis;

 my $r = Redis->new(server => 'localhost:63790') or die "$!";

 for my $key (1..100_000_000) {
 	my $val = int(rand($key));
 	$r->set("$$:$key", $val) or die "$!";
 }

 exit;

 __END__
	#!/usr/bin/perl -w
	$\|++;

	use strict;
	use Redis;

	my $r = Redis->new(server => 'localhost:63790') or die "$!";

	for my $key (1..100_000_000) {
	my $val = int(rand($key));
	$r->set("$$:$key", $val) or die "$!";
	}

	exit;

	__END__