My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Jan 18th, 2009 | Syntax: Perl | Size: 0.19 KB | Hits: 26 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.          
  6. my $hex = shift(@ARGV);
  7.        
  8. $hex =~ s/ //g;
  9. $hex =~ s/://g;
  10. $hex =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg;
  11.  
  12. print $hex, "\n";
create new paste | create new version of this paste RAW Paste Data