use warnings; open WR, '>', 'buk.pl' or die $!; print WR "#! perl -slw\n", "use strict;\n\n", "my \@data;\n", "my \$i = 0;\n\n", "#\$data[ \$i++ ] = [ split ' ' ]\n\n", "++\$i while ;\n\n", "print \$i;\n\n", "__DATA__\n\n"; for(1 .. 500000) { print WR "-69.282032302755084 40.000000000000014 0 -1\n", "-69.123493781255831 39.908467741935496 -1.4443382565142906e-006 -1\n", "-68.748013135538145 40.911009397420145 0 -1\n", "-68.964955259756593 39.816935483870985 -2.990721348858345e-006 -1\n", "-68.370049396495517 40.298149116372635 -6.3944096502804299e-006 -1\n", "-68.202015544462682 41.814890597403163 0 -1\n"; } #### C:\_32\pscrpt>perl buk.pl 3000001