/usr/share/perl5/FreePWING/CharConv.pm is in freepwing 1.5-2.
This file is owned by root:root, with mode 0o644.
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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | # -*- Perl -*-
# Copyright (c) 1999, 2000 Motoyuki Kasahara
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
#
# ʸ»ú¤ÎÊÑ´¹¥Æ¡¼¥Ö¥ëÍѤÎÇÛÎó¤ò export ¤¹¤ë¤¿¤á¤Î¥Ñ¥Ã¥±¡¼¥¸¡£
#
package FreePWING::CharConv;
require 5.005;
require Exporter;
use strict;
use integer;
use vars qw(@ISA
@EXPORT
@EXPORT_OK
$ascii_to_jisx0208_table
$jisx0201_to_jisx0208_table);
@ISA = qw(Exporter);
@EXPORT = qw($ascii_to_jisx0208_table
$jisx0201_to_jisx0208_table);
#
# ASCII (2/0 ¡Á 7/14) ¤ò JIS X 0208 ¤ËÊÑ´¹
#
$ascii_to_jisx0208_table
= [# ¡ª ¡É ¡ô ¡ð ¡ó ¡õ ¡Ç
'!!', '!*', '!I', '!t', '!p', '!s', '!u', '!G',
#¡Ê ¡Ë ¡ö ¡Ü ¡¤ ¡Ý ¡¥ ¡¿
'!J', '!K', '!v', "!\\",'!$', '!]', '!%', '!?',
#£° £± £² £³ £´ £µ £¶ £·
'#0', '#1', '#2', '#3', '#4', '#5', '#6', '#7',
#£¸ £¹ ¡§ ¡¨ ¡ã ¡á ¡ä ¡©
'#8', '#9', "!'", '!(', '!c', '!a', '!d', '!)',
#¡÷ £Á £Â £Ã £Ä £Å £Æ £Ç
'!w', '#A', '#B', '#C', '#D', '#E', '#F', '#G',
#£È £É £Ê £Ë £Ì £Í £Î £Ï
'#H', '#I', '#J', '#K', '#L', '#M', '#N', '#O',
#£Ð £Ñ £Ò £Ó £Ô £Õ £Ö £×
'#P', '#Q', '#R', '#S', '#T', '#U', '#V', '#W',
#£Ø £Ù £Ú ¡Î ¡À ¡Ï ¡° ¡²
'#X', '#Y', '#Z', '!N', '!@', '!O', '!0', '!2',
#¡Æ £á £â £ã £ä £å £æ £ç
'!F', '#a', '#b', '#c', '#d', '#e', '#f', '#g',
#£è £é £ê £ë £ì £í £î £ï
'#h', '#i', '#j', '#k', '#l', '#m', '#n', '#o',
#£ð £ñ £ò £ó £ô £õ £ö £÷
'#p', '#q', '#r', '#s', '#t', '#u', '#v', '#w',
#£ø £ù £ú ¡Ð ¡Ã ¡Ñ ¡±
'#x', '#y', '#z', '!P', '!C', '!Q', '!1',
];
#
# JIS X 0201 ¥«¥Ê (2/15 ¡Á 5/15) ¤ò JIS X 0208 ¤ËÊÑ´¹
#
$jisx0201_to_jisx0208_table
= [# ¡£ ¡Ö ¡× ¡¢ ¡¦ ¥ò ¥¡
'', '!#', '!V', '!W', '!"', '!&', '%r', '%!',
#¥£ ¥¥ ¥§ ¥© ¥ã ¥å ¥ç ¥Ã
'%#', '%%', "\%'",'%)', '%c', '%e', '%g', '%C',
#¡¼ ¥¢ ¥¤ ¥¦ ¥¨ ¥ª ¥« ¥
'!<', '%"', '%$', '%&', '%(', '%*', '%+', '%-',
#¥¯ ¥± ¥³ ¥µ ¥· ¥¹ ¥» ¥½
'%/', '%1', '%3', '%5', '%7', '%9', '%;', '%=',
#¥¿ ¥Á ¥Ä ¥Æ ¥È ¥Ê ¥Ë ¥Ì
'%?', '%A', '%D', '%F', '%H', '%J', '%K', '%L',
#¥Í ¥Î ¥Ï ¥Ò ¥Õ ¥Ø ¥Û ¥Þ
'%M', '%N', '%O', '%R', '%U', '%X', '%[', '%^',
#¥ß ¥à ¥á ¥â ¥ä ¥æ ¥è ¥é
'%_', '%`', '%a', '%b', '%d', '%f', '%h', '%i',
#¥ê ¥ë ¥ì ¥í ¥ï ¥ó ¡« ¡¬
'%j', '%k', '%l', '%m', '%o', '%s', '!+', '!,',
];
1;
|