ã¸ã¼ã¸ã¼CTO日記 - perl-mongers.orgã®ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã®è¨˜äº‹ã«ã¡ã¨ã¤ã£ã“ã¿ã¯ã¦ãƒ–ã®ã»ã†ã§ã¡ã‚‡ã‚ã£ã¨æ›¸ã„ãŸã‚“ã ã‘ã©ã€ Mail::Sendmail ã§ãƒ¡ãƒ¼ãƒ«é€ä¿¡ã®ä»¥ä¸‹ã®ã‚³ãƒ¼ãƒ‰ã«ã¤ã„ã¦ã€‚ use Encode; use utf8; my $subject = "テスト"; my $message = "テストã§ã™ã€‚ã»ã’ã»ã’。"; foreach my $str ( $subject, $message ) { utf8::encode($str); Encode::from_to( $str, "utf8", "iso-2022-jp" ); } ã“ã“ã§utf8::encode => Encode::from_toã™ã‚‹ã®ã¯å†—é•· encode('iso-2022-jp', $str); ã ã‘ã§ãŠï½‹ã€‚ use utf8ã—ã¦ãªã‘ã‚Œã°ï¼ˆã§ã€ã‚½ãƒ¼ã‚¹ã®æ–‡å—コードãŒutf8ã§ã‚ã‚Œã°) Encode::from_to( $str, "utf8", "iso-2022-jp" )
{{#tags}}- {{label}}
{{/tags}}