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

[thread]16572[/thread]

Einen Wert aus einem Hash auslesen und die beinhalteten Verz. überprüfen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
steverino

2011-07-29 15:27
User since
2011-07-29
5 Artikel
BenutzerIn
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 )

1 2 3 4 5

%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 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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)
- hlubenow
  
  2011-07-29 15:44
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  2011-07-29T13:27:54 steverino
  Es werden mir alles Verzeichnisse ausgegeben, allerdings die weitergabe zur Überprüfung bekomme ich nicht hin.
  
  Code (perl): (dl )
  
  1 2 3
  
  if (-d $array[1]) { print "$array[1]\n"; }
  
  HTH
- +6 replies
- Gast wer
  
  2011-07-29 15:49
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
  
  #!/usr/bin/perl use strict; use warnings; my %directories = ( 'A' => 'verz1 verz2', 'B' => 'verz1', 'C' => 'verz1 verz2 verz3', ); if ( @ARGV > 0 ) #wenn ein Parameter uebergeben wird { my $cmd=shift(@ARGV); #wenn der Parameter "-h" ist if ( $cmd eq '-h') { help(); } elsif(exists($directories{$cmd})) { my $dirs=$directories{$cmd}; print "DIRS: $dirs" } else { print "NO Command $cmd Found!\n" } } #aufruf der Function "help" else { help(); } sub help { die "usage $0 [-h | ".join(' | ',keys(%directories)))."]\n"; }
  
  Last edited: 2011-07-29 15:51:26 +0200 (CEST)
  - +5 replies
  - steverino
    
    2011-08-01 08:11
    User since
    2011-07-29
    5 Artikel
    BenutzerIn
    
    Gu Mo,
    
    sorry wegen dem falsch geposteten Code :-///
    
    Habe den Code von "guest wer" übernommen, jedoch gibt mir das Script nach wie vor sämtliche DIRS aus, die Function "exists" scheint hier irgendwas falsch gemacht zu haben?!
    
    Wenn ich bei meinem ursprünglichen Script den Code
    
    Code: (dl )
    
    1 2 3
    
    if (-d $array[1]) { print "$array[1]\n"; }
    
    einbaue, bekomme ich als Ausgabe nichts retour.
    
    Beide Varianten enden mit dem Returncode 0 (echo $? Abfrage).
    
    EDIT: uups ich nullchecker, "exists" prüft ja ob die Eingabe im Hash vorhanden ist nicht ob das DIR vorhanden ist. Problem mit der AUsgabe habe ich aber dennoch :(
    
    EDIT2: Glaube das Problem liegt weiterhin daran dass in der Variable
    
    Code: (dl )
    
    $dirs
    
    die Verzeichnisse gesamthaft drinstehen. Wie kann ich diese Zeile für Zeile auslesen? Dann sollte doch auch das
    
    Code: (dl )
    
    if ( -d...
    
    greifen oder?
    
    mfg+danke
    stephan
    Last edited: 2011-08-01 08:38:59 +0200 (CEST)
    - +4 replies
    - renee
      
      2011-08-01 08:37
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Stehen die Verzeichnisnamen als absolute Pfade oder als relative Pfade drin? Wenn die Verzeichnisnamen relativ drin stehen, spielt es natürlich eine Rolle, von welchem Verzeichnis aus Du das Skript aufrufst...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - steverino
        
        2011-08-01 08:40
        
        User since
        2011-07-29
        5 Artikel
        BenutzerIn
        
        stehen also absolute Pfade drin, von der Wurzel beginnent!
        
        Kann es sein dass es daran liegt dass in der
        
        Code: (dl )
        
        $dirs
        
        Variable die Verzeichnisse in einer Zeile drinstehen und das Script deswegen keine überprüfung vornimmt?
        
        EDIT:
        Also um meine Vermutung zu präzisieren
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        elsif (exists $directories{$cmd} ) { my $dirs=$directories{$cmd}; if ( -d $dirs ) { print "$dirs\n"; } }
        
        kann es sein dass der Wert von $dirs so aussieht "/usr/appl/1 /usr/appl/2 /usr/appl/3" und die If -d deswegen keine Überprüfung vornimmt?
        
        mfg+danke
        Last edited: 2011-08-01 08:54:43 +0200 (CEST)
        
        +2 replies
        
        renee
        
        2011-08-01 08:56
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Jepp, ersetze mal
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        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 } } }
        
        aus Deinem Ursprungspost durch
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if ( exists $directories{$ARGV[0]} ) { my @dirs = split /\s+/, $directories{$ARGV[0]}; for my $dir ( @dirs ) { print $dir,"\n" if -d $dir; } }
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        steverino
        
        2011-08-01 09:04
        
        User since
        2011-07-29
        5 Artikel
        BenutzerIn
        
        BINGO, den "split" hätte ich im Kurs eigentlich gehört!
        
        Danke renee und danke den Anderen!!!!!!
        
        Question solved!
        
        mfg+danke
        stephan

View all threads created 2011-07-29 15:27.