- kel -#/4a/75/73/74/20/41/6e/6f/74/68/65/72 open(FH,$0)||die;while(<FH>){chomp;if (m/^#(.*?)$/){$_=$1;@_=map {split'/'} $_;foreach(@_){print pack "H*", $_;}} }print "\n";########## kel ########## #/20/50/65/72/6c/20/48/61/63/6b/65/72
In reply to Japhaholic by dsb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |