[config-package-dev.git] / decode

#!/usr/bin/perl
$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 TA	1	#!/usr/bin/perl
	2	$ARGV[0] =~ s/\+([^+]*)\+/unparse($1)/eg;
	3	print $ARGV[0];
	4	sub unparse {
	5	$_ = $_[0];
	6	return "/" unless $_;
	7	return "_" if $_ eq "-";
	8	return uc($_) if /^[a-z]$/;
	9	s/^x//;
	10	return chr hex $_;
	11	}