PTT數位生活區 / Perl

[問題] 讀取換行字元

看板Perl作者 (是黑是白)時間12年前 (2012/10/25 14:35), 編輯推噓2(2推 0噓 3→)
留言5則, 5人參與, 最新討論串1/1
有點怪異的問題 我想在一個如下的檔案中讀取"有換行字元時的行數" Os08g0474000 Os02g0560200 Os02g0258800 Os08g0473300 Os02g0561000 Os03g0653900 Os02g0560600 Os06g0586000 Os01g0206700 Os02g0561400 Os02g0181300 所以答案印出"3" 感覺蠻簡單的 不過我怎麼寫都沒印出來... =附上我的code= open(OUT,"<name.txt"); @data = <OUT>; my $count = 0; my $temp; foreach $temp(@data) { if($temp eq "\n") { print "$count\n"; } $count++; } 麻煩解惑一下 感謝!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.150.147
推
10/25 20:58, , 1F
不懂你的問題 我跑你的 code 有印出 "3"
10/25 20:58, 1F
推
10/25 22:20, , 2F
或許是\r\n的問題，改($temp eq "\r\n")試試看
10/25 22:20, 2F
→
10/26 10:18, , 3F
我run也是可以
10/26 10:18, 3F
→
10/26 18:16, , 4F
還是用 if ($temp =~ /^$/) 呢 好像也符合需求?
10/26 18:16, 4F
→
10/30 18:58, , 5F
感謝大家~ 不過似乎是沒把perl灌好的問題..
10/30 18:58, 5F
‣ 更多 bwtalk 的文章
文章代碼(AID): #1GYDsOhY (Perl)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 bwtalk 的文章
文章代碼(AID): #1GYDsOhY (Perl)