回答編集履歴
1
内容を改善
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
ソースコードをutf-8で書いているなら最初の方に`use utf8;`を追加すると動くかもしれません。
|
|
1
|
+
7???ソースコードをutf-8で書いているなら最初の方に`use utf8;`を追加すると動くかもしれません。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
@@ -9,3 +9,81 @@
|
|
|
9
9
|
Encodeモジュールを使った方が良さそうに思えますが、
|
|
10
10
|
|
|
11
11
|
このモジュールでないとできないことがあるのでしょうか?
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
---
|
|
16
|
+
|
|
17
|
+
(追記)
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
なるほど、「utf-8にはcp932の範囲を超えた漢字などがありまして、頃合いのいい何かに変換できていればいいのですが…」というのがキモですね。
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
残念ながら ShiftJIS::CP932::MapUTF はその変換を自動ではやってくれないので、どの文字をどの文字に割り当てるかを自分で指定する必要があります。
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
```perl
|
|
30
|
+
|
|
31
|
+
use strict;
|
|
32
|
+
|
|
33
|
+
use warnings;
|
|
34
|
+
|
|
35
|
+
use ShiftJIS::CP932::MapUTF;
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
# Unicode符号位置, SJISコード,
|
|
40
|
+
|
|
41
|
+
my %conv = (
|
|
42
|
+
|
|
43
|
+
0x555e, 0x88a0,
|
|
44
|
+
|
|
45
|
+
);
|
|
46
|
+
|
|
47
|
+
|
|
48
|
+
|
|
49
|
+
sub toHexNCR {
|
|
50
|
+
|
|
51
|
+
my ($char, $byte) = @_;
|
|
52
|
+
|
|
53
|
+
if (!defined $char){
|
|
54
|
+
|
|
55
|
+
return sprintf "illegal byte 0x%02x was found", $byte;
|
|
56
|
+
|
|
57
|
+
}
|
|
58
|
+
|
|
59
|
+
my $c = $conv{$char};
|
|
60
|
+
|
|
61
|
+
if (defined $c){
|
|
62
|
+
|
|
63
|
+
return pack('n', $c);
|
|
64
|
+
|
|
65
|
+
} else {
|
|
66
|
+
|
|
67
|
+
return sprintf("&#x%x;", $char);
|
|
68
|
+
|
|
69
|
+
}
|
|
70
|
+
|
|
71
|
+
}
|
|
72
|
+
|
|
73
|
+
|
|
74
|
+
|
|
75
|
+
print(utf8_to_cp932(\&toHexNCR, '啞あ','g'));
|
|
76
|
+
|
|
77
|
+
```
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
(`use utf8;` は不要でした…)
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
これの7行目のように、元のUnicode符号位置とSJISコードの組を自分で指定することで「頃合いのいい何か」に変換することになります。
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
このコードでは「啞」だけを変換していますが、この行をコピペして下に増やして行けば複数の文字でも対応できるはずです。
|