Rob Hanson wrote:
> You could just use a regex...
>
> $string =~ s/.//;
>
> Or even substr()...
>
> substr($string, 0, 1, '');
>
> Both look equally efficient.
except they are different and they don't work the same way:
[panda]$ perl -le '$_="\n1234"; s/.//; print'
234
[panda]$ perl -le '$_="\n1234"; substr($_,0,1,""); print'
1234
if you decided to use the regex version, you might as well do s/.//s
instead. i believe the substr version will be much faster.
david
--
$_=q,015001450154015401570040016701570162015401440041,,*,=*|=*_,split+local$";
map{~$_&1&&{$,<<=1,[EMAIL PROTECTED]||3])=>~}}0..s~.~~g-1;*_=*#,
goto=>print+eval
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
