Frage zu "-e !" Schalter bei if - Abfrage (solved) (Allgemeines zu Perl)

[thread]20622[/thread]

Frage zu "-e !" Schalter bei if - Abfrage [solved]

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+6 replies
YAPD

2019-05-28 21:07
User since
2015-09-20
146 articles
BenutzerIn
Hey,

ich habe folgenden Code, in dem ich mit
Code: (dl )

1 2 3 4 5

if ( -e ! "$Self->{Home}/RELEASE" ) { print STDERR "Error : Fehler bei der Initialisierung des Release - Files ( $Self->{Home}/RELEASE ) !" , "\n"; die; }
prüfe, ob die Datei "RELEASE" existiert. Entferne ich die Datei physisch und führe den Code aus, erscheint immer die Meldung
"STDERR "Fehler bei der Verarbeitung des Release - Files ( Keine Berechtigung auf Datei $Self->{Home}/RELEASE ) !.\n";".

Nach meinem Verständnis sollte aber, wenn ich die Datei "RELEASE" entferne, die Meldung
Code: (dl )

"print STDERR "Error : Fehler bei der Initialisierung des Release - Files ( $Self->{Home}/RELEASE ) !" , "\n";
erscheinen.

Entferne ich das Ausrufezeichen !, erscheint die Initialisierungsmeldung, weil die Datei existiert. Wegen der 2. Meldung hab
ich den Restcode noch angehängt.
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

if ( -e ! "$Self->{Home}/RELEASE" ) { print STDERR "Error : Fehler bei der Initialisierung des Release - Files ( $Self->{Home}/RELEASE ) !" , "\n"; die; } if ( open( my $Product, '<', "$Self->{Home}/RELEASE" ) ) { while ( my $Line = <$Product> ) { if ( $Line !~ /^#/ ) { if ( $Line =~ /^PRODUCT\s{0,2}=\s{0,2}(.*)\s{0,2}$/i ) { $Self -> { Product } = $1; } elsif ( $Line =~ /^VERSION\s{0,2}=\s{0,2}(.*)\s{0,2}$/i ) { $Self -> { Version } = $1; } } } close( $Product ); } else { print STDERR "Fehler bei der Verarbeitung des Release - Files ( Keine Berechtigung auf Datei $Self->{Home}/RELEASE ) !.\n"; die; }
Könnt ihr mir sagen, warum der Schalter "-e !" nicht funktioniert, "-e" aber schon ??

Der Pfad in "$Self -> { Home }" ist vorhanden & richtig. Wenn ich ein
Print auf die Variablen { Version } & { Product } mache, kriege ich die
Ergebnisse aus der Datei.

Vielen Dank für die Hilfe.

Viele Grüße
YAPD
Last edited: 2019-05-28 21:23:51 +0200 (CEST)
Yet Another Perl Developer
- +5 replies
- Linuxer
  
  2019-05-28 21:29
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Hallo,
  
  Du musst die Reihenfolge der Operatoren beachten:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  # wenn Datei existiert if ( -e $file ) { } # wenn Datei *nicht* existiert if ( ! -e $file ) { }
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - YAPD
    
    2019-05-28 21:31
    
    User since
    2015-09-20
    146 articles
    BenutzerIn
    
    Oh Mann. Der Wald und die Bäume und so. Danke vielmals. :)
    
    Viele Grüße
    YAPD
    Yet Another Perl Developer
    - +3 replies
    - YAPD
      
      2019-05-28 21:37
      
      User since
      2015-09-20
      146 articles
      BenutzerIn
      
      Eine Frage habe ich noch :-) :
      
      Gibt es einen Grund, das so zu schreiben, also das
      
      Code: (dl )
      
      if ( -e ! "$Self->{Home}/RELEASE" )
      
      Der Teil des Codes ist nicht durch meine Hand entstanden & das Script scheint funktioniert zu haben ???
      
      VG
      YAPD
      Yet Another Perl Developer
      - +2 replies
      - Linuxer
        
        2019-05-28 23:18
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        In meinen Augen gibt es keinen Grund dafür. In aller Regel ist das falsch im Sinne der Programmlogik.
        Das ist ein komplizierter Weg um sinngemäß "if ( false ) {}" zu sagen.
        
        Bei -e ! "string" wird die Negation auf "string" angewendet und das Ergebnis davon mit -e dann auf Existenz überprüft, was wohl im Ergebnis ein "existiert nicht" ergibt und vom if () als FALSCH gewertet wird. Damit wird dann der Block nicht ausgeführt.
        Das passiert, egal ob die Datei existiert oder nicht.
        
        Davon ab:
        
        Wenn in Deinem gezeigten Code-Fragment die Datei dann eben wirklich nicht existiert, schlägt als nächstes der open() Befehl fehl (was für das if ein FALSCH bedeutet ) und der folgende else-Zweig wird ausgeführt und eine - in diesem Fall - falsche Aussage wird ausgegeben.
        
        Die Aussage "Keine Berechtigung" ist halt nur korrekt, wenn genau das der Fall ist und die Berechtigung nicht stimmt.
        
        Sinniger ist es (auch wenn es dann potentiell auf Englisch kommt), die Variable $! auszugeben, um den wahren Grund zu erfahren.
        
        Beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #! /usr/bin/perl use strict; use warnings; my $file = "/tmp/i_am_not_there.txt"; if ( open my $fh, '<', $file ) { print "oops\n"; } else { die "Oeffnen von $file fehlgeschlagen: $!\n"; }
        
        Ergibt dann:
        
        Code: (dl )
        
        1 2
        
        $ perl /tmp/test.pl Oeffnen von /tmp/i_am_not_there.txt fehlgeschlagen: No such file or directory
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        YAPD
        
        2019-05-31 18:59
        
        User since
        2015-09-20
        146 articles
        BenutzerIn
        
        Vielen Dank Linuxer für die Erklärung ! :)
        Yet Another Perl Developer

View all threads created 2019-05-28 21:07.