hexception
#!/usr/bin/env perl | |
# Created: 2017-08-13 | |
# Author: Royce Williams / tychotithonus | |
# License: public domain | |
while (<>) { | |
chomp; | |
# Convert input to $HEX[] notation | |
my $hex = '$HEX[' . unpack("H*", $_) . ']' . "\n"; | |
# Convert HEX notation to hex ... again (hexception!) | |
print unpack("H*", $hex) . "\n"; | |
} | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment