- or download this
#!/usr/bin/perl
use 5.018;
use strict;
...
my $return = $method->Call('my ', 'potato');
print Dumper $return; # prints 'my potato'
- or download this
#!/usr/bin/perl
use 5.018;
use strict;
...
# works(??): 'my potato'
my $x = unpack 'p', pack 'IN', $return;
print Dumper $x;
- or download this
perl -v
This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x
+64-multi-thread