关于defined函数

iakgnehc

目的：
接受键盘的任意输入值，并输出；当没有输入时，利用defined()做检测，输出提示“please input :"；

代码：
#!/usr/bin/perl
print "Please input: ";
$result=<STDIN>;
if( defined($result)) {
print "The input was $result\n";
}else {
print "please input \n";
}

执行后，当我只打回车，输出的是：The input was
随便输入：abcde，输出的是：The input was abcde

怎么办才能做到不输入任意字符，会输出：please input

dugu072

perldoc perlvar 看看$|
这个和defined无关吧～

DQP

$result 中是有值的 "\n"

iakgnehc

原帖由 dugu072 于 2009-5-11 10:16 发表
perldoc perlvar 看看$|
这个和defined无关吧～

新手，刚刚学习。这个练习是来自<<Perl语言入门第四版>>。

2．1．1 defined 函数
能返回undef 的操作之一是行输入操作，<STDIN>。通常，它会返回文本中的一行。但如果没有更多的输入，如到了文件
的结尾，则返回undef◆。要分辨其是undef 还是空串，可以使用defined 函数，它将在为undef 时返回false，其余返回true。
◆事实上，从键盘输入，不会有“end-of-file”，但其可重定向到文件中再输入。或者用户可能输入某些键，而系统将其作为end-of-file 看待。
$madonna = <STDIN>;
If (defined ($madonna)){
print “The input was $madonna”;
}else{
print “No input available!\n”;
}
如果想声明自己的undef 值，可以使用undef：
$madonna = undef ; #同$madonna 从未被初始化一样。

那我这个问题，怎么来处理呢？

谢谢

[ 本帖最后由 iakgnehc 于 2009-5-11 11:07 编辑 ]

dugu072

$|      If set to nonzero, forces a flush right away and after every
        write or print on the currently selected output channel.

dugu072

我回答的是：
怎么办才能做到不输入任意字符，会输出：please input

MMMIX

原帖由 dugu072 于 2009-5-11 11:09 发表
我回答的是：
怎么办才能做到不输入任意字符，会输出：please input

这个可不像个回答，倒很像个问题。这个问题的答案就是你在 5 楼的回复，或者手工 flush stdout。

dugu072

我说的是，我回答的是这个问题，因为我看楼主一直在翻defined的东西，以为他理解错了我的回答……

MMMIX

原帖由 dugu072 于 2009-5-11 11:18 发表
我说的是，我回答的是这个问题，因为我看楼主一直在翻defined的东西，以为他理解错了我的回答……

哦

kezhang

原帖由 DQP 于 2009-5-11 10:26 发表
$result 中是有值的 "\n"

This is answer .

add "\n" in "print" code!