Einen Wert aus einem Hash auslesen und die beinhalteten Verz. überprüfen (gelöst) - #150854 (Allgemeines zu Perl)

steverino

2011-07-29 15:27

User since
2011-07-29
5 Artikel
BenutzerIn
[default_avatar]

Hallo!

Habe die Suche schon gebraucht, jedoch weiss ich nicht einmal genau nach was/wie is suchen muss - deswegen ist sie leider erfolglos geblieben... :-/

Bin neu im Forum und auch so ziemlich neu in Sachen Perl, komme vom Shellscripting auf Unix/Linux. Habe auch schon einen Perlkurs bekommen, jedoch unterscheidet sich Kurs und reales Aufgabengebiet doch um einiges.

Zu meiner Frage, ich habe ein HASH, im Hash stehen Werte mit Verzeichnisse:

Code (perl): (dl )

%directories = (
'A' => 'verz1 verz2',
'B' => 'verz1',
'C' => 'verz1 verz2 verz3',
)

Das Perlscript rufe ich mit einem Parameter auf (A B oder C), das Script soll aus dem HASH den entsprechenden Parameter rauslesen und alle Verzeichnisse überprüfen ob diese vorhanden sind. Mittels "print" soll mir nur das Verz. ausgegeben werden welches vorhanden ist.

Hier das bisher geschaffte:

Code (perl): (dl )

if ( defined(@ARGV) )                                   #wenn ein Parameter uebergeben wird
        {
        if ( $ARGV[0] eq '-h')                          #wenn der Parameter "-h" ist
            {
            help;                                       #aufruf der Function "help"
            }
            
        while (@array=each(%directories))               #aufruf des Hash in ein array
            {
            if ($array[0] eq $ARGV[0])                  #wenn abgearbeitetes array gleich der Eingabe
                {
                print "$array[1]\n";                    #print Wert des arrays
                }
            }    
        }
        
    else
    
        {
        help;                                           #aufruf der Function "help"
        }

Es werden mir alles Verzeichnisse ausgegeben, allerdings die weitergabe zur Überprüfung bekomme ich nicht hin. Ist mir noch zu helfen oder sind in meinem Hirn am FR Nachmittag schon zuviele Knöpfe drin?

mfg+danke
Stephan

modedit Editiert von GwenDragon:
Bitte Code in code- oder perl-Tags stellen
bitte http://www.perl-community.de/bat/poard/markup_help lesen
Last edited: 2011-07-29 15:34:25 +0200 (CEST)