Boolean (1|0) Variable auf undef prüfen (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-05-13 02:26:12
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
11 guests

[thread]19979[/thread]

submit to reddit

Boolean (1|0) Variable auf undef prüfen [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+15 replies
mika

2016-02-07 07:39
User since
2010-10-02
168 articles
BenutzerIn
Hallo,

ich habe in einer Konfigurationsdatei vom Type INI einen globalen Wert der 0 oder 1 sein darf.

Nun möchte ich testen on dieser gesetzt ist und wenn nicht den Standardwert 1 zuweisen. Aber beim prüfen mit if (!$var) fällt auch der Wert 0 wie undef aus.

Der genaue Code ist folgender, genutzt wird das Modul Config::Tiny.
Code (perl): (dl )

$cfg->{"_"}{"download"} = 1 if ( !$cfg->{"_"}{"download"} );
Hoffe ihr versteht das Problem könnt mir bei der Lösung helfen. Mir fällt die Syntax dazu nicht ein.

Hier greift wohl NULL == 0 wie bei C?
Last edited: 2016-02-07 08:04:53 +0100 (CET)
- +2 replies
- bianca
  
  2016-02-07 09:38
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  Code (perl): (dl )
  
  $cfg->{"_"}{"download"} = 1 if !defined $cfg->{"_"}{"download"};
  
  10 print "Hallo"
  20 goto 10
  - mika
    
    2016-02-07 10:32
    
    User since
    2010-10-02
    168 articles
    BenutzerIn
    
    defined ist das Schlüsselwort dafür stimmt :-)
    Dankeschön.
- +5 replies
- GwenDragon
  
  2016-02-07 09:40
  User since
  2005-01-17
  14837 articles
  Admin1
  defined prüft ob die Variable definiert ist.
  exists prüft ob ein Wert im Hash existiert.
  der Operator // greift, wenn der Wert einer Varibale undef ist.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  $cfg->{"_"}{"download"} = 1 if not exists $cfg->{"_"}{"download"}; $cfg->{"_"}{"download"} //= 1; # auf 1 setzen falls nicht defined also undef ###oder $cfg->{"_"}{"download"} = 1 if not defined $cfg->{"_"}{"download"};
  
  Editiert von GwenDragon: Tippfehler bei Operator
  Last edited: 2016-02-07 10:16:25 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2016-02-07 10:00
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    und not entspricht dem ! aus meinem Beispiel
    10 print "Hallo"
    20 goto 10
  - +2 replies
  - betterworld
    
    2016-02-07 10:07
    
    User since
    2003-08-21
    2614 articles
    ModeratorIn
    
    Statt // 1 sollte es imho //= 1 heißen.
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - GwenDragon
      
      2016-02-07 10:17
      
      User since
      2005-01-17
      14837 articles
      Admin1
      
      Danke. Vergessen, ich war noch im Schnarchmodus beim Tippen und Absenden.
      Ich hab's geändert.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - mika
    
    2016-02-07 10:34
    
    User since
    2010-10-02
    168 articles
    BenutzerIn
    
    2016-02-07T08:40:09 GwenDragon
    $cfg->{"_"}{"download"} //= 1; # auf 1 setzen falls nicht defined also undef
    
    Tolle Syntax spart die If-Abrage; das kannte ich noch nicht. Ist gemerkt – hoffentlich...
- +2 replies
- guest janus
  
  2016-02-07 10:23
  
  Du suchst die Null mit dem wahren Wert, das ist der String: "0E0"
  Last edited: 2016-02-07 10:42:11 +0100 (CET)
  - GwenDragon
    
    2016-02-07 10:46
    
    User since
    2005-01-17
    14837 articles
    Admin1
    
    Ein anderes beliebtes Mittel dazu ist die Zeichenkette "0 but true":
    
    C:\>perl -e "print 99 if '0 but true'"
    99
    
    C:\>perl -e "print 0 == '0 but true'"
    1
    
    Weiteres zu 0|true|false:
    http://www.perlmonks.org/?node=what%20is%20true%20...
    http://www.perlmonks.org/?node_id=464548
    Last edited: 2016-02-07 10:49:36 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- GwenDragon
  
  2016-02-09 13:00
  
  User since
  2005-01-17
  14837 articles
  Admin1
  
  Wenn dein Problem gelöst ist, markiere den Thread bitte als Gelöst mit em grünen Haken-Button im Startpost.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - mika
    
    2016-02-09 16:17
    
    User since
    2010-10-02
    168 articles
    BenutzerIn
    
    done
    - +3 replies
    - GwenDragon
      
      2016-02-09 16:42
      
      User since
      2005-01-17
      14837 articles
      Admin1
      
      Da oben bei "Thread als gelöst markieren: " ist der Button!
      Last edited: 2016-02-09 16:44:09 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - pq
        
        2016-02-09 16:49
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        irgendwie klicken viele leute auf den haken, und danach sofort auf "thread als nicht gelöst markieren".
        ich weiss, liegt am schlechten userinterface.
        ich hab den grünen haken nochmal betätigt.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        mika
        
        2016-02-09 17:52
        
        User since
        2010-10-02
        168 articles
        BenutzerIn
        
        Das UI passt schon. Ich habe nur nicht aufgepasst, und so oft bin ich nicht im Forum...
        
        Ich hatte das mit "als gelöst makieren" und "speichern" verwechselt, so hatte ich das im Gedächtnis^^

View all threads created 2016-02-07 07:39.