Download

#!/usr/bin/perl -w
# $Revision: 1.4 $
# Luis Mondesi < lemsx1@gmail.com >
#
# DESCRIPTION: prints character that represents hex number
# USAGE: $0 [--url-encode|--url-decode] string
# LICENSE: GPL

use strict;
$|++;

my $revision='1.4'; # version

# standard Perl modules
use Getopt::Long;
Getopt::Long::Configure('bundling');

# Args:
my $PVERSION=0;
my $HELP=0;
my $DEBUG=0;
my $URL_ENCODE=0;
my $URL_DECODE=0;
my $STR=undef;

# get options
GetOptions(
    # flags
    'v|version'         =>  \$PVERSION,
    'h|help'            =>  \$HELP,
    'D|debug'           =>  \$DEBUG,
    'e|url-encode'      =>  \$URL_ENCODE,
    'd|url-decode'      =>  \$URL_DECODE
    # strings
    #'o|option=s'       =>  \$NEW_OPTION,
    # numbers
    #'a|another-option=i'      =>  \$NEW_ANOTHER_OPTION,
) and $STR = shift;

if ( $HELP or ! defined ($STR) ) { 
    use Pod::Text;
    my $parser = Pod::Text->new (sentence => 0, width => 78);
    $parser->parse_from_file($0,\*STDOUT);
    exit 0;
}

if ( $PVERSION ) { print STDOUT ($revision,"
"); exit 0; }

unless ( $URL_DECODE || $URL_ENCODE )
{
    # single hex char
    print pack("c",hex($STR)),"
";
    exit 0;
}

print urldecode($STR),"
" if ( $URL_DECODE );
print urlencode($STR),"
" if ( $URL_ENCODE );

# FUNCTIONS #

sub urlencode
{
    my $str = shift;
    return "" if ( !defined($str) );
    $str =~ s/(\W)/"%".unpack("H2", $1)/ge;
    return $str;
}

sub urldecode
{
    my $str = shift;
    return "" if ( !defined($str) );
    $str =~ tr/+/ /;
    $str =~ s/%([a-f0-9][a-f0-9])/pack("c",hex($1))/egi;
    return $str;
}

__END__

=head1 NAME

print_hex.pl - print_hex script for Perl by Luis Mondesi <lemsx1@gmail.com>

=head1 SYNOPSIS

B<print_hex.pl>  [-v,--version]
                [-D,--debug] 
                [-h,--help]
                [-e,--url-encode]
                [-d,--url-decode]
                string

=head1 DESCRIPTION 

    This script prints the char value of a given hex code (ASCII). Usefull as a urldecode or for simply printing a string out of hex numbers.

=head1 OPTIONS

=over 8

=item -v,--version

prints version and exits

=item -D,--debug

enables debug mode

=item -h,--help

prints this help and exits

=item -e,--url-encode

encodes string strange characters to HTML friendly %00-%FF

=item -d,--url-decode

decodes string of HTML friendly %00-%FF characters to regular strings

=back

=cut

| Chess | Tools | Data | Blog | Poetry | Why? | Wiki | Admin | Logout |

Content on this site is licensed under a Creative Commons Attribution 3.0 License