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