]>
Commit | Line | Data |
---|---|---|
4ee55e01 SR |
1 | #!/usr/bin/env perl |
2 | use MIME::Base64; | |
3 | ||
4 | for (<>) { | |
5 | unless (/^'([{}])(\d+)\1(.+?)',$/) { | |
6 | print; | |
7 | next; | |
8 | } | |
9 | ||
10 | my ($dir, $amt, $b64) = ($1, $2, $3); | |
11 | ||
12 | my $decoded = MIME::Base64::decode($b64) or die "Could not base64-decode line `$_`"; | |
13 | ||
14 | my $decoded_escaped = join "", map { "\\x$_" } unpack("(H2)*", $decoded); | |
15 | ||
16 | print "'${dir}${amt}${dir}${decoded_escaped}',\n"; | |
17 | } |