mirror of
https://github.com/hoytech/strfry.git
synced 2025-06-18 17:27:11 +00:00
34 lines
569 B
Perl
34 lines
569 B
Perl
#!/usr/bin/env perl
|
|
|
|
use IPC::Open2;
|
|
use Session::Token;
|
|
|
|
my $idSize = 16;
|
|
|
|
srand($ENV{SEED} || 0);
|
|
my $stgen = Session::Token->new(seed => "\x00" x 1024, alphabet => '0123456789abcdef', length => $idSize * 2);
|
|
|
|
my $pid = open2(my $outfile, my $infile, './test/xor');
|
|
|
|
my $num = rnd(10000) + 1;
|
|
|
|
for (1..$num) {
|
|
my $mode = rnd(3) + 1;
|
|
my $created = 1677970534 + rnd($num);
|
|
my $id = $stgen->get;
|
|
print $infile "$mode,$created,$id\n";
|
|
}
|
|
|
|
close($infile);
|
|
|
|
while (<$outfile>) {
|
|
print $_;
|
|
}
|
|
|
|
|
|
|
|
sub rnd {
|
|
my $n = shift;
|
|
return int(rand() * $n);
|
|
}
|