免费注册 查看新帖 |

Chinaunix

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

<STDIN> undef问题 [复制链接]

论坛徽章:
0
发表于 2014-02-17 12:15 |显示全部楼层
Learning perl有段代码如下:
  1.     my $madonna = <STDIN>;

  2.     if ( defined($madonna) ) {

  3.     print "The input was $madonna";

  4.     } else {

  5.     print "No input available!\n";

  6.     }
复制代码
无论我在终端怎么做,输出都不会出现“no input available”。
是不是这个功能现在已经改了?  那如何判断用户并没有输入任何数据了? eq ""?

论坛徽章:
8
技术图书徽章
日期:2013-09-30 08:51:28技术图书徽章
日期:2013-12-11 09:26:39白羊座
日期:2013-12-27 15:27:13金牛座
日期:2014-01-06 09:13:05天蝎座
日期:2014-01-21 14:23:28酉鸡
日期:2014-05-09 16:51:12卯兔
日期:2014-08-11 16:49:1515-16赛季CBA联赛之八一
日期:2017-08-14 23:24:57
发表于 2014-02-17 12:32 |显示全部楼层
你敲个回车都算defined`````
  1.     my $madonna = <STDIN>;
  2.         chop ($madonna);

  3.     if ( $madonna ne "" ) {

  4.     print "The input was $madonna";

  5.     } else {

  6.     print "No input available!\n";

  7.     }
复制代码

论坛徽章:
0
发表于 2014-02-17 15:21 |显示全部楼层
这么说小骆驼书下面这段是不对的?
The defined Function
One operator that can return undef is the line-input operator, <STDIN>. Normally, it will
return a line of text. But if there is no more input, such as at end-of-file, it returns
undef to signal this.§ To tell whether a value is undef and not the empty string, use the
defined function, which returns false for undef, and true for everything else:

论坛徽章:
0
发表于 2014-02-17 15:35 |显示全部楼层
如果你在输入界面,直接ctrl+d,应该是undef

论坛徽章:
0
发表于 2014-02-22 10:48 |显示全部楼层
junglegq 发表于 2014-02-17 15:35
如果你在输入界面,直接ctrl+d,应该是undef

谢谢,果然如此!
抱歉回复的有点慢了

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2014-02-22 23:03 |显示全部楼层
junglegq 发表于 2014-02-17 11:35
如果你在输入界面,直接ctrl+d,应该是undef


学习了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP