Perl: zuviel return?

[Struppi]

ich habe hier zwei Subs, bei denen ich mir nicht so sicher bin...

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.

Für welchen würdet Ihr euch entscheiden? Oder gar einen völlig anderen schreiben?

Ich würd's ein bisschen anders Formulieren:

  
sub bp_cookie_check1 {  
     my $ck = $ENV{HTTP_COOKIE} || return;  
     $ck =~ s/\s|id=//g;  
     my $ch = $ck;  
     $ch =~ s/\w+//;  
     return if $ch;  
  
     open C, "/tmp/anydir/$ck" || return;  
     my $un = <C>;  
     close C;  
     return -f "/etc/anydir/Profiles/$un" && $un;  
}  

Aber ansonsten ist es normal eine Funktion mit return zu beenden.

Struppi.