證明空列表在 SCALAR 上下文返回 undef

黑色陽光_cu

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. no warnings;
   
5. 
   
6. my $i  = (1, 2, 3, ());
   
7. my $j  = (1, 2, 3, );
   
8. my $k = (1, 2, 3, func());
   
9. 
   
10. print "\$i = $i\n";
    
11. print "\$j = $j\n";
    
12. print "\$k = $k\n";
    
13. 
    
14. my @ar = (1, 2, 3, func());
    
15. print "Size of \@ar: ", scalar(@ar), "\n";
    
16. 
    
17. my @ar2 = (1, 2, 3, func2());
    
18. print "Size of \@ar2: ", scalar(@ar2), "\n";
    
19. 
    
20. sub func
    
21. {
    
22.         return;
    
23. }
    
24. 
    
25. sub func2
    
26. {
    
27.         return undef;
    
28. }

復(fù)制代碼

flw

錯了。

建議學(xué)學(xué) C 語言，看看 Perl 解釋器的實(shí)現(xiàn)。

perldoc -f wantarray
perldoc -f return

上面兩段文檔可以解釋除 my $i = 這一行之外的其余所有代碼。

這一行代碼的解釋在下面：

1. D:\MoChou>perl -MO=Deparse -e "$i = (1,2,3,())"
   
2. $i = ('???', '???', '???', ());
   
3. -e syntax OK
   
4. 
   
5. D:\MoChou>

復(fù)制代碼

Monox

回復(fù) 1# 黑色陽光_cu

證明這個，只需要一行就夠了：

1. perl -E 'my $i = (); say "defined" if defined $i'

復(fù)制代碼

黑色陽光_cu

錯了。

建議學(xué)學(xué) C 語言，看看 Perl 解釋器的實(shí)現(xiàn)。

perldoc -f wantarray
perldoc -f return

上 ...
flw 發(fā)表于 2011-03-01 22:49

{:3_187:}

我主要就是測試 my $i  = (1, 2, 3, ()) 其它都是為了對比而已。

flw

這個對比恰恰說明了你的邏輯不清楚 or 認(rèn)識不到位。
完全不一樣的東西，你單獨(dú)把 () 拿出來說事兒（如同三樓一樣），也許還是一個命題，
但把它和 return 放在一起，不得不讓人懷疑你對上下文的理解以及 return 的行為是否有誤。

另外，即使你測出了 () 的作用，也難以稱它是“空列表在 SCALAR 上下文”中的行為。
恰恰相反，當(dāng)時的 () 位于 LIST 上下文。

至于 () 在 () 中嵌套時的行為，用 B:Terse 或者 B:Deparse 都可以比較清楚地觀察到。

黑色陽光_cu

這個對比恰恰說明了你的邏輯不清楚 or 認(rèn)識不到位。
完全不一樣的東西，你單獨(dú)把 () 拿出來說事兒（如同三 ...
flw 發(fā)表于 2011-03-02 01:06

LIST 上下文?

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. no warnings;
   
5. 
   
6. my $i  = (1, 2, 3, ());
   
7. my $j  = (1, 2, 3, probe());
   
8. 
   
9. sub probe
   
10. {
    
11.         my $rt = wantarray();
    
12.         if (not defined $rt)
    
13.         {
    
14.                 print "VOID\n";
    
15.         }
    
16.         elsif (not $rt)
    
17.         {
    
18.                 print "SCALAR\n";
    
19.         }
    
20.         else
    
21.         {
    
22.                 print "LIST\n";
    
23.         }
    
24. 
    
25.         return;
    
26. }
    

復(fù)制代碼

flw

你又把 () 和 foo() 混為一談了。

flw

記住，上下文是傳遞的。

1. D:\MoChou>perl -MO=Terse -e "$i = (1,2,3,())"
   
2. LISTOP (0x1935a3c) leave [1]
   
3.     OP (0x1935a20) enter
   
4.     COP (0x1935a60) nextstate
   
5.     BINOP (0x1935a9c) sassign
   
6.         LISTOP (0x1935b18) list
   
7.             OP (0x1935afc) pushmark
   
8.             OP (0x1935b5c) null [5]
   
9.             OP (0x1935b3c) null [5]
   
10.             OP (0x1935adc) null [5]
    
11.             OP (0x1935ac0) stub
    
12.         UNOP (0x1935b7c) null [15]
    
13.             PADOP (0x1935b9c) gvsv  GV (0x1830e54) *i
    
14. -e syntax OK
    
15. 
    
16. D:\MoChou>perl -MO=Terse -e "$i = (1,2,3,foo())"
    
17. LISTOP (0x19359b8) leave [1]
    
18.     OP (0x193599c) enter
    
19.     COP (0x19359dc) nextstate
    
20.     BINOP (0x1935a18) sassign
    
21.         LISTOP (0x1935b18) list
    
22.             OP (0x1935afc) pushmark
    
23.             OP (0x1935b5c) null [5]
    
24.             OP (0x1935b3c) null [5]
    
25.             OP (0x1935adc) null [5]
    
26.             UNOP (0x1935a3c) entersub [3]
    
27.                 UNOP (0x1935a78) null [141]
    
28.                     OP (0x1935a5c) pushmark
    
29.                     UNOP (0x1935a9c) null [17]
    
30.                         PADOP (0x1935abc) gv  GV (0x1830e18) *foo
    
31.         UNOP (0x1935b7c) null [15]
    
32.             PADOP (0x1935b9c) gvsv  GV (0x1830e54) *i
    
33. -e syntax OK
    
34. 
    
35. D:\MoChou>

復(fù)制代碼