Content - 3cb56388151b9ae9b565a9db6dc65ebcd457aab3 - 652d1cb/string-dump

swh:1:snp:102b88a84830a6000187157d40b28a5b77e43cda

Tip revision: 2a742f8057aae0d1729109ba554f0ada328a0565 authored by hudson@andromeda.local on 01 August 2010, 18:22:33 UTC
Build firmware images with no Canon content

Tip revision: 2a742f8

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";