Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $foo='look! no eval: 3735928559';
$foo=~s/(\d+)/$X{sprintf '0x%08X',$1}/;
print $foo;
  2. or download this
    >perl eval.pl
look! no eval: 0xDEADBEEF
>
  3. or download this
    #!/usr/bin/perl

...
my $foo='look! no eval: 3735928559';
$foo=~s/(\d+)/${[sprintf '0x%08X',$1]}[0]/;
print $foo;
  4. or download this
    >perl eval2.pl
look! no eval: 0xDEADBEEF
>