Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper qw( Dumper );

...
   my $data = <$fh>;
   print("Read: ", txtdump($data), "\n");
}
  2. or download this
    Orig: "foo\nbar\n"
File: 66 00 6F 00 6F 00 0D 00 0A 00 62 00 61 00 72 00 0D 00 0A 00
Read: "foo\nbar\n"