unbekannte Programmstrukutur (gelöst) (Allgemeines zu Perl)

[thread]16914[/thread]

unbekannte Programmstrukutur [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies
laplace

2011-11-13 21:12
User since
2011-10-09
21 Artikel
BenutzerIn
Hallo!
Ich habe mich heute bei der Arbeit kurz in ein Perlprogramm eines Users eingelesen, der meines Erachtens nach auf einem recht hohen Niveau codiert...also zumindest von meiner Warte aus betrachtet ;-)

vielleicht kann mir hier jemand sagen, was es mit der folgenden Struktur auf sich hat: gesehen habe ich sie bei einer Variablendeklaration: (nachdem der Quellcode einige tausend Zeilen lang ist, und ich da jetzt nicht ein in sich konsistentes Stück des Codes herauskopiert habe, belasse ich es mit einer kurzen Andeutung des Problems; wenn man damit nichts anfangen kann, muss ich morgen die genaue Textzeile kopieren)
Code: (dl )

1 2 3

[...] my $textzeile = ($string eq "*") ? () UT::blabla [...]
den Inhalt der ersten runden Klammer habe ich ziemlich sinngetreu widergegeben: Ist das eine Zeichenprüfung? was hat es mit dem Fragezeichen auf sich? die leere, runde Klammer darauffolgend stand auch so da...an den Rest kann ich mich nur noch schwammig erinnern...vielleicht ist der ja nicht so wichtig..bzw. ein anderes Problem für sich, da ich den Operator "::" auch nicht kenne.

Wer kann helfen?
Danke

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2011-11-13 21:18:04 +0100 (CET)
- +2 replies
- pq
  
  2011-11-13 21:22
  User since
  2003-08-04
  12208 Artikel
  Admin1
  der code ist gleichwertig mit folgendem:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $textzeile; if ($string eq '*') { $textzeile = undef; } else { $textzeile = UT::blabla; }
  
  wobei hier aber der teil im if unnötig ist, daher würde ich das eher so schreiben, wenn mit if oder unless:
  
  Code (perl): (dl )
  
  1 2
  
  my $textzeile; $textzeile = UT::blabla unless $string eq '*'
  
  da ist aber der ?: operator dann vielleicht doch schöner.
  
  über den ?: operator kannst du hier mehr lesen:
  perlop (suche nach "Conditional Operator")
  
  edit:
  ich nehme an, dass du in deinem beispiel den doppelpunkt vergessen hast:
  my $textzeile = ($string eq "*") ? () : UT::blabla
  Last edited: 2011-11-13 21:37:52 +0100 (CET)
  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
  - laplace
    
    2011-11-13 21:27
    
    User since
    2011-10-09
    21 Artikel
    BenutzerIn
    
    spitze! Danke

View all threads created 2011-11-13 21:12.