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 ];