bin2hex.pl

   1 #!/usr/bin/perl
   2 ## "$Id$"
   3 ## -----------------------------------------------------------------------
   4 ##
   5 ##   Copyright 2003 H. Peter Anvin - All Rights Reserved
   6 ##
   7 ##   Permission is hereby granted, free of charge, to any person
   8 ##   obtaining a copy of this software and associated documentation
   9 ##   files (the "Software"), to deal in the Software without
  10 ##   restriction, including without limitation the rights to use,
  11 ##   copy, modify, merge, publish, distribute, sublicense, and/or
  12 ##   sell copies of the Software, and to permit persons to whom
  13 ##   the Software is furnished to do so, subject to the following
  14 ##   conditions:
  15 ##
  16 ##   The above copyright notice and this permission notice shall
  17 ##   be included in all copies or substantial portions of the Software.
  18 ##
  19 ##   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  20 ##   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
  21 ##   OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  22 ##   NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
  23 ##   HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
  24 ##   WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  25 ##   FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  26 ##   OTHER DEALINGS IN THE SOFTWARE.
  27 ##
  28 ## -----------------------------------------------------------------------
  29
  30 eval { use bytes; }; eval { binmode STDIN; };
  31
  32 $len = 0;
  33 while ( read(STDIN,$ch,1) ) {
  34     $cc = ord($ch);
  35     $len += printf ("%x", $cc);
  36     if ( $len > 72 ) {
  37         print "\n";
  38         $len = 0;
  39     } else {
  40         print " ";
  41         $len++;
  42     }
  43 }
  44 print "\n" if ( $len );
  45 exit 0;
  46