Wann auf defined testen? (solved) (Allgemeine technische Fragen)

[thread]21187[/thread]

Wann auf defined testen? [solved]

Readers: 12

Articles: hide open all | hide show old branches

+4 replies
Kuerbis

2021-04-24 04:14
User since
2011-03-20
830 articles
BenutzerIn
Hallo,
welche dieser beiden Versionen ist die bessere?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

if ( defined $val ) { $val = my_routine( $val ); } sub my_routine { my ( $val ) = @_; $val =~ s/0/O/g; return $val; }
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

$val = my_routine( $val ); sub my_routine { my ( $val ) = @_; if ( defined $val ) { $val =~ s/0/O/g; } return $val; }
- bianca
  
  2021-04-24 09:15
  
  User since
  2009-09-13
  6726 articles
  BenutzerIn
  
  Was soll das denn am Ende werden? Bis auf die fehlende Deklaration von $val sind beide fehlerfrei lauffähig. Ich mache solche Abfragen und Prüfungen am liebsten in der sub damit der Quellcode des Hauptprogramms schöner wartbar bleibt.
  
  Editiert von bianca: freundlicher
  
  Editiert von bianca: Ergänzung
  Last edited: 2021-04-24 09:18:56 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- haj
  
  2021-04-24 12:39
  User since
  2015-01-07
  370 articles
  BenutzerIn
  Ich schließe mich Biancas Vorschlag an: Das Unterprogramm hat dann die Eigenschaft "kommt auch ohne Parameter sowie mit undef zurecht und gibt in diesen Fällen undef zurück".
  
  Wenn my_routine an mehreren Stellen aufgerufen wird, musst Du sonst an jeder Stelle den "undef"-Fall extra behandeln.
  
  Etwas einfacher wäre die Geschichte, wenn Du gar nicht zwischen undef und dem Leerstring unterscheiden müsstest und es nur darum geht, die "uninitialized"-Warnung zu vermeiden:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub my_routine { my ($val) = @_; return ($val //= '') =~ s/0/O/gr; }
- Kuerbis
  
  2021-04-25 09:10
  
  User since
  2011-03-20
  830 articles
  BenutzerIn
  
  Danke!

View all threads created 2021-04-24 04:14.