#!/usr/bin/perl # http://perlmonks.org/?node_id=1141773 use strict; use warnings; print handlingbinary( "139686DA20C1" ), "\n"; sub handlingbinary { return join '', ('A'..'Z')[ map { oct "0b$_" } (unpack 'B*', pack 'H*', shift()) =~ /.{5}/g ] }
Prints:
COLINWRAY
Hi Colin! (Am I right? If not, let me know :)
In reply to Re: Handling binary
by Anonymous Monk
in thread Handling binary
by G109B
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |