关于chomp 和 defined 和 undef

obsd178

1. 
   
2. #!/usr/local/bin/perl5.12.4
   
3. use utf8;
   
4. use 5.12.4;
   
5. use strict;
   
6. 
   
7. my ($circumference, $radius, $pi);
   
8. $pi=3.141592654;
   
9. my $xx;
   
10. $xx=defined($radius);
    
11. say "defined return is:$xx before chomp!";
    
12. 
    
13. my $out1;
    
14. $out1=chomp($radius=<STDIN>);
    
15. say "chomp return is: $out1";
    
16. 
    
17. say "radius is:${radius}space";
    
18. 
    
19. my $out2;
    
20. $out2=defined($radius);
    
21. #$out2=defined(0);
    
22. #$out2=defined(undef);
    
23. say "defined return is:$out2 after chomp!";
    
24. 
    
25. $circumference=2*$pi*$radius;
    
26. if($radius == 0){
    
27.         say "The circumference of the circle is ->0<-: $circumference";
    
28. }elsif($radius == 1){
    
29.         say "Try it again,pls!";
    
30. }else{
    
31.         say "The circumference of the circle is: $circumference";
    
32. }
    
33. 
    

复制代码

输出结果：

1. 
   
2. # perl ex2-2.pl
   
3.                      -> 敲下 Enter
   
4. chomp return is: 1
   
5. radius is:space      -> 之所以加'space'就是害怕里面是空格
   
6. defined return is: 1 -> 怎么会得到1 ？
   
7. Try it again,pls!
   
8. # perl ex2-2.pl
   
9. 12
   
10. chomp return is: 1
    
11. radius is:12space   -> 看是看不出来有东西的，又或者确实没东西？
    
12. defined return is: 1
    
13. The circumference of the circle is: 75.398223696
    
14. 
    

复制代码

疑问：
defined:
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
undef:
If you try to use this “nothing” as a “numeric something,” it acts like
zero. If you try to use it as a “string something,” it acts like the empty string.

1. 
   
2. $out1=chomp($radius=<STDIN>) -> chomp 得到 1没有问题，这个时候 $radius 里面到底存了什么？
   
3.                              -> Enter 敲下之后 \n 被chomp掉 剩下的是什么东东呢？ 得到的结果是 0
   
4. radius is:space           -> 之所以加'space'就是害怕里面是空格？ 但是这里却显示不出来值？
   
5. $out2=defined($radius);  -> 如果是 undef 结果是false 现在的话是true -> 1 ? 因为 $radius != undef
   
6. 
   
7. defined return is: 1 -> 怎么会得到1 ？ 因为 $radius != undef
   

复制代码

============================================================================================================
修改之后：

1. 
   
2. if($radius == 0){
   
3.         say "The circumference of the circle is ->0<-: $circumference";
   
4. }elsif($radius == 1){
   
5.         say "Try it again,pls!";
   
6. }else{
   
7.         say "The circumference of the circle is: $circumference";
   
8. }
   
9. 
   

复制代码

输出结果：

1. 
   
2. # perl ex2-3.pl
   
3.                       -> 敲下 Enter
   
4. chomp return is: 1
   
5. radius is:space
   
6. defined return is: 1
   
7. The circumference of the circle is ->0<-: 0  ->结果0 说明 $radius=0
   
8. # perl ex2-3.pl
   
9. 0                    -> 输入 0
   
10. chomp return is: 1
    
11. radius is:0space
    
12. defined return is: 1
    
13. The circumference of the circle is ->0<-: 0  ->结果0 说明 $radius=0
    

复制代码

1. my $out2;
   
2. #$out2=defined($radius);
   
3. $out2=defined(0);               -> 1
   
4. $out2=defined(undef);           -> 没有东西
   
5. say "defined return is: $out2";
   

复制代码

总结：
0 != undef
undef 可能会是 0 或者empty string

但是 say "radius is:${radius}space";  -> 始终得不到结果？
radius is:space           -> 之所以加'space'就是害怕里面是空格？ 但是这里却显示不出来值？
============================================================================================================

1. 
   
2. my $xx;
   
3. $xx=defined($radius);
   
4. say "defined return is:$xx before chomp!";
   
5. 
   
6. my $out2;
   
7. $out2=defined($radius);
   
8. say "defined return is:$out2 after chomp!";
   
9. 
   
10. 结果：
    
11. 
    
12. # perl ex2-3.pl
    
13. defined return is: before chomp!  ->干干净净 undef
    
14. 
    
15. chomp return is: 1
    
16. radius is:space
    
17. defined return is:1 after chomp!  ->已经不再是 undef
    
18. The circumference of the circle is ->0<-: 0
    
19. 
    
20. if($radius == 0){
    
21.         say "The circumference of the circle is ->0<-: $circumference";
    
22. }  ->结果0 说明 $radius=0  
    
23. -> 这是因为 $radius和数字比较的时候导致变成了数字
    
24. -> 最后结果为 0 是因为 $radius和数字相乘的时候导致变成了数字
    

复制代码

方兆国儿

楼主你好我也是新手说说我个人的理解！

$out1=chomp($radius=<STDIN> -> chomp 得到 1没有问题，这个时候 $radius 里面到底存了什么？
                             -> Enter 敲下之后 \n 被chomp掉 剩下的是什么东东呢？

回车输入之后\n 被chomp掉了没有错误，但是这个变量已经被赋值了已经不是null 内存给他分配了一个空间

至于： defined return is: 1 -> 怎么会得到1 ？

这是因为变量已经被赋值，0代表false 1代表true 所以结果得到1