推 clanguage:不懂你的問題 我跑你的 code 有印出 "3" 10/25 20:58
推 imce:或許是\r\n的問題，改($temp eq "\r\n")試試看 10/25 22:20
→ happyfuture:我run也是可以 10/26 10:18
→ AntaresStar:還是用 if ($temp =~ /^$/) 呢 好像也符合需求? 10/26 18:16
→ bwtalk:感謝大家~ 不過似乎是沒把perl灌好的問題.. 10/30 18:58
有點怪異的問題
我想在一個如下的檔案中讀取"有換行字元時的行數"
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