src/gen_auc_txt.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl -w

use strict;

my $COUNT = $ARGV[0];
my $i;

for ($i = 0; $i < $COUNT; $i++) {
	printf("90170%010u,5,%032u,%032u,0000,%u,0\n", $i, $i, $i, $i);
}