linux-l: perl: defined or not.

[phR]

Holger Paulsen wrote:
> 
> > 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)
> > ######################
> >
> >
> Deine Signatur ist zu lang.
> 
>   Holger

Geht das schon wieder los?

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)
######################