Hallo,

ich beschäftige mich seit kurzem mit Perl, da ich ein Perl Skript in C++ umschreiben soll.

Nun versuche ich gerade, zu verstehen, was in dem Perl Skript vorgeht.
Dazu habe ich eine Verständnisfrage:

In dem Skript steht ein Hash:
%$tmp=("a" => $opt[1], "b" => $opt[2], "c" => $opt[3]);

Weiter unten steht:
$tmp = opt . $j;

Und später steht dann noch:
$test = $irgend * $$tmp{'b'} * $etwas;

Was passiert denn hier jetzt mit der Variablen $tmp alles?
Warum steht in diesem letzten Aufruf $$?

Könnt Ihr mir da weiterhelfen?

Vielen Dank

$ dient der dereferenzierung

$tmp beinhaltet einen zeiger auf einen hash (%), wesweger erst noch der zeiger zuerst dereferenziert werden muss. deswegen 2 $. ka warum das in dem fall sinvoll ist, aber sieht interessant aus. wusste gar nicht das man das so direkt in perl definieren kann.

der "." verbinden strings aber wenn mir nicht ganzen algorrithmus gibts kann ich dir nicht sagen was es macht.

Ich denke eher, die $$ sind dafür da, weil der Name des eigentlichen Hashes mit Hilfe von $tmp zusammengebaut wird. Oder fehlt bei das $ vor obj?

Da ist das Stichwort Referenzen...

$tmp ist eine Referenz auf ein Hash. Bei der Zuweisung wird die Referenz dereferenziert (%$tmp).

Was $tmp = opt . $j soll, kann ich ohne weiteren Code nicht sagen...

Und danach wird der Variablen $test ein Wert zugewiesen, der sich aus $irgend mal dem Wert, der in der Hashreferenz $tmp zum Schlüssel "b" gespeichert ist, mal $etwas.

$$tmp{'b'} ist eine Kurzschreibweise von ${ $tmp }{'b'} beziehungsweise von $tmp->{'b'}

Danke schon mal für die Antworten.

@nepos:
Nein, hier steht vor dem opt kein $.

LadyM+2007-08-06 13:20:48--

@nepos:
Nein, hier steht vor dem opt kein $.

dann soll es 'opt' heissen, aber ohne strict laesst perl das auch zu.
also $tmp = 'opt' . $j;

opt kann doch was ganz anderes sein!
Vielleicht eine Routine?


/opt/foo