简单perl问题求教

Blue2K5

想中一个文件中找到所有行尾为 \ 结尾的行
我的代码如下:
while(<>)
{
   if(/\\$/)
   {
       print;
   }
}

可是执行上面的脚本却没有找到一个匹配的行,不知为什么?
那位给指点一下?

islue

行尾是回车的关系吧

晨想

这样？

while(<>)
{
  chomp;
  print if(/\\$/);
}

Blue2K5

我试了你的方法
while(<>)
{
chomp;
print if(/\\$/);
}
可是效果是一样,找不到一行

还有什么其它方法吗?

dajun

#cat txt

\\\
\\\\\\\\\\\\\\\
123445
aaaaaaaaaa\
aasdasd
asdas
asdasd
asdasd\\\
zzzzzzzzzz
zzzzzzzzzzzzzzzz\\
zzzzzzzzzzzzzzzzzzzzzzz


#cat 1.pl
#!/usr/bin/perl

open FD, "<txt";
while (<FD>) {
        /\\$/ && print;
#       if ($_ =~/\\$/) {
#               print $_;
#       }
}
close FD;


perl 1.pl
\\\
\\\\\\\\\\\\\\\
aaaaaaaaaa\
asdasd\\\
zzzzzzzzzzzzzzzz\\

Blue2K5

谢谢指点^_^!
发现问题了,是数据的问题,不是unix格式的