/usr/share/skktools/convert2skk/wx2skk.pl is in skktools 1.3.3+0.20150901-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #!/usr/bin/perl -Pw
# WX2+�̃��[�U����(�e�L�X�g)��
# SKK�̎����ɕϊ�����
# written by nmaeda (Aug/1994)
$backup="";
$line="";
while(<>) {
@array=split(/ |\t|:/);
$array[0]=~tr/�@-��/��-��/;
$array[1]=~s/"//g;
if($backup!~/^$array[0]$/) { # New entry
if($line!~/^$/) {
printf("%s\n", $line);
}
$line=sprintf("%s /%s/", $array[0], $array[1]);
} else { # continue
$line=$line.$array[1]."/";
}
$backup=$array[0];
}
printf("%s\n", $line);
|