File: gen_decode_map.pl

package info (click to toggle)
kmime 25.08.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,508 kB
  • sloc: cpp: 10,800; sh: 43; xml: 20; makefile: 16; perl: 12
file content (17 lines) | stat: -rwxr-xr-x 449 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w

use strict;

my @encodingMap = ( 'A' .. 'Z', 'a' .. 'z', '0' .. '9', '+', '/' );
my @decodingMap = (64) x 128;

my $len = scalar @encodingMap;
for ( my $i = 0 ; $i < $len ; $i++ ) {
    my $value = ord $encodingMap[$i];
    $decodingMap[$value] = $i;
}

for ( my $i = 0 ; $i < 128 ; $i += 16 ) {
    print "  ", join( ", ", @decodingMap[$i..($i+7)] ), ",  ",
                join( ", ", @decodingMap[($i+8)..($i+15)] ), ",\n";
}