11 lines
164 B
Perl
11 lines
164 B
Perl
|
#!/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);
|
||
|
}
|