Abkürzung für $x ? $x : undef (Allgemeines zu Perl)

[thread]15907[/thread]

Abkürzung für $x ? $x : undef

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
sman

2011-01-30 23:04
User since
2011-01-23
5 Artikel
BenutzerIn
Hallo,
nur eine ganz doofe kurze einfach Frage, die gern auch wieder gelöscht werden kann, ich hätte nur gern kurz mal gewusst, welche eleganten Kurzschriebweisen es gibt, um eine Variable anzugeben, falls sie nicht undef, 0 oder '' ist, ansonsten nicht anzugeben.
Mögliche Anwendung:
Code (perl): (dl )

print 'Anrufe heute '.($dauer?'(Dauer: '.$dauer.' min)':'')."\n";
Last edited: 2011-01-30 23:23:17 +0100 (CET)
- lichtkind
  
  2011-01-30 23:26
  
  User since
  2004-03-22
  5681 Artikel
  ModeratorIn + EditorIn
  
  hier wird nichts gelöscht solang es was mit programmieren zu tun hat und nicht ernshaft die mentale intigrität der betreiber gefährdet.
  
  ab perl 5.10 gibts auch // aber das unterscheidet nur definiertheit und nicht ob da ein wert drin ist oder nicht. im moment kommt mir deine lösung schon ideal vor.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +2 replies
- sman
  
  2011-01-30 23:40
  User since
  2011-01-23
  5 Artikel
  BenutzerIn
  Nachtrag: Mich stören daran eigentlich zwei Dinge:
  
  Warum gibt es kein $x?$x ohne das Else-Konstrukt? Das würde dohc auch shcon Zeichen sparen
  Performance: Nur für die Ausgabe von $x (und nichts, wenn $x ungültig) muss zweimal die Variable gelesen werden, was ich fundamental für unnötig halte, es sollte sowas geben wie printiftrue($x), das die Variable auch nur einmal lesen muss. Das kann dann wichtig werden, wenn statt $x zum Beispiel eine Funktion ist, die aus einer datenbank ausliest.
  
  Last edited: 2011-01-30 23:54:18 +0100 (CET)
  - pq
    
    2011-01-31 00:25
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    wenn du nur den teil nach dem doppelpunkt weglassen willst und als negativen fall den leerstring haben willst, dann geht sowas:
    print "Anrufe heute " . ($dauer && "Dauer: $dauer min") . "\n";
    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
- Dubu
  
  2011-01-31 00:30
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  In deinem Beispiel möchtest etwas ausgeben, wenn die Variable einen wahren Wert enthält. Dafür hat pq ja ein Beispiel mit "&&" genannt.
  Umgekehrt ginge es mit "||", wenn du statt der Variablen etwas ausgeben willst, wenn ihr Inhalt unwahr ist:
  
  Code (perl): (dl )
  
  print "Dauer ist ", ($dauer || 'eine nicht definierte Anzahl'), " Minuten";
  
  Wenn du mit der Warnung leben kannst, oder sie entsprechend ausschaltest, kannst du natürlich auch einen nicht definierten Wert ausgeben:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  print "Dauer ist $dauer" __END__ Use of uninitialized value $dauer in concatenation (.) or string at ... Dauer ist
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  no warnings 'uninitialized'; print "Dauer ist $dauer" use warnings 'uninitialized'; __END__ Dauer ist
  
  Ich finde es so aber nicht schön.
- Taulmarill
  
  2011-01-31 10:45
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  2011-01-30T22:04:29 sman
  
  Code (perl): (dl )
  
  print 'Anrufe heute '.($dauer?'(Dauer: '.$dauer.' min)':'')."\n";
  
  Das konkrete Beispiel finde ich so schöner/lesbarer:
  
  Code (perl): (dl )
  
  1 2 3
  
  print 'Anrufe heute '; print "(Dauer: $dauer min)" if $dauer; print "\n";
  
  Wenn die Texte länger werden, würde ich zu einer Template-Engine wie z.B. Template Toolkit greifen.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- gelöscht 2011-01-31 13:52

View all threads created 2011-01-30 23:04.