#!/usr/bin/perl
use strict;
use warnings;
my (@kmap, @rmap, %map);
{
no warnings; # Не хуя вопить
@kmap = qw/A B V G D E + J Z I Y K L M N O P R S T U F H C X ! @ # $ % ^ & * a b v g d e = j z i y k l m n o p r s t u f h c x 1 2 3 4 5 6 7 8/;
@rmap = qw/А Б В Г Д Е Ё Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я/;
}
@map{@kmap} = @rmap;
my $c;
for (@kmap){
print "$_: $map{$_}\t";
print "\n" unless ++$c % 9;
}
####
A: А B: Б V: В G: Г D: Д E: Е +: Ё J: Ж Z: З
I: И Y: Й K: К L: Л M: М N: Н O: О P: П R: Р
S: С T: Т U: У F: Ф H: Х C: Ц X: Ч !: Ш @: Щ
#: Ъ $: Ы %: Ь ^: Э &: Ю *: Я a: а b: б v: в
g: г d: д e: е =: ё j: ж z: з i: и y: й k: к
l: л m: м n: н o: о p: п r: р s: с t: т u: у
f: ф h: х c: ц x: ч 1: ш 2: щ 3: ъ 4: ы 5: ь
6: э 7: ю 8: я
####
#!/usr/bin/perl
use strict;
use warnings;
my (@kmap, @rmap, %map);
{
no warnings; # Не хуя вопить
@kmap = split //, 'ABVGDE+JZIYKLMNOPRSTUFHCX!@#$%^&*abvgde=jziyklmnoprstufhcx12345678';
@rmap = split //, 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
}
@map{@kmap} = @rmap;
my $c;
for (@kmap){
print "$_: $map{$_}\t";
print "\n" unless ++$c % 9;
}
####
A: �B: � V: �G: � D: �E: � +: �J: � Z: �
I: � Y: �K: � L: �M: � N: �O: � P: �R: �
S: �T: � U: �F: � H: �C: � X: �!: � @: �
#: � $: �%: � ^: �&: � *: �a: � b: �v: �
g: �d: � e: �=: � j: �z: � i: �y: � k: �
l: � m: �n: � o: �p: � r: �s: � t: �u: �
f: �h: � c: �x: � 1: �2: � 3: �4: � 5: �
6: � 7: �8: �