Perl | #!/usr/bin/perl use strict; - Anonymous - f1be3db58 - Pastebin.com

Leave subdomain

Subdomain Archive

Subdomain Posts

Perl | 428 days ago

Bash | 717 days ago

Bash | 719 days ago

Bash | 719 days ago

Bash | 719 days ago

Recent Posts

None | 12 sec ago

PHP | 17 sec ago

TWITTER STATUS UPDATE

None | 1 min ago

Python | 1 min ago

None | 1 min ago

None | 1 min ago

None | 1 min ago

SQL | 1 min ago

None | 1 min ago

Delphi | 1 min ago

Sitereport

Find cool info about any domain on the internet?
visit sitereport

Free Subdomains

Want a pastebin.com sub-domain for your community?
learn more...

What is pastebin?

Pastebin is a website that hosts all your text & code on dedicated servers for easy sharing.
learn more...

Learn a little bit about the new Pastebin.com on our help page. hide message

By Anonymous on the 18th of Jan 2009 08:34:54 AM Download | Raw | Embed | Report

#!/usr/bin/perl
 
use strict;
use warnings; 
          
my $hex = shift(@ARGV);
        
$hex =~ s/ //g;
$hex =~ s/://g;
$hex =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg;
 
print $hex, "\n";

Submit a correction or amendment below. [ previous version ] | [ difference ] | Make A New Post

To highlight particular lines, prefix each line with @h@

Syntax highlighting:

Post expiration:

Post exposure:

Name / Title:

Email: