note hardburn <p><em>Now you know why Perl doesn't have a switch statement . . . </em></p> <p>It should still get one, since the advantage of C switches it that they have O(1) efficency, whereas most of the equivilent idioms in Perl have O(n) worst-case time. <strike><code><UPDATE></code>Actually, the one posted above <i>always</i> runs in O(n) time.<code></UPDATE></code></strike> <code><UPDATE2></code>Oops, that update wasn't quite true. Thanks [demerphq].<code></UPDATE2></code> You can get O(1) time using a hash table that stores subroutine refs, but then you make implementing fall-through a lot harder.</p> <p>Fortunatly, we're getting a real switch in Perl6.</p> <div class="pmsig"><div class="pmsig-195718"> <p>----<br><em>I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.</em> <br> -- [Schemer]</p> <p><code>:(){ :|:&};:</code></p> <p><b>Note</b>: All code is untested, unless otherwise stated</p> </div></div> 301355 301355