[config-package-dev.git] / decode

#!/usr/bin/perl

use strict;
use warnings;

$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
print $ARGV[0];
sub unparse {
    $_ = $_[0];
    return "/" unless $_;
    return "_" if $_ eq "-";
    return uc($_) if /^[a-z]$/;
    s/^x//;
    return chr hex $_;
}
Commit	Line	Data
6df6dbb5	1	#!/usr/bin/perl
7a1d9a7c AK	2
	3	use strict;
	4	use warnings;
	5
6df6dbb5 TA	6	$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
	7	print $ARGV[0];
	8	sub unparse {
	9	$_ = $_[0];
	10	return "/" unless $_;
	11	return "_" if $_ eq "-";
	12	return uc($_) if /^[a-z]$/;
	13	s/^x//;
	14	return chr hex $_;
	15	}