Skip to content

Instantly share code, notes, and snippets.

@yappo

yappo/hoge.pl

Forked from http-engine/hoge.pl
Created December 9, 2009 02:43
Show Gist options
  • Save yappo/252217 to your computer and use it in GitHub Desktop.
Save yappo/252217 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hoge.pl
my $s1 = "\x3d"; # =
print $s1 . "\n";
my $text = 'hogehogeho\x3dhogehoge';
$text =~ s/\\x([0-9a-z]{2})/pack 'H2', $1 /ge;
print "$text\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment