生成数字字典

要求：

Windows系统。

$infile="g:\zidian"; $number=1000000000; if(open(INFILE,">>$infile")){ print "sucess"; print "\n"; print time(); while($number<1000000010){ print INFILE ($number); print INFILE "\n"; $number++; } print "\n"; print time(); }