[問題] 在一個檔案內容加上一行日期

看板Perl作者derick02 (望世界和平)時間16年前 (2008/07/23 21:52)推噓2(2推 0噓 8→)

留言10則, 3人參與討論串1/1

我想在一個a.txt的檔案加上日期, 然後存成a.txt 例如a.txt內容是 aaa bbb ccc 執行後a.txt內容變成 20080723 aaa bbb ccc 但是我run以下的寫法, 卻會在每一行後面都有^M 可是如果我將printf NEWFILE "%d%02d%02d\n", $year+1900, $mon+1, $mday; 這行拿掉, 在每行後面就不會出現^M 不曉得這是什麼原因? 亦或者有大大有其他方法可以做到這件事而不會出現^M? 非常感謝 #!/usr/bin/perl open(FILE, 'a.txt') or die "$!"; @file = <FILE>; close(FILE); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); open(NEWFILE, '> a.txt') or die "$!"; printf NEWFILE "%d%02d%02d\n", $year+1900, $mon+1, $mday; print NEWFILE @file; close(NEWFILE); -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.136.210.94

推

salagadoola

07/24 17:14, , 1^F

07/24 17:14, 1^F

→

salagadoola

07/24 17:14, , 2^F

07/24 17:14, 2^F

→

derick02

07/24 19:25, , 3^F

07/24 19:25, 3^F