linux-l: perl: defined or not.

[phR]

Bjoern Feustel wrote:
> 
> Hi,
> 
>   also ich moechte in abhaengigkeit von der existenz einer variable zwei
> subs ausfuehren. Normalerweise wuerde ich folgendes schreiben:
> (defined $par) ? &ok : &nok;
> 
> Meine faulheit treibt mich jetzt zu folgender version:
> $par ? &ok : &nok;
> Reicht das oder ist das zu unsauber.
> 
Wenn es funktioniert, dann ist es auch sauber genug. Unter Perl gibt es
kein unsauber, alles was laeuft, ist gut.

phr
-- 
foreach$j(split/\ /,"Just_ ano ther_ Perl_ Hac
ker\n"){do{$n="";foreach$c(@c=
split//,$j){$n.=$c[rand($#c+1)];}}until(crypt($j,"ph")eq
crypt($n,"ph"));$n=~
s/\_/ /g;print$n;}# The three great virtues of a programmer are
Laziness, ###
# Impatience, and Hubris (Larry Wall, Creator of Perl)
######################