perl - Perl中的@ $变量是什么？

Question

例如:

 foreach my $var (@$tp)  
      {  
        my $sql=$startsql1.$var.$endsql1;  
        print " SQL stamt \n $sql \n";  
        my $sel_stmt=$dbh->prepare($sql);  
        $sel_stmt->execute() or warn $DBI::errstr;  
        my @result = $sel_stmt->fetchrow_array();  
        $sel_stmt->finish();  
        $tphash{$result[0]} = [ @result ];          
     }  

@tp是一个数组。当我打印$ var时，它没有给出任何输出。

Answer 1

上面上下文中的@$不是变量。这是一个取消引用。
$tp是对数组的引用。 @$tp说“取消引用并给我值”，也可以写成@{$tp}。

例如。:

my @array = ( 1, 2, 3 );
my $array_ref = \@array; 
print "REF: ", $array_ref,"\n";
print "VALUES: ", join " ", @$array_ref; 

您可以创建一个数组引用，而不必在方括号中包含实际的数组:

my $array_ref = [ 1, 2, 3 ];