Array in Subroutine ausgeben

Hallo,

ich habe ein riesen Problem, es macht mich Wahnsinnig, und stehe wirklich auf dem Schlauch.

Ich lese in einem Script bestimmte Parameter aus einer Datei aus, diese Parameter werden dann in ein array geschrieben.

[...]


if(*array != 0)
{
push (*array,$BEFEHL);
push (*array,$REST);


$BEFEHL = shift (*array);
$REST = shift (*array);


print join("\n",*array);


}


[...]

So, dieses Script nutzt eine Sub, in dieser Sub möchte ich nun das *Array auslesen und in ein Hash schreiben, ich scheitere schon daran das array in ein hash zu formatieren.

Allerdings scheitere ich auch daran das array in meiner Sub innerhalb einer IF Anweisung auszugeben.

Ich bin ein totaler Perl Anfänger, gleich mit dazugesagt und ich brauche unbedingt Hilfe. -

Kann mir jemand sagen:

- Wie ich aus einem Array einen Hash mache?
- Und wie ich diese Variablen an eine Sub übergeben kann und sie dort global wirken?

Vielen, vielen Dank im voraus,

Julian

Vielleicht hilft dir dieser Link weiter
http://forum.de.selfhtml.org/archiv/2003/5/t47179/

Okay, ich habe es zu schlecht erklärt!

Also meine Datei aus der ich diese Werte auslese sieht wie folgt aus:


NAME            (VSAM.XDRFL1)
VOLUMES       (DOSRES)
RECORDS       (850)
RECORDSIZE   (4096 4096)


Nun werden diese Parameter in ein array gelesen also so:


NAME
(VSAM.XDRFL1)
VOLUME
(DOSRES)
....
....


Nun will ich diesen array an meine Sub übergeben und dort die Werte 
in einen Hash lesen der dann folgendermaßen aussehen soll:


Name => (VSAM.XDRFL1)
Volume => (DOSRES)
....
....


Damit ich in meiner Sub den Hash wie folgt auslesen kann:


print $hash{'VOLUME'};


Und als Ausgabe bekomme:


(VSAM.XDRFL1)

Ich hoffe es ist nun ein wenig verständlicher....wenn nicht tut es mir wirklich leid, ich bin selbst total zerstreut...

Liebe Grüße

Problem gelöst,

ich hatte einen ganz miesen Denkfehler, trotzdem vielen vielen Dank. Ich poste den Quellcode wenn ich ihn fertig habe.

Viele liebe Grüße,

Julian