关于defined函数

iakgnehc

还是不清楚！

具体点，写出代码好吗？谢谢各位！

wxlfh

你应该看看小骆驼书，真的很简单的。

iceberg77

原帖由 iakgnehc 于 2009-5-11 10:13 发表
目的：
接受键盘的任意输入值，并输出；当没有输入时，利用defined()做检测，输出提示“please input :"；

代码：
#!/usr/bin/perl
print "Please input: ";
$result=;

print ...

“接受键盘的任意输入值，并输出”,这个任意值揣摩LZ意图应该是不包括换行符，
但<STDIN>为行输入，当输入一行时，得到的$result肯定包括换行，所以对$result，先要去掉换行符，再判断是否为空，而不是用defined来判断是否有定义;但可以用defined来判断是否遇到EOF，或者直接在while循环中判断

#!/usr/bin/perl -w print "Please input:"; while (<STDIN>){     chomp;     if ($_ ne ''){         print "$_\n";     }     print "Please input:"; }

iakgnehc

原帖由 iceberg77 于 2009-5-11 12:20 发表



“接受键盘的任意输入值，并输出”,这个任意值揣摩LZ意图应该是不包括换行符，
但为行输入，当输入一行时，得到的$result肯定包括换行，所以对$result，先要去掉换行符，再判断是否为空，而不是用define ...

非常感谢提示！

我照着做了一下练习！初步有个印象了！本来的想法是这样：练习”分辨其值是undef 还是空串，可以使用defined 函数，它将在为undef 时返回false，其余返回true。“
突然想来个更进一步的练习，接受输入并输出；若没有输入则提示请输入。原来还波及其它知识点。

先至此吧！

等我学和差不多的时候再来处理。刚开始学习perl。见到一个练习就想试试，所以引来了不少麻烦。当然也没说清楚原意，因为自己都不知道需要哪些知识！不过，大家这么热心回帖，我很开心，谢谢以上各位！

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

flw

程凯啊，你得好好学习小骆驼才行啊。

iakgnehc

是开才对！

了解：
大骆驼指的《Programming Perl (3rd Edition)》。
小骆驼指的《OReilly.Learning Perl 5th》。

目前学习perl的目的是用来做freebsd方面的系统管理工作。谢谢指点！

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

xulei_lx

执行之后按ctrl+D就行了

1. 
   
2. [root@lx Perl]# cat ./test.pl
   
3. #!/usr/bin/perl
   
4. print "Please input: ";
   
5. $result=<STDIN>;
   
6. if( defined($result)) {
   
7. print "The input was $result\n";
   
8. }else {
   
9. print "please input \n";
   
10. }
    
11. 
    
12. [root@lx Perl]# ./test.pl
    
13. Please input: please input
    
14. [root@lx Perl]#

复制代码

_06月_

加上chomp吧，应该是你没有去掉结尾的换行符

minirain

1. $result=<STDIN>;

复制代码

后面加上一句：

1. chomp($result);

复制代码

wbc1223

用 chomp()