Help for this page

Select Code to Download


  1. or download this
    #!perl -w
use strict;
...

print_to_pdf( $hardcoded_string_in_perl ); # works and shows the corre
+ct characters in the PDF
print_to_pdf( $string_as_read_from_database ); # works and shows the c
+orrect characters in the PDF
  2. or download this
    sub unescape {
    my( $str ) = @_;
...
};

print unescape('\x{0052}\x{0044}\x{0024}');