Verzeichnisse erstellen mit make_path( ) (solved) (Allgemeines zu Perl)

[thread]21194[/thread]

Verzeichnisse erstellen mit make_path( ) [solved]

Tags: perl5 Directories make_path Similar Threads

Readers: 9

Articles: hide open all | hide show old branches

+6 replies
YAPD

2021-05-24 12:53
User since
2015-09-20
146 articles
BenutzerIn
Hallo Zusammen,

ich habe mal eine grundsätzliche Frage zu der Erstellung von
Verzeichnissen, in diesem Fall mit 'make_path( )' :

Ich möchte in meiner Anwendung für meine Logs die variablen
Verzeichnisse erstellen, falls sie noch nicht existieren,um dort
dann die Logs zu speichern.

Da das normale 'makedir' keine Sub - Directories erstellt, fällt
diese Möglichkeit aus.

Nachdem ich mir nun 'make_path' angeschaut habe, steht dort
im Error Handling :
Code: (dl )

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

my $test = make_path( '' , { error => \my $err } ); if ( $err && @$err ) { for my $diag ( @$err ) { my ( $file, $message ) = %$diag; if ( $file eq '' ) { print "general error: $message\n"; } else { print "problem unlinking $file: $message\n"; } } } else { print "No error encountered\n"; }
Meine Frage ist nun, wann tritt denn der Fall ein, dass $file eq ' ' ist ?
Des weiteren würde es für den Zweck der Überprüfung, ob das Verzeichnis
erstellt wurde, doch reichen, wenn ich einfach den Status definiere, oder ?

Z. B.
Code: (dl )

1 2 3 4

make_path( '*' , { error => \$LG_FH_Directory_Error } ); if ( $LG_FH_Directory_Error && @$LG_FH_Directory_Error ) { $LG_FH_Directory_Status = '1'; } if ( !$LG_FH_Directory_Error || !@$LG_FH_Directory_Error ) { $LG_FH_Directory_Status = '0'; }
Viele Grüße
YAPD
Last edited: 2021-05-24 15:11:48 +0200 (CEST)
Yet Another Perl Developer
- +5 replies
- haj
  
  2021-05-24 15:11
  
  User since
  2015-01-07
  570 articles
  BenutzerIn
  
  2021-05-24T10:53:22 YAPD
  Meine Frage ist nun, wann tritt denn der Fall ein, dass $file eq ' ' ist ?
  
  Das passiert zum Beispiel, wenn Du mit user => 'godot' die Eigentümerschaft auf einen Benutzer (oder eine Gruppe) übertragen willst, den es nicht gibt, oder wenn Du nicht die Berechtigung hast, die Eigentümerschaft zu ändern. Ob es noch andere Fälle gibt, habe ich allerdings nicht geprüft.
  
  2021-05-24T10:53:22 YAPD
  Des weiteren würde es für den Zweck der Überprüfung, ob das Verzeichnis
  erstellt wurde, doch reichen, wenn ich einfach den Status definiere, oder ?
  
  Ja, beinuhe. Erstens verlierst Du damit die Fehlermeldung, und zweitens kann es sein, dass das Verzeichnis erstellt wurde und trotzdem ein Fehler zurückgemeldet wird. Auch das bekommst Du in den oben genannten Fällen: Das Verzeichnis wird erstellt, aber die Eigentümerschaft nicht geändert!
  
  make_path liefert als Rückgabe die Liste (!) der erzeugten Verzeichnisse. Du weist den Wert in Deinem Beispiel auf den Skalar $test zu, bekommst also "nur" die Anzahl zurück. Daran kannst Du auch erkennen, ob das Verzeichnis erstellt wurde, aber nicht, ob alles weitere geklappt hat.
  - +4 replies
  - YAPD
    
    2021-05-24 15:15
    User since
    2015-09-20
    146 articles
    BenutzerIn
    
    Hi Haj,
    
    ich habe gesehen, dass du online bist und gehofft, dass du auf meinen
    Beitrag antwortest :)
    
    Ich habe den Code gerade nochmal geändert :
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    $path = "C:\Test\Logs; make_path( '$path' , { error => \$LG_FH_Directory_Error } ); if ( $LG_FH_Directory_Error && @$LG_FH_Directory_Error ) { $LG_FH_Directory_Status = '1'; } if ( !$LG_FH_Directory_Error || !@$LG_FH_Directory_Error ) { $LG_FH_Directory_Status = '0'; }
    
    Es ist nur wichtig, ob das Verzeichnis erstellt wurde, oder nicht.
    Dass ich die Fehler - Meldung so verliere, ist nicht schlimm.
    
    Ich habe verschiedene Szenarien getestet, z.B. mit ungültigen Zeichen
    wie '*' oder wenn die variable leer ist. Es hat immer funktioniert,
    er hat also den richtigen Status zurückgegeben.
    
    Beste Grüße
    YAPD
    Last edited: 2021-05-24 15:17:33 +0200 (CEST)
    Yet Another Perl Developer
    - +3 replies
    - haj
      
      2021-05-24 18:25
      
      User since
      2015-01-07
      570 articles
      BenutzerIn
      
      2021-05-24T13:15:34 YAPD
      Hi Haj,
      
      ich habe gesehen, dass du online bist und gehofft, dass du auf meinen
      Beitrag antwortest :)
      
      Online heißt aber nicht, dass ich da tatsächlich reinschaue. Ich habe immer zu viele Fenster offen :)
      
      2021-05-24T13:15:34 YAPD
      Ich habe den Code gerade nochmal geändert :
      
      So würde ich das nicht machen, das hatte ich beim ersten Mal übersehen.
      
      Laut Beschreibung von File::Path wäre $LG_FH_Directory_Error immer wahr. Die Doppelprüfung auf $LG_FH_Directory_Error und @$LG_FH_Directory_Error ist ein "Sicherheitsnetz", falls File::Path unerwartet früh zurückkommt: Da würde sonst eine undefinierte Variable als Referenz verwendet.
      
      Sollte dieser "eigentlich unmögliche" Fall aber tatsächlich mal eintreten, dann liefert der Test !$LG_FH_Directory_Error ein "wahr", der oder-Zweig wird gar nicht ausgewertet, und Du bekommst einen Status von 0, den Du als "kein Fehler" interpretierst (Bei der Gelegenheit: 0 als "ok" und 1 als "Fehler" halte ich für einigermaßen nichtssagend).
      
      Wenn Dich Fehlerdetails nicht interessieren, kannst Du doch auch direkt den Return-Wert benutzen:
      
      Code (perl): (dl )
      
      $LG_FH_Directory_Status = (-d $path) || make_path( $path ) ? 0 : 1;
      
      Noch ein Fehler ist drin:
      
      Code (perl): (dl )
      
      make_path( '$path' , { error => \$LG_FH_Directory_Error } );
      
      Da wird '$path' nicht interpoliert, d.h. Du legst ein Verzeichnis an, dass tatsächlich $path heißt (zumindest unter Linux).
      
      2021-05-24T13:15:34 YAPD
      Ich habe verschiedene Szenarien getestet, z.B. mit ungültigen Zeichen
      wie '*' oder wenn die variable leer ist. Es hat immer funktioniert,
      er hat also den richtigen Status zurückgegeben.
      
      Es wird ja vermutlich bei Dir keine Rolle spielen, aber unter Linux kann man sehr wohl ein Verzeichnis mit dem Namen * anlegen!
      - +2 replies
      - YAPD
        
        2021-05-24 21:14
        
        User since
        2015-09-20
        146 articles
        BenutzerIn
        
        Hey Haj,
        
        vielen Dank für deine Antwort. Es ist mir eigentlich nicht egal, ob die geschriebene Routine auch Linux
        unterstützt, denn die Anwendung sollte eigentlich systemunabhängig arbeiten. ( in Bezug auf das * ).
        Ich werde dann wohl noch Schalter einbauen müssen, die prüfen, auf welchem System
        die Anwendung läuft.
        
        ich habe mir nun nochmal Gedanken über die ganze Umsetzung der Verzeichniserstellung gemacht und
        da ich mit den möglichen Optionen nicht ganz zufrieden war, habe ich eine eigene kleine Sub - Routine
        geschrieben, die ( meiner Meinung nach ) seinen Zweck erfüllt :
        
        ( Nur Windows ) :
        
        Code: (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 36 37 38 39 40 41 42 43 44 45 46 47 48
        
        sub Create_Directory { my ( %Parameter ) = @_; print "PARAMETER : $Parameter{ Directory }" . "\n"; my ( @Directories_Store ) = split( /\// , $Parameter{ Directory } ); my $Directories_Store_Counter = @Directories_Store; my $Device = substr( $Parameter{ Directory } , 0 , 2 ); splice @Directories_Store, 0 , 1; my $DIR; my $Errors = 0; foreach my $Directory( @Directories_Store ) { $DIR .= '/' . $Directory; my $FH_Directory = $Device . $DIR; if( !( -e $FH_Directory ) ) { print "[ INFO ] The directory '$FH_Directory' could not be found !" . "\n"; my $FH_Diretory_Status = mkdir( $FH_Directory , 0777 ); if( $FH_Diretory_Status eq '0' ) { print "[ ERROR ] The directory '$FH_Directory' could not be created !"; return 'Failure'; } if( $FH_Diretory_Status eq '1' ) { print "[ INFO ] The directory '$FH_Directory' was created successfully !" . "\n"; } } else { print "[ INFO ] The directory '$FH_Directory' already exists !" . "\n"; } } return 'Success'; }
        
        Die Meldungen werden später per Debug Schalter noch auskommentiert. :)
        
        Beste Grüße
        YAPD
        Last edited: 2021-05-24 21:34:12 +0200 (CEST)
        Yet Another Perl Developer
        
        haj
        
        2021-05-25 00:55
        
        User since
        2015-01-07
        570 articles
        BenutzerIn
        
        Na ja, da bastelst Du viel nach, was in Standard-Perl in Modulen wie Cwd oder File::Spec schon drin ist. Ich würde das ja nicht machen und bei File::Path bleiben. Eine "moderne" Variante für solches Pfad-Management ist Path::Tiny, die bietet ein mkpath äquivalent zu make_path, aber auch Funktionen wie realpath, der schräge Pfade wie a:/b/../c//../d/./ richtig einkürzt.
        
        Aber wenn's Deinen Zweck erfüllt, soll's mir recht sein.

View all threads created 2021-05-24 12:53.