Revision eea235a8e4ccc87f0f902d596388ba0ea554e7f5 authored by hudson@kremvax.wan on 13 October 2009, 23:41:21 UTC, committed by hudson@kremvax.wan on 13 October 2009, 23:41:21 UTC
1 parent 50d1828
string-dump
#!/usr/bin/perl
use warnings;
use strict;
while(<>)
{
my ($val) = /:\s*([0-9A-Fa-f]+)\s*/ or next;
$val = hex $val;
while( $val )
{
print chr( $val & 0xFF );
$val >>= 8;
}
}
print "\n";
Computing file changes ...
