Java\u307f\u305f\u3044\u306b\u4f7f\u3048\u308b\u30e1\u30fc\u30eb\u9001\u4fe1pm\u3092\u7d44\u3093\u3067\u307f\u307e\u3057\u305f
\n\u4f7f\u3046\u5834\u5408\u306f\u3053\u3093\u306a\u98a8\u306b
\nuse Function::mail;
\nFunction::mail::setSubject(“\u984c\u540d”);
\nFunction::mail::setBody(“\u672c\u6587”);
\nFunction::mail::setFromAddress(“aaa@aaa.co.jp”);
\nFunction::mail::setToAddress(“bbb@bbb.co.jp”);
\nFunction::mail::send();
\npm \u306f\u7d9a\u304d<\/p>\n
\nmail.pm
\npackage Function::mail;
\nuse strict;
\nuse CGI;
\nuse Jcode;
\nuse MIME::Entity;
\nuse MIME::Base64;
\nuse Unicode::Japanese;
\nmy $mailer = ‘\/usr\/lib\/sendmail’;
\nmy $from_address;
\nmy $err = 0;
\nmy $mail_template;
\nmy $mail_subject;
\nmy $email_body;
\n# \u30e1\u30fc\u30eb\u306eSubject\u3092\u30bb\u30c3\u30c8\u3059\u308b
\nsub setSubject{
\n\u3000\u3000$mail_subject = shift;
\n}
\n# \u30e1\u30fc\u30eb\u672c\u6587\u306e\u30bb\u30c3\u30c8
\nsub setBody{
\n\u3000\u3000$email_body = shift;
\n}
\n# \u30e1\u30fc\u30eb\u3042\u3066\u5148
\nsub setToAddress{
\n\u3000\u3000$to_address = shift;
\n}
\n# \u30e1\u30fc\u30eb\u9001\u4fe1\u5143
\nsub setFromAddress{
\n\u3000\u3000$from_address = shift;
\n}
\n# \u9001\u4fe1\u90e8\u5206
\nsub send{
\n\u3000\u3000my $mime_subject = EncodeSubject( $mail_subject );
\n\u3000\u3000my $mime_body \u3000\u3000\u3000\u3000= Jcode::convert($email_body,’jis’);
\n\u3000\u3000\u3000\u3000open(MAIL, “| $mailer -t $to_address -f $from_address”) or $err = 1;
\n\u3000\u3000\u3000\u3000if ($err == 0) {
\n\u3000\u3000\u3000\u3000\u3000\u3000#print MAIL $oMime->stringify;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL “From: $from_address\\n”;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL “To: $to_address\\n”;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL “Subject: $mime_subject\\n”;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL “Content-Transfer-Encoding: 7bit\\n”;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL “Content-Type: text\/plain; charset=\\”ISO-2022-JP\\”\\n\\n”;
\n\u3000\u3000\u3000\u3000\u3000\u3000print MAIL $mime_body;
\n\u3000\u3000\u3000\u3000\u3000\u3000close(MAIL);
\n\u3000\u3000\u3000\u3000}
\n\u3000\u3000return $err;
\n}
\n# subject\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u5909\u63db
\nsub EncodeSubject {
\n\u3000\u3000my($String) = @_;
\n\u3000\u3000#&jcode::convert(\\$String, “euc”);
\n\u3000\u3000Jcode::convert(\\$String,’euc’);
\n\u3000\u3000my($Base64Table) = ‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’.
\n\u3000\u3000 ‘abcdefghijklmnopqrstuvwxyz’.
\n\u3000\u3000 ‘0123456789+\/’;
\n\u3000\u3000my($chunk, $ByteChunk, $PackedByteChunk, $DecimalNum, $EncodedString);
\n\u3000\u3000my($SplitedWord, @SplitedWordList, $i, $Byte, $Buff);
\n\u3000\u3000my($KI) = 0;
\n\u3000\u3000my($KO) = 0;
\n\u3000\u3000my($CharNum) = 0;
\n\u3000\u3000my($CharType) = 0;
\n\u3000\u3000my($LineLength) = 0;
\n\u3000\u3000my($CharEndFlag) = 1;
\n\u3000\u3000my $BitStream;
\n\u3000\u3000if($String =~ \/[^a-zA-Z0-9\\!\\”\\#\\$\\%\\&\\’\\(\\)\\*\\+\\,\\-\\.\\\/\\:\\;\\<\\=\\>\\?\\@\\[\\\/\\^\\_\\~ ]\/) {
\n\u3000\u3000\u3000\u3000$i = 0;
\n\u3000\u3000\u3000\u3000@SplitedWordList = ();
\n\u3000\u3000\u3000\u3000while($i < length($String)) {\n\u3000\u3000\u3000\u3000\u3000\u3000$Byte = substr($String, $i, 1);\n\u3000\u3000\u3000\u3000\u3000\u3000if($Byte =~ \/[\\x8E\\xA1-\\xFE]\/) {\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000unless($CharType eq 'K') {$KI ++;}\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharType = 'K';\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000if($CharEndFlag) {\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharEndFlag = 0;\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000} else {\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharEndFlag = 1;\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000}\n\u3000\u3000\u3000\u3000\u3000\u3000} else {\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000if($CharType eq 'K') {$KO ++;}\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharType = 'A';\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharEndFlag = 1;\n\u3000\u3000\u3000\u3000\u3000\u3000}\n\u3000\u3000\u3000\u3000\u3000\u3000$Buff .= $Byte;\n\u3000\u3000\u3000\u3000\u3000\u3000$CharNum += 1;\n\u3000\u3000\u3000\u3000\u3000\u3000$LineLength = 27 + ($CharNum*4\/3) + (($KI+$KO)*4) + 2;\n\u3000\u3000\u3000\u3000\u3000\u3000if($CharType eq 'K') {$LineLength += 4;}\n\u3000\u3000\u3000\u3000\u3000\u3000if($CharEndFlag && $LineLength>=70) {
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000#&jcode::convert(\\$Buff, “jis”);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000Jcode::convert(\\$Buff,’jis’);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000push(@SplitedWordList, $Buff);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$Buff = ”;
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharNum = 0;
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$CharType = 0;
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$KI = 0;
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$KO = 0;
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000$i ++;
\n\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000#&jcode::convert(\\$Buff, “jis”);
\n\u3000\u3000\u3000\u3000Jcode::convert(\\$Buff,’jis’);
\n\u3000\u3000\u3000\u3000push(@SplitedWordList, $Buff);
\n\u3000\u3000\u3000\u3000for $SplitedWord (@SplitedWordList) {
\n\u3000\u3000\u3000\u3000\u3000\u3000$EncodedString .= ‘=?ISO-2022-JP?B?’;
\n\u3000\u3000\u3000\u3000\u3000\u3000$BitStream = unpack(“B*”, $SplitedWord);
\n\u3000\u3000\u3000\u3000\u3000\u3000$i = 0;
\n\u3000\u3000\u3000\u3000\u3000\u3000while($chunk = substr($BitStream, $i*6, 6)) {
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000unless(length($chunk) == 6) {
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$chunk = pack(“B6”, $chunk);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$chunk = unpack(“B6”, $chunk);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$ByteChunk = sprintf(“%08d”, $chunk);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$PackedByteChunk = pack(“B8”, $ByteChunk);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$DecimalNum = unpack(“C”, $PackedByteChunk);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$EncodedString .= substr($Base64Table, $DecimalNum, 1);
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$i++;
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000if(length($SplitedWord) % 3 == 1) {
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$EncodedString .= ‘==’;
\n\u3000\u3000\u3000\u3000\u3000\u3000} elsif(length($SplitedWord) % 3 == 2) {
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000$EncodedString .= ‘=’;
\n\u3000\u3000\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000\u3000\u3000$EncodedString .= ‘?=’.”\\n “;
\n\u3000\u3000\u3000\u3000}
\n\u3000\u3000\u3000\u3000$EncodedString =~ s\/\\n $\/\/;
\n\u3000\u3000} else {
\n\u3000\u3000\u3000\u3000$EncodedString = $String;
\n\u3000\u3000}
\n\u3000\u3000return $EncodedString;
\n}
\n1;<\/p>\n","protected":false},"excerpt":{"rendered":"
Java\u307f\u305f\u3044\u306b\u4f7f\u3048\u308b\u30e1\u30fc\u30eb\u9001\u4fe1pm\u3092\u7d44<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-70","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/70","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/comments?post=70"}],"version-history":[{"count":0,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/70\/revisions"}],"wp:attachment":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/media?parent=70"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/categories?post=70"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/tags?post=70"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}