#!/usr/bin/perl -w use strict;my$data="4a75737420416e6f74686572205065726c204861636b6572"; +my$l=length$data;my$str="";for(my$x=0;$x<$l;$x+=2){$str=substr($data, +$x,2); print(chr(hex$str));}print"\n";
In reply to Variation on a theme.. by TStanley
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |