Pack Man Wow! thanks Corion that does it sub _leftshift32 { my ($n, $s) = @_; unpack "l", pack "L", ($n << $s) }
I probably now have to implement all other arithemtic operators used in that JS code as above.
In reply to Re^2: Trying to translate overflowing JS code to Perl
by bliako
in thread Trying to translate overflowing JS code to Perl
by bliako
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |