免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2037 | 回复: 5

新手请教 [复制链接]

论坛徽章:
0
发表于 2009-09-10 20:08 |显示全部楼层
#!/usr/bin/perl -w
use strict;
my $line;

while(chomp($line=<DATA>)){
       
        print "$line"."\n";

}

__DATA__
a
b

c

d

输出为:
a
b

c



为什么啊?while运行到第三行应该为假啊
第三行既然为真为什么第五行为假呢

论坛徽章:
1
辰龙
日期:2014-05-15 19:37:15
发表于 2009-09-10 21:09 |显示全部楼层
在上面的例子中,文件要读到文件有结束才是假所以空也为真.我记的perl的书上讲过.原文忘记了.
另外你的输出有问题,我在我的机器上,后面的d也是能正常输出的

论坛徽章:
0
发表于 2009-09-11 09:49 |显示全部楼层
1. chomp返回删除的字符数,所以除非读到文件结束,否则每读入一行条件都为真
2. 程序输出是否有问题?

论坛徽章:
0
发表于 2009-09-11 09:56 |显示全部楼层
输出肯定有问题,这样d的这行是不会输出的.
因为d的这行是最后一行,所以d后面没有newline, chomp得到的是0,所以就没有print出来

为什么要用这种方式来读文件内容...?

[ 本帖最后由 Perl_Er 于 2009-9-11 10:13 编辑 ]

论坛徽章:
0
发表于 2009-09-11 09:58 |显示全部楼层
原帖由 iakuf 于 2009-9-10 21:09 发表
在上面的例子中,文件要读到文件有结束才是假所以空也为真.我记的perl的书上讲过.原文忘记了.
另外你的输出有问题,我在我的机器上,后面的d也是能正常输出的

你哪里d这行也能输出,是因为你在copy他的代码的时候,后面留了一个空白行出来.  这样d后面就多了一个newline. chomp return 1.

[ 本帖最后由 Perl_Er 于 2009-9-11 10:12 编辑 ]

论坛徽章:
0
发表于 2009-09-11 10:24 |显示全部楼层
谢谢Perl_Er、iceberg77 (豆芽)
我明白了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP