Line # Revision Author
1 38 dpavlin #!/usr/bin/perl -w
2
3 while(<STDIN>) {
4 chomp;
5 my $from = $_;
6 my $to = $from;
7 $to =~ s/%([0-9a-f][0-9a-f])/chr(hex($1))/gie;
8 if ($from ne $to) {
9 system "mv \"$from\" \"$to\"" || die "can't rename: $from -> $to: $!";
10 }
11 }