https://bitbucket.org/hudson/magic-lantern
Raw File
Tip revision: 1374e0f81f994f499fa3d5304576ff918e808f7f authored by hudson@kremvax on 20 June 2009, 20:04:51 UTC
Enable low pass filter with same parameters as Canon
Tip revision: 1374e0f
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";
back to top