source:
trunk/debathena/debathena/config-package-dev/decode
@
24647
Revision 24647, 228 bytes checked in by tabbott, 15 years ago (diff) |
---|
Line | |
---|---|
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 | } |
Note: See TracBrowser
for help on using the repository browser.