#!/usr/bin/perl -w use strict;my@data=qw(4a 75 73 74 20 41 6e 6f 74 68 65 72 20 50 65 72 6c 20 48 61 63 6b 65 72);my$str="";my$l=@data;for(my$x=0;$x<$l; $x++){$str.=chr(hex$data[$x]);}print$str;print"\n";
In reply to My First JAPH - Be Gentle :-) by TStanley
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |