Wann auf defined testen? (gelöst) (Allgemeine technische Fragen)

[thread]21187[/thread]

Wann auf defined testen? [gelöst]

Leser: 13

Articles: hide open all | hide show old branches

+9 replies
Kuerbis

2021-04-24 04:14
User since
2011-03-20
947 Artikel
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; }
- +2 replies
- bianca
  
  2021-04-24 09:15
  
  User since
  2009-09-13
  7016 Artikel
  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
  - gelöscht 2021-10-11 18:25
- +2 replies
- haj
  
  2021-04-24 12:39
  User since
  2015-01-07
  555 Artikel
  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; }
  - gelöscht 2021-10-11 18:25
- +2 replies
- Kuerbis
  
  2021-04-25 09:10
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Danke!
  - gelöscht 2021-10-11 18:25
- gelöscht 2021-10-11 18:25
- gelöscht 2021-10-11 18:33

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