Content - 3cb56388151b9ae9b565a9db6dc65ebcd457aab3 - 5255553/string-dump

visit type:

https://bitbucket.org/hudson/magic-lantern

03 October 2021, 11:27:36 UTC

Tip revision: 5e164a63a53ac66522e2ca02d01678b0d67d07bd authored by Trammell Hudson on 24 March 2011, 13:29:27 UTC
Allow enable-liveview to be toggled on and off

Tip revision: 5e164a6

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