MIME::QuotedPrint - quoted-printable ���絖������勉����潟�潟�若����������潟�若��
use MIME::QuotedPrint;
$encoded = encode_qp($decoded);
$decoded = decode_qp($encoded);�����勉�≪�吾�ャ�若�˨�� RFC 2045 - MIME (Multipurpose Internet Mail Extensions) ��у��臂í�������⓾����� quoted-printable �����潟�潟�若����ｃ�潟�違�����絖������勰����勉����潟�潟�若����������潟�若����� 茵���ŝ����∽�違�����箴���������≪�吾�ャ�若�˨�с����� quoted-printable �����潟�潟�若����ｃ�潟�違�壔�� ASCII ���絖���������с�勤；腓阪櫝�純�ʋ��絖����絲上�������������ゃ����т源���罕������������� �����若�帥��茵������������������潟�������⓾����障����� (��ゃ�勉�ŝ�合鎧��≪�＜�ŝ�˩査��˨����ｃ�☗��臂í��������)茵◐ず�櫝�純�с�ŝ�� ���絖���� "=" ��勐����� 16 ��我�違����ゃ�� 3 ���絖���˨����ｃ�☀；��������障�����
篁ヤ����勰�∽�違�����箴���������障��:
- encode_qp($str)
- encode_qp($str, $eol)
- encode_qp($str, $eol, $binmode)
-
�����勰�∽�違�壠����違�������☖�����������������絖���� ($str) ��勉����潟�潟�若����������������� 菴������障�����
2 ��ɾ�勉�勐����� ($eol) ��壔��茵���˩研��潟�˩戎��������障����� ��������壔�ŝ����激�с�潟�с����������í�˨����� "\n" ��с����� "\n" ����憗�����綺⓾�˨����勖��絖������̥舟������������������茵���� 76 ���絖���� 莇������ŝ����������˨�������������勤申�����勉����純�������壕�������˨��篏帥�������障����� 紊������т戎�����������勉�̹�í����������若�帥����������������������˨�壔�� "\015\012" ���羝＜����⓾�������������� ���絖���� "\r\n" ��壠�������勉����í����������í�若����у�����腟������˨�ŝ����障�������� �����⓾�с�壔�������障��������
3 ��ɾ�勉�勐����� ($binmode) ��̥�����羝＜�������������ゃ����ŝ�≪�若�������御�������障����� �����ゃ����ŝ�≪�若����с�� "\n" ��壚����勤；腓阪櫝�純�с�ŝ�����絖������������号���� �����潟�潟�若����������障����� ��������˨�������������潟�若����眼��茵���˩研��潟�������☖�����篏帥�ｃ�⓾����������̹�≪����������� 絎����������������絖�������緇������������������˨�ŝ����障����� 筝���㋜����˨�������ゃ����ŝ����若�帥��絲障����⓾�� base64 �����潟�潟�若����ｃ�潟�違��篏帥����鴻�� 絅純�障�������с��; MIME::Base64 ��������с����⓾��������������
$eol ��� "" (腥堺��絖����) ������絎���������勉�夌�劫�ャ�с����� �����勐�翫����������純�������壕�������虁��������������篋�絎�筝������ゃ����ŝ�≪�若����������鴻�˨�ŝ����勉�с�� �����勉����若�帥�� "\n" ��壔����勰�������˨����潟�潟�若����������障�����
- decode_qp($str);
-
�����勰�∽�違�壚�����������������絖������勐抗���������菴������障����� 腟������勤����壔����������� $str ��� "\r\n" ��х��腴壔��������茵���������ｃ�⓾����� "\n" ��х��腴壔�������障�����
�����������勰�∽�違�������ŝ����勐�����腥咲����˨�ゃ�潟����若�����������������絅純�障���� ��������ŝ����勉�с�������違��篁ヤ����勉����������若�吟����������堺�ャ�障��:
use MIME::QuotedPrint ();
$encoded = MIME::QuotedPrint::encode($decoded);
$decoded = MIME::QuotedPrint::decode($encoded);Perl v5.8 篁ラ����с�壩��絖���������≦宍 Unicode ���絖����篏帥����障����� �����勉�������ʋ��絖������夌�贋･�����潟�潟�若����с����障�����; quoted-printable �����潟�潟�若����ｃ�潟�違�壠��筝������ゃ�����絖����絲障����⓾�勉� 絎�臂í�������⓾�������������с����� 茹ｆ浦羈���壔��羆������⓾����������ゃ�������潟�潟�若����ｃ�潟�違����吾�吟�������� Encode ��≪�吾�ャ�若�˨�� 篏帥����������с����� 箴�������:
use MIME::QuotedPrint qw(encode_qp);
use Encode qw(encode);
$encoded = encode_qp(encode("UTF-8", "\x{FFFF}\n"));
print $encoded;Copyright 1995-1997,2002-2004 Gisle Aas.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.