/[amv]/amv.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /amv.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5 by dpavlin, Thu Jul 19 20:53:33 2007 UTC revision 6 by dpavlin, Thu Jul 19 20:56:25 2007 UTC
# Line 29  sub hex_dump { Line 29  sub hex_dump {
29          # calculate number of characters for offset          # calculate number of characters for offset
30          #my $d = length( sprintf("%x",length($bytes)) );          #my $d = length( sprintf("%x",length($bytes)) );
31          my $d = 4;          my $d = 4;
32            my $prefix = '#.';
33          while ( $hex =~ s/^((?:\w\w\s){1,16})// ) {          while ( $hex =~ s/^((?:\w\w\s){1,16})// ) {
34                  printf "## %0${d}x | %-48s| %s\n", $o, $1, substr( $ascii, 0, 16 );                  printf "$prefix %0${d}x | %-48s| %s\n", $o, $1, substr( $ascii, 0, 16 );
35                    $prefix = '##';
36                  if ( length($ascii) >= 16 ) {                  if ( length($ascii) >= 16 ) {
37                          $ascii = substr( $ascii, 16 );                          $ascii = substr( $ascii, 16 );
38                          $o += 16;                          $o += 16;
Legend:
Removed from v.5  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26