On Wed, Jul 22, 2009 at 11:23 AM, Grant McLean <span dir="ltr"><<a href="mailto:grant@mclean.net.nz">grant@mclean.net.nz</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hi Chris!<br>
<br>
It's been so quiet here without you :-)<br>
<br>
On Wed, 2009-07-22 at 11:10 +1200, Chris Eade wrote:<br>
> ... this particular piece of code has me really stumped. It looks<br>
<div class="im">> like this:<br>
><br>
> use constant LATEST_D_ACROSS_PRODUCTS => 'P';<br>
> <snip><br>
> $ib->{reg}->{@{[LATEST_D_ACROSS_PRODUCTS]}} = $ed;<br>
> $ib->{prodNo}->{@{[LATEST_D_ACROSS_PRODUCTS]}} .= "$product_no,";<br>
<br>
</div></blockquote><div><br>Yet Another Plausible Way To Do It<br><br><br>use Readonly;<br>Readonly my $LATEST_D_ACROSS_PRODUCTS => 'P'; <br>$ib->{reg}->{$LATEST_D_ACROSS_PRODUCTS} = $ed;<br><div class="im">
$ib->{prodNo}->{$LATEST_D_ACROSS_PRODUCTS} .= "$product_no,";<br>
<br><br>Biggest advantage of doing it this way is its less surprising. <br>You don't get all the fun things involved with constant folding, but on the bright side, you don't get all the fun things involved with constant folding :)<br>
<br>And Optimality, meh, worry about that when your code is demonstratively too slow :)<br>
</div><br>
<br><br>Kent <br></div></div><br>perl -e "print substr( \"edrgmaM SPA NOcomil.ic\\@tfrken\", \$_ * 3, 3 ) for ( 9,8,0,7,1,6,5,4,3,2 );<br>