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
|
=head1 NAME
MIME::EcoEncode::Param - RFC 2231 Encode/Decode
=head1 SYNOPSIS
use MIME::EcoEncode::Param;
$encoded = mime_eco_param($str, 'UTF-8'); # encode utf8 string
$encoded = mime_eco_param($str, "UTF-8'XX'"); # XX is language
$encoded = mime_eco_param($str, 'UTF-8*XX?B'); # "B" encoding
$encoded = mime_eco_param($str, 'UTF-8*XX?Q'); # "Q" encoding
$encoded = mime_eco_param($str, 'GB2312'); # euc-cn string
$encoded = mime_eco_param($str, 'EUC-KR'); # euc-kr string
$encoded = mime_eco_param($str, 'Big5'); # big5 string
$encoded = mime_eco_param($str, 'Shift_JIS'); # cp932 string
$encoded = mime_eco_param($str, 'ISO-2022-JP'); # 7bit-jis string
$encoded = mime_eco_param($str, $sbcs); # $sbcs :
# single-byte charset
# (e.g. 'ISO-8859-1')
$decoded = mime_deco_param($encoded); # decode encoded string
($decoded, $param, $charset, $lang, $value) # return array
= mime_deco_param($encoded);
=head1 DESCRIPTION
This module implements RFC 2231 Mime Parameter Value Encoding.
=head2 Options
$encoded = mime_eco_param($str, $charset, $lf, $bpl);
# $charset : 'UTF-8' / "UTF-8'XX'" /
# 'UTF-8*XX?B' / 'UTF-8*XX?Q' /
# 'GB2312' / 'EUC-KR' / 'Big5' /
# 'Shift_JIS' / 'ISO-2022-JP' / ...
# (default: 'UTF-8')
# Note: The others are all encoded as
# single-byte string.
# $lf : line feed (default: "\n")
# $bpl : bytes per line (default: 76)
$decoded = mime_deco_param($encoded, $bq_on);
# $bq_on : 1 : ON decode "B/Q" encoding
# 0 : OFF
# (default: 1)
=head2 Examples
Ex1 - RFC 2231 encoding
use MIME::EcoEncode::Param;
my $str = " filename=\xe5\xaf\x8c\xe5\xa3\xab\xe5\xb1\xb1_2013.jpeg";
print mime_eco_param($str, "UTF-8'ja'", "\n", 33), "\n";
Ex1's output:
filename*0*=UTF-8'ja'%E5%AF%8C;
filename*1*=%E5%A3%AB%E5%B1%B1_;
filename*2=2013.jpeg
Ex2 - "Q" encoding (for Windows)
use MIME::EcoEncode::Param;
my $str = " name=\xe5\xaf\x8c\xe5\xa3\xab\xe5\xb1\xb1_2013.jpeg";
print mime_eco_param($str, 'UTF-8?Q', "\n", 33), "\n";
Ex2's output:
name="=?UTF-8?Q?=E5=AF=8C=E5?=
=?UTF-8?Q?=A3=AB=E5=B1=B1=5F20?=
=?UTF-8?Q?13.jpeg?="
Ex3 - "B" encoding (for Windows)
use MIME::EcoEncode::Param;
my $str = " name=\xe5\xaf\x8c\xe5\xa3\xab\xe5\xb1\xb1_2013.jpeg";
print mime_eco_param($str, 'UTF-8?B', "\n", 33), "\n";
Ex3's output:
name="=?UTF-8?B?5a+M5aOr5bGx?=
=?UTF-8?B?XzIwMTMuanBlZw==?="
=head1 SEE ALSO
L<MIME::EcoEncode>
=head1 AUTHOR
MURATA Yasuhisa E<lt>murata@nips.ac.jpE<gt>
=head1 COPYRIGHT
Copyright (C) 2013 MURATA Yasuhisa
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
