note
demerphq
<em>So if I was a careless lout, I could claim 28, but I am not... <BR>
<code>
sub r {my$s;$s.=chop for@_=@_;$s.0?(&r,$s):()}
</CODE>
</em>
<br>
Tilly, I have tested your line as follows<br>
<code>
sub r {my$s;$s.=chop for@_;$s?(&r,$s):()}
#0 1 2 3 3
#123456789012345678901234567890123
# jeff,john,mary
# jjm,eoa,fhr,fny
</code>
on v5.6.1-AS628. and it worked fine.<p>
I suppose I am missing something, but I dont see what. <BR>Why are you doing <code>@_=@_</code> and <code>$s.0</code>??<BR> Is this an issue for an earlier version of perl? As far as I understand these are redundant ops. When does $s.0 evalute in a boolean sense different to $s? And what is the point of assigning @_ to itself?<br>I am confused.<p>OTOH it does mean that you can claim 5 less chars, for a total of 33. <br>:-)<Br>Or am I being a lout?<BR>
<BR>
Yves
67973
68282