This repository has been archived on 2022-03-30. You can view files and clone it, but cannot push or open issues or pull requests.
|
#!/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);
|
|
}
|