overwrite last line printed · open(LOG, "+>Test.log"); for($x=0;$x<=100;$x++){ print "\rProgress...$x\%"; print LOG "\rProgress...$x\%"; } print ...
確定! 回上一頁