Content - 3cb56388151b9ae9b565a9db6dc65ebcd457aab3 - 33bdab2/legacy/string-dump

visit type:

Tip revision: 128459811ce1ff28aea3f9f20971b3d059e76738 authored by alex@thinkpad on 13 October 2012, 17:05:35 UTC
5DC: Added a small joke on "don't click me" :)

Tip revision: 1284598

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

Browse the archive

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