關(guān)于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. 
    

復(fù)制代碼

輸出結(jié)果：

1. 
   
2. # perl ex2-2.pl
   
3.                      -> 敲下 Enter
   
4. chomp return is: 1
   
5. radius is:space      -> 之所以加'space'就是害怕里面是空格
   
6. defined return is: 1 -> 怎么會(huì)得到1 ？
   
7. Try it again,pls!
   
8. # perl ex2-2.pl
   
9. 12
   
10. chomp return is: 1
    
11. radius is:12space   -> 看是看不出來有東西的，又或者確實(shí)沒東西？
    
12. defined return is: 1
    
13. The circumference of the circle is: 75.398223696
    
14. 
    

復(fù)制代碼

疑問：
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沒有問題，這個(gè)時(shí)候 $radius 里面到底存了什么？
   
3.                              -> Enter 敲下之后 \n 被chomp掉 剩下的是什么東東呢？ 得到的結(jié)果是 0
   
4. radius is:space           -> 之所以加'space'就是害怕里面是空格？ 但是這里卻顯示不出來值？
   
5. $out2=defined($radius);  -> 如果是 undef 結(jié)果是false 現(xiàn)在的話是true -> 1 ? 因?yàn)?$radius != undef
   
6. 
   
7. defined return is: 1 -> 怎么會(huì)得到1 ？ 因?yàn)?$radius != undef
   

復(fù)制代碼

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

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. 
   

復(fù)制代碼

輸出結(jié)果：

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  ->結(jié)果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  ->結(jié)果0 說明 $radius=0
    

復(fù)制代碼

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

復(fù)制代碼

總結(jié)：
0 != undef
undef 可能會(huì)是 0 或者empty string

但是 say "radius is:${radius}space";  -> 始終得不到結(jié)果？
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. 結(jié)果：
    
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!  ->已經(jīng)不再是 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. }  ->結(jié)果0 說明 $radius=0  
    
23. -> 這是因?yàn)?$radius和數(shù)字比較的時(shí)候?qū)е伦兂闪藬?shù)字
    
24. -> 最后結(jié)果為 0 是因?yàn)?$radius和數(shù)字相乘的時(shí)候?qū)е伦兂闪藬?shù)字
    

復(fù)制代碼

方兆國兒

樓主你好我也是新手說說我個(gè)人的理解！

$out1=chomp($radius=<STDIN> -> chomp 得到 1沒有問題，這個(gè)時(shí)候 $radius 里面到底存了什么？
                             -> Enter 敲下之后 \n 被chomp掉 剩下的是什么東東呢？

回車輸入之后\n 被chomp掉了沒有錯(cuò)誤，但是這個(gè)變量已經(jīng)被賦值了已經(jīng)不是null 內(nèi)存給他分配了一個(gè)空間

至于： defined return is: 1 -> 怎么會(huì)得到1 ？

這是因?yàn)樽兞恳呀?jīng)被賦值，0代表false 1代表true 所以結(jié)果得到1