Perl $ var - zwei Dollarzeichen als Sigil?

Question

Das scheint etwas zu sein, das ich leicht Google, Bing oder DDG erreichen könnte, aber ich komme völlig leer auf alles.

Grundsätzlich bin ich damit beauftragt (teilweise) eine Reihe alter Perl-Skripte neu zu schreiben. Nicht in der ein Perl-Programmierer selbst, es ist definitiv eine Lernkurve dieser Skripte in Lesen, um herauszufinden, was sie tun, aber ich habe eine absolute Mauer mit Linien getroffen wie diese:

$comment = $$LOC{'DESCRIPTION'}; 

nahe, wie ich kann sagen, dass die rechte Seite ein Wörterbuch ist, oder genauer gesagt, es erhält den Wert, der durch den Schlüssel 'DESCRIPTION' in dem Wörterbuch referenziert wird. Aber was ist mit dem "extra" Dollarzeichen davor?

Es sieht verdächtig nach PHP variable variables, aber nach Suchmaschinen Scheuern, verschiedene Stack Sites und perlvar, kann ich keine Hinweise finden, die Perl selbst hat ein solches Feature, geschweige denn, dass dies, wie es aufgerufen. Das Beste, was ich herausgefunden habe, ist, dass '$' kein gültiges Zeichen in einem Variablennamen ist. Daher weiß ich, dass $$LOC nicht einfach nur eine Variable aufruft, die zufällig $LOC heißt.

Was macht dieses extra Dollarzeichen hier?

Answer 1

Dies ist eine alternative Form der Dereferenzierung. Könnte (und ehrlich wahrscheinlich sollte) geschrieben werden als:

my $str = 'a string'; 
my %hash = (a => 1, b => 2); 
my @array = (1..4); 

my $strref = \$str; 
my $hashref = \%hash; 
my $arrayref = \@array; 

print "String value is $$strref\n"; 
print "Hash values are either $$hashref{a} or $hashref->{b}\n"; 
print "Array values are accessed by either $$arrayref[0] or $arrayref->[2]\n"; 

Answer 2

Dereferenzierung ist die Behandlung eine skalare als ‚Adresse‘ an:

$LOC->{'DESCRIPTION'}; 

Sie manchmal das gleiche mit anderen alle grundlegenden Datentypen erhältlich Hier können Sie eine andere Variable (Skalar, Array oder Hash) und ihren Wert finden.

In diesem Fall wird $ LOC {DESCRIPTION} als die Adresse eines anderen Skalars interpretiert, der in $ comment gelesen wird.

In Perl

my $str = 'some val'; 
my $ref = \$str; 
my $val = ${$ref}; 
my $same_val = $$ref;