代码:

 

 
  1. sub TC { 
  2.  
  3.    my $c = 3; 
  4.  
  5.    my $d = 4; 
  6.  
  7.    return $c,$d; 
  8.  
  9. } 
  10.  
  11. my ("$a",) = TC();   #引号
  12.  
  13. print "$a  $b"; 

 

 

 perl 提示错误

D:\>perl 02.pl

Can't declare string in "my" at 02.pl line 7, near ") ="

Execution of 02.pl aborted due to compilation errors.

 

 

  1. sub TC { 
  2.  
  3.    my $c = 3; 
  4.  
  5.    my $d = 4; 
  6.  
  7.    return $c,$d; 
  8.  
  9. } 

  11.  
  12. my ($a,) = TC();   #没有引号
  13.  
  14. print "$a  $b"; 

D:\>perl 02.pl

3