Search:
Login
Preferences
Help/Guide
About Trac
Wiki
Timeline
Roadmap
Browse Source
View Tickets
Search
Context Navigation
Back to Ticket #81
Ticket #81
: decode
File decode,
248 bytes
(added by phurst,
15 years
ago)
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
}
12
13
14
#tabbott
15
Download in other formats:
Original Format