Help for this page

Select Code to Download


  1. or download this
    s/(..)/chr(hex($1))/ge;   # convert 0x77 0x00 -> w^@
  2. or download this
    s/(....)/chr(hex($1))/ge  # convert 0x7700    -> ç\234\200
  3. or download this
    # stolen from Data::Dumper and tweaked.. ;-)

...
Creator -> Writer
Producer -> OpenOffice.org 2.0
Title -> COMPETITIVE SAFARI
  4. or download this
    sub narrow_char {
    $_[0] =~ s/(.)/chr(ord($1)>>8)/eg
...
    $_[0]; 

}