Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 136 lines (107 sloc) 1.729 kb
34abc83 @trapd00r strip extension
authored
1 #!/usr/bin/perl
2 use vars qw($VERSION);
3 my $APP = '';
4 $VERSION = '0.001';
5
6 use strict;
7 use encoding 'utf8';
8
9 my $map = {
10
11 a => "",
12 b => "",
13 c => "",
14 d => "",
15 e => "",
16 f => "",
17 g => "",
18 h => "",
19 i => "",
20 j => "",
21 k => "",
22 l => "",
23 m => "m",
24 n => "",
25 o => "",
26 p => "",
27 q => "",
28 r => "",
29 s => "",
30 t => "",
31 u => "",
32 v => "",
33 w => "",
34 x => "",
35 y => "",
36 z => "",
37
38 A => "",
39 B => "",
40 C => "",
41 D => "",
42 E => "",
43 F => "",
44 G => "",
45 H => "",
46 I => "",
47 J => "",
48 K => "",
49 L => "",
50 M => "",
51 N => "",
52 O => "",
53 P => "",
54 Q => "",
55 R => "",
56 S => "",
57 T => "",
58 U => "",
59 V => "",
60 W => "",
61 X => "",
62 Y => "",
63 Z => "",
64
65 0 => "",
66 1 => "",
67 2 => "",
68 3 => "",
69 4 => "",
70 5 => "",
71 6 => "",
72 7 => "",
73 8 => "",
74 9 => "",
75
76 '(' => '',
77 ')' => '',
78 '*' => '',
79 '|' => '',
80 '^' => '',
81 '!' => '',
82 '/' => '',
83 '-' => '',
84 '[' => '',
85 ']' => '',
86
87 ' ' => "_",
88
89 };
90
91 print uncode(<>);
92
93 sub uncode {
94 for(@_) {
95 s/(.)/$map->{$1}/g;
96 }
97 return @_;
98 }
99
100
101
102 =pod
103
104 =head1 NAME
105
106 =head1 SYNOPSIS
107
108 =head1 DESCRIPTION
109
110 =head1 OPTIONS
111
112 =head1 AUTHOR
113
114 Magnus Woldrich
115 CPAN ID: WOLDRICH
116 magnus@trapd00r.se
117 http://japh.se
118
119 =head1 REPORTING BUGS
120
121 Report bugs on rt.cpan.org or to magnus@trapd00r.se
122
123 =head1 COPYRIGHT
124
125 Copyright (C) 2011 Magnus Woldrich. All right reserved.
126 This program is free software; you can redistribute it and/or modify
127 it under the same terms as Perl itself.
128
129 =cut
130
131 1;
132
133
134 # vim: set ts=2 et sw=2:
135
Something went wrong with that request. Please try again.