要求:
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();
}