[Tk] Wert aus HList prüfen (gelöst) (Graphische Oberflächen)

[thread]16922[/thread]

[Tk] Wert aus HList prüfen [gelöst]

Tags: perl5 GUI Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies
Kean

2011-11-17 09:59
User since
2004-08-18
463 Artikel
BenutzerIn
Ich lese Werte aus einer TK-HList aus und prüfe ob ein Wert in diesem Feld steht oder nicht mit folgender Zeile:
Code (perl): (dl )

my $satz2 = $table_stat->itemCget($r, $c, -text)?$table_stat->itemCget($r, $c, -text):"";
Wenn kein Wert enthalten ist soll ein leerer String zugewiesen werden. Das funktioniert soweit auch.

Leider wird aber ebenfalls ein leerer String zugewiesen wenn in dem Feld die Zahl "0" steht. Kann ich das irgendwie ändern, so dass bei einer Null auch diese als String übergeben wird?
- +5 replies
- GwenDragon
  
  2011-11-17 10:09
  User since
  2005-01-17
  14748 Artikel
  Admin1
  In Perl wird sowohl die leere Zeichenkette als auch der Wert 0 als false angesehen.
  Deswegen schlägt in deinem Beispiel der Vergleich mit dem ternären Operator ? fehl.
  
  Mit length kannst du prüfen, ob eine Zeichenkette leer ist oder eine Länge > 0 hat.
  Die Prüfung auf einen definierten Wert mit defined ist nötig, damit es keine unnötigen Warnungen bei nicht initialisierten Inhalten gibt.
  
  Zu ändern wäre:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $satz2 = defined($table_stat->itemCget($r, $c, -text)) && length($table_stat->itemCget($r, $c, -text)) ? $table_stat->itemCget($r, $c, -text) : "";
  
  Editiert von GwenDragon: Erläuterungen
  Last edited: 2011-11-17 10:25:12 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - GUIfreund
    
    2011-11-17 11:17
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2011-11-17T09:09:53 GwenDragon
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $satz2 = defined($table_stat->itemCget($r, $c, -text)) && length($table_stat->itemCget($r, $c, -text)) ? $table_stat->itemCget($r, $c, -text) : "";
    
    Zwar richtig, aber leider schlecht zu lesen und nicht sonderlich effizient. Mein Vorschlag:
    
    Code (perl): (dl )
    
    1 2
    
    $satz2 = $table_stat->itemCget($r, $c, -text); defined $satz2 or $satz2 = '';
    
    Gruß
    GUIfreund
    - +3 replies
    - GwenDragon
      
      2011-11-17 12:45
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Oh, Effizienz! Ja. Dein Beispiel ist es bestimmt. ;)
      
      Code (perl): (dl )
      
      $satz2 = $table_stat->itemCget($r, $c, -text) // '';
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Kean
        
        2011-11-17 13:08
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        War das ironisch? ^^
        
        GwenDragon
        
        2011-11-17 13:50
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Nein, eher g'schnappich.
        
        Wer Effizienz will, sollte lieber gleich eine Sprache nehmen, die effizient kompilierten ausführbaren Maschinencode erzeugt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-11-17 09:59.