作者bwtalk (是黑是白)
看板Perl
标题[问题] 读取换行字元
时间Thu Oct 25 14:35:01 2012
有点怪异的问题
我想在一个如下的档案中读取"有换行字元时的行数"
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
1F：推 clanguage:不懂你的问题 我跑你的 code 有印出 "3" 10/25 20:58
2F：推 imce:或许是\r\n的问题，改($temp eq "\r\n")试试看 10/25 22:20
3F：→ happyfuture:我run也是可以 10/26 10:18
4F：→ AntaresStar:还是用 if ($temp =~ /^$/) 呢 好像也符合需求? 10/26 18:16
5F：→ bwtalk:感谢大家~ 不过似乎是没把perl灌好的问题.. 10/30 18:58