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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
<!--
$FML: encode.sgml,v 1.2 2003/08/03 01:47:17 fukachan Exp $
$jaFML: encode.sgml,v 1.2 2003/04/15 14:51:42 fukachan Exp $
-->
<chapter id="module.mail.message.encode">
<title>
Mail::Message::Encode Class
</title>
<para>
[References] fml-help ML's Count: 02012, 02013, 02016.
</para>
<screen>
[Usage]
use Mail::Message::Encode;
my $encode = new Mail::Message::Encode;
my $str_euc = $encode->convert( $s, 'euc-jp' );
my $str_euc = $encode->convert( $s, 'euc-jp', 'iso-2022-jp' );
my $encode = new Mail::Message::Encode;
my $status = $encode->convert_str_ref( \$s, 'euc-jp' );
my $status = $encode->convert_str_ref( \$s, 'euc-jp', 'jis' );
my $fp = sub { ... };
$encode->run_in_chcode( $fp, $oout, $in );
* If you want to use 4.0 compatible functions,
ues Mail::Message::Encode qw(STR2EUC);
my $euc_s = STR2EUC( $s );
</screen>
<sect1>
<title>
Mail::Message::Encode Specification
</title>
<para>
The main code is within _convert_str_ref() method.
<screen>
sub convert # if the argument is STR.
{
my ($self, $str, $out_code, $in_code) = @_;
_convert_str_ref(\$str, $out, $in);
return $str;
}
sub convert_str_ref # if the argument is STR_REF.
{
my ($self, $str, $out, $in) = @_;
_convert_str_ref($str, $out, $in);
}
sub _convert_str_ref # if the argument is STR_REF.
{
my ($str, $out, $in) = @_;
# 1. speculate charset
if $in unspecified -> speculat -> fail -> return 0
# 2. try conversion
if ($in resolved or or $in specified in @_) {
converted to $out charset
(use jcode, Jcode, use Encode if perl version > 5.8).
conversion
return 1 ; # success
}
else { # principle of least surprise ?
nothing todo ;
return $str;
}
return 0 ; # failed
}
</screen>
<screen>
sub base64 {}
sub quoted_printable {}
</screen>
is implemented for convenience.
<screen>
$x = $encode->base64($s);
</screen>
For backward compatibility, STR2XXX() functoins are prepared, too.
<screen>
STR2EUC( $str, [$icode] )
STR2JIS( $str, [$icode] )
STR2SJIS( $str, [$icode] )
</screen>
These wraps convert_str_ref().
</para>
</sect1>
<sect1>
<title>
run_in_chcode()
</title>
<para>
In language dependent processes, convert the charset to machine
friendly one, process something and back it to the original chaset
each time. This step is widely used. So it is convenient to prepare a
function to pack these steps into one function.
<screen>
run_in_chcode example:
sub run_in_chcode
{
my ($self, $proc, $s, $out_code, $in_code) = @_;
my $conv_status = convert_str_ref($s, $EUC_JP, $in_code);
my $proc_status = &$proc($s, @_);
convert_str_ref($s, $out_code, $EUC_JP) if $conv_status && $out_code;
return wantarray ? ($conv_status, $proc_status): $conv_status;
}
</screen>
</para>
</sect1>
</chapter>
|
