Perl: zuviel return?

[opi]

Hallo Struppi,

du mal wieder ;-)

Deine Abneigung gegen Module ist schon bewundernswert, da du dadurch mindestens das doppelte (vermutlich sogar noch viel mehr) an Zeit brauchst, um das Rad immer wieder zu erfinden.

nee, keine Abneigung. Es gibt so einiges an Modulen, welche ich einsetze und auch gerne. Aber es gibt viele Strukturen, in denen nur selbstgeschriebenes reinpasst und dabei ist der Lerneffekt auch sehr hoch, denn ich bin noch immer ein absoulter Perlnoob. Natürlich sollte man auch die Verwendung von CPAN-Modulen erlernen, aber wenn ich mich einzig und allein darauf einstelle, lerne ich nie die komplexen Datenstrukturen und Möglichkeiten von Perl kennen.

Um auf dein Beispiel zu kommen... ich würde es noch ein wenig anders formulieren:

  
sub bp_cookie_check1 {  
     my $ck = $ENV{HTTP_COOKIE} || return;  
     $ck =~ s/\s|id=//g;  
     return if $ck =~ /\W/;  
  
     open C, "/tmp/anydir/$ck" || return;  
     my $un = <C>;  
     close C;  
     ## ich wollte $un zurück liefern  
     return $un if -f "/etc/anydir/Profiles/$un" && $un;  
}  

Das Beispiel mit den vielen return hatte ich in einem Skript von einem Kollegen entdeckt und fand es scheusslich, obwohl es sicherlich im Bereich des Möglichen ist, auch soviele return zu benutzen anstatt der vielen if's.

Wie immer danke schön.

Greez,
opi