【发布时间】：2018-01-23 09:30:35
【问题描述】：
我想连接 IMAP 服务器，但我无法直接连接 imap 服务器，这就是我使用代理但仍然无法连接和阅读电子邮件的原因。 以下是我的代码，
#!/usr/intel/bin/perl
use strict;
use warnings;
# fill in your details here
my $username = 'username@companyname.com';
my $password = 'password';
my $mailhost = 'outlook.office365.com';#imap-mail.outlook.com
my $mailport = 993;
my $proxyhost = '121.244.253.5';
my $proxyport = 8080;
print "Proxy...\n";
use IO::Socket::Socks::Wrapper(
{
ProxyAddr => $proxyhost,
ProxyPort => $proxyport,
SocksDebug => 0,
Timeout => 100000000
}
);
# required modules
use Net::IMAP::Simple;
use Email::Simple;
use IO::Socket::SSL;
print "Connecting...\n";
$IO::Socket::SSL::DEBUG=2;
# Connect
my $imap = Net::IMAP::Simple->new(
$mailhost,
port => $mailport,
use_ssl => 1
) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr \n";
print "Logging In...\n";
# Log in
if ( !$imap->login( $username, $password ) ) {
print STDERR "Login failed: " . $imap->errstr . "\n";
exit(64);
}
print "Selecting Folder...\n";
# Look in the the INBOX
my $nm = $imap->select('Archive');
print "How Many Messages Are There...\n";
# How many messages are there?
my ($unseen, $recent, $num_messages) = $imap->status();
print "unseen: $unseen, recent: $recent, total: $num_messages\n\n";
print "Quickly Look for unseen messages...\n";
## Iterate through unseen messages
for ( my $i = 1 ; $i <= $nm ; $i++ ) {
if ( $imap->seen($i) ) {
next;
} else {
my $es = Email::Simple->new( join '', @{ $imap->top($i) } );
printf( "[%03d] %s\n\t%s\n", $i, $es->header('From'), $es->header(+'Subject') );
}
}
print "Disconnect...\n";
# Disconnect
$imap->quit;
print "Exit...\n";
exit;
以下是我的回应：-
Proxy...
Connecting...
DEBUG: .../IO/Socket/SSL.pm:332: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:334: socket connected
DEBUG: .../IO/Socket/SSL.pm:347: ssl handshake not started
DEBUG: .../IO/Socket/SSL.pm:377: set socket to non-blocking to enforce timeout=100000000
我不知道为什么它不走得更远。请分享您的意见并纠正我。
请帮帮我...
【问题讨论】：
-
请不要编辑您的问题以在答案或 cmets 中包含建议。
-
好的。请帮我。非常紧急。
-
看起来您使用的是旧版本的 IO::Socket::SSL。鉴于您在调试输出中显示的行号，版本最多为 1.38，即 7 年前的版本。我不确定您系统上的其他模块有多旧，但您的软件堆栈的年龄可能是您遇到的问题的一部分。另一个问题可能是您使用的代理：端口 8080 是 HTTP 代理的常用端口，而不是 SOCKS 代理，并且 SOCKS 包装器不会让您通过 HTTP 代理。
标签： perl sockets ssl office365 perl-module