【無料Web】Amazon EC ..
175:名無しさん@お腹いっぱい。
11/08/11 13:47:22.74 0.net
受信したメールからタイトルと本文を取得しようとしています。
下記を実行すると半角カタカナが全角カタカナで表示されます。
半角は半角のまま取得したいのですが、どのようにすればよいのでしょうか?
use Net::POP3;
use Email::MIME qw();
use Encode;
my $pop3 = Net::POP3->new( 'server' );
my $count = $pop3->login(’user', 'pass');
my $messages = $pop3->list();
print "Content-type: text/html\n\n";
print "<html>\n";
foreach my $id (sort (keys %{$messages})) {
my $mail = join q(), @{ $pop3->get($id) };
my $parsed = Email::MIME->new($mail);
printf "%s<br>\n",encode( 'sjis', $parsed->header('Subject') );
}
print "</html>\n";
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
1091日前に更新/125 KB
担当:undef