Skip to main content

Browse the archive

https://bitbucket.org/hudson/magic-lantern
03 October 2021, 11:27:36 UTC
Revision b6c768168662a2f5ae88ab3281d64b27144fbfb7 authored by alex@thinkpad on 20 June 2013, 14:45:21 UTC, committed by alex@thinkpad on 20 June 2013, 14:45:21 UTC 
5D2: minor raw border fix, thanks Greg
1 parent ebd8f8c
Raw File
Tip revision: b6c768168662a2f5ae88ab3281d64b27144fbfb7 authored by alex@thinkpad on 20 June 2013, 14:45:21 UTC
5D2: minor raw border fix, thanks Greg
Tip revision: b6c7681
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