Perl: Should Math64::Int64 work inside a "Safe" Compartment? -


(my first post stack overflow, hope using right format)

i have need evaluate code manipulates 64-bit integers in "safe" compartment. since supply both script , code evaluated, normal eval, wanted try make things more robust unintentional errors using 'safe".

should expect math::int64 should work inside "safe" compartment? conflicting results across different bitness of perl versions, integer bit-width, , oses. (see below).

all fail in same way inside debugger.

i sure making incorrect assumption place, can't figure out where.

thanks can give.

code example (dummy.pl)

use strict; use warnings; use exporter; use safe; use math::int64 qw(int64 hex_to_int64); #use math::int64 ':native_if_available'; $safe = new safe 'root'; $safe->permit( qw(:browse) ); $safe->share( qw/int64 hex_to_int64 my_sprintf/ ); $x = 0xff & (hex_to_int64("0xaa12345678") >> 4); print my_sprintf("x ",$x); $z = evalme('$x = 0xff & (hex_to_int64("0xaa12345678") >> 4)', $safe); print my_sprintf("z ",$z); print evalme('my_sprintf("xe", $x)',$safe); exit; sub my_sprintf { ($string, $value) = @_; return sprintf( "value of %s: %x,\ttype: %s\n", $string, $value, ref($value) || "scalar" ); } sub evalme { my($expr, $safe) = @_; $retval = $safe->reval($expr); die "error: $@\n" if ($@); return $retval; }

execution examples

% perl -w dummy.pl === "win7 x64 sp1, strawberry perl 5.12.3" === value of x : 67, type: math::int64 can't locate package exporter @math::int64::isa @ (eval 5) line 1. ... can't locate package exporter @math::int64::isa @ (eval 5) line 1. value of z : 67, type: math::int64 value of xe: 67, type: math::int64 === "win xp sp3 32-bit strawberry perl 5.16.0" === value of x : 67, type: math::int64 value of z : 8e, type: scalar value of xe: 8e, type: scalar (no ':native-if-available') === "ubuntu 10.04 x86_64 server, perl 5.10.1" === value of x : 67, type: math::int64 value of z : 4d, type: scalar value of xe: 4d, type: scalar (':native-if-available') === "ubuntu 10.04 x86_64 server, perl 5.10.1" === value of x : 67, type: scalar value of z : 71, type: scalar value of xe: 71, type: scalar % perl -wd dummy.pl versions return effectively: value of x : 67, type: math::int64 error: undefined subroutine &math::int64::hex_to_int64 called @ c:/.../perl5db. @ dummy.pl line 35 main::evalme('$x = 0xff & (hex_to_int64("0xaa12345678") >> 4)', 'safe=hash(xxxxxxxx)'

versions

"win7 x64 sp1, strawberry perl 5.12.3": platform: osname=mswin32, osvers=6.1, archname=mswin32-x64-multi-thread uname='win32 strawberryperl 5.12.3.0 #1 sun may 15 09:43:50 2011 x64' use64bitint=define, use64bitall=undef, uselongdouble=undef compiler: intsize=4, longsize=4, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, off_t='long long', characteristics of binary (from libperl): compile-time options: ... use_64_bit_int "win xp 32-bit strawberry perl 5.16.0": platform: osname=mswin32, osvers=4.0, archname=mswin32-x86-multi-thread uname='win32 strawberry-perl 5.16.0.1 #1 mon may 21 22:07:30 2012 i386' use64bitint=undef, use64bitall=undef, uselongdouble=undef compiler: intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, off_t='long long', characteristics of binary (from libperl): compile-time options: ... "ubuntu 10.04 x86_64 server, perl 5.10.1": linux 2.6.32-31-server, platform: use64bitint=define, use64bitall=define, uselongdouble=undef compiler: intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='double', nvsize=8, off_t='off_t', characteristics of binary (from libperl): compile-time options: ... use_64_bit_all use_64_bit_int

it seems issue caused overloading not working inside safe compartments.

overloading one of ways circumvent safe may disabled on purpose. can ask on perl5-porters mailing list if want know.

i don't think solved math::int64 (btw, author).

on other hand, can try compiling perl native 64bit support.


Comments

Post a Comment

Popular posts from this blog

javascript - backbone.js Collection.add() doesn't `construct` (`initialize`) an object -

<!doctype html public "-//w3c//dtd xhtml 1.0 strict//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-strict.dtd"> <html> <head> <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js"></script> <script src="http://documentcloud.github.com/underscore/underscore-min.js"></script> <script src="http://documentcloud.github.com/backbone/backbone-min.js"></script> </head> <body> <button id="cmd_create_event" name="cmd_create_event" type="button">create new `event`</button> <script type="text/javascript"> var eventmodel = backbone.model.extend({ initialize : function() { console.log("`event` initialized. id: " + this.cid); this.bind("change:status", function() { console.log(this.get("status") + " value `status`"); }); this.bind("error", function(model, e...
Read more

php - Get uncommon values from two or more arrays -

is there function in php give array of uncommon values 2 or more arrays? for example: $array1 = array( "green", "red", "blue"); $array2 = array( "green", "yellow", "red"); .... $result = function_needed($array1, $array2,...); print_r($result); should give output: array("blue", "yellow", ...); use array_diff , array_merge : $result = array_merge(array_diff($array1, $array2), array_diff($array2, $array1)); here's demo. for multiple arrays, combine callback , array_reduce : function unique(&$a, $b) { return $a ? array_merge(array_diff($a, $b), array_diff($b, $a)) : $b; } $arrays = array( array('green', 'red', 'blue'), array('green', 'yellow', 'red') ); $result = array_reduce($arrays, 'unique'); and here's demo of that.
Read more

Adding duplicate array rows in Php -

i create function in php adds rows of array shared column value. so input. $test = array( array("c", 5, 6), array("c", 2, 3), array("test", 5, 6) ); and output. $testduplicatefree = array( array("c", 7, 9), array("test", 5, 6) ) ); i'm thinking function combine_duplicates($array,$col){ ... ... return $duplicatefreearray; } where $col duplicate free array. so, in case, combine_duplicates($test,0); would me desired output. this. <?php function combine_duplicates($array,$col) { $index = array(); foreach ($array $row) { $key = $row[$col]; if (!isset($index[$key])) { $index[$key] = $row; } else { ($i = 0; $i < count($row); ++$i) { if ($i != $col) { $index[$key][$i] += $row[$i]; } } } } return array_values($index); } $array = array( array("c", 5, 6), array("c", 2, 3), array("test", 5, 6) ); print_r(combine_duplicates($array, 0)); try here: http://codepad.org/mdhesqhi
Read more