andersk / config-package-dev.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!/usr/bin/perl | |
| 2 | ||
| 3 | use strict; | |
| 4 | use warnings; | |
| 5 | ||
| 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 | } |