SamCG has asked for the wisdom of the Perl Monks concerning the following question:
Hi as a sample:
-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
Shouldn't this be producing just "f", as the d flag should cause unmatched items to be deleted?C:\>perl -e "$_=alter;tr/this/flip/d;print;" alfer
-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
Back to
Seekers of Perl Wisdom