Help for this page

Select Code to Download


  1. or download this
    $x =~ s/([\x00-\x1F\ x7F-\xFF])/"\\'" .(unpack("H2",$1))/eg;
                    ^
  2. or download this
    my $x = "foo à, è, ì, ò, ù bar";

$x =~ s/([\x00-\x1F\x7F-\xFF])/"\\'" .(unpack("H2",$1))/eg;

print $x;    # foo \'e0, \'e8, \'ec, \'f2, \'f9 bar