]>
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 | } |