这个perl脚本应该怎么改？

bbmd · 发表于 2006-9-20 12:52:10

#!/usr/bin/perl
# Put this in ~/.gmail/ and use "crontab -e" to add something like
# "* * * * * ~/.gmail/gmail.pl > /dev/null" to run it every minute.
# ${exec cat ~/.gmail/.gmail_top} shows your inbox in Conky.
# Note that this was intended to be used with Gmail or any other
# ssl-enabled pop3 server.
# beginning of configuration
# pop3 host
$pop_host = "pop.gmail.com";
# pop3 username (for Gmail, I didn't have to put @gmail.com at the end)
$pop_user = "xxxxxx";
# pop3 password
$pop_pass = "xxxxx";
# ssl port number (995 is what Gmail uses)
$ssl_port = "995";
# ssl protocol
$ssl_prot = "tcp";
# number of emails to show
$dis_numb = "3";
# end of configuration
use Mail::POP3Client;
use IO::Socket::SSL;
my $socket = IO::Socket::SSL->new( PeerAddr => $pop_host,
PeerPort => $ssl_port,
Proto => $ssl_prot);
my $pop = Mail::POP3Client->new();
$pop->User($pop_user);
$pop->Pass($pop_pass);
$pop->Socket($socket);
$pop->Connect();
$msg_count = $pop->Count();
for ($i = $msg_count, $j = 0; $i >= $msg_count-($dis_numb-1); $i--, $j++) {
foreach ( $pop->Head( $i ) ) {
#/^(From|Subject):\s+/i and print $_, "\n";
if ($_ =~ m/^From:/) {
($from) = ($_ =~ m#^From: .*<(.*)>#);
$from = substr($from, 0, 30);
$out .= "$j = $from\n";
}
}
#chop $out;
`echo -e "$out"> ~/.gmail/.gmail_top`;
}
$pop->Close();

复制代码

本来是想放在conky里来自动监测邮件的，但是这个脚本好像有问题，我直接运行的结果：

./gmail.pl
Can't locate Mail/POP3Client.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./gmail.pl line 31.BEGIN failed--compilation aborted at ./gmail.pl line 31.

复制代码

DonkeyJml · 发表于 2006-9-20 17:52:05

注意看出错信息
上CPAN搜 Mail:

OP3Client 然后装之

晨想 · 发表于 2006-9-20 17:53:44

cpan -i Mail:

OP3Client
搞定。

bbmd · 发表于 2006-9-20 23:12:23

Post by 终极幻想
cpan -i Mail:OP3Client
搞定。

cpan -i Mail:

OP3Client能成功装
但cpan -i IO::Socket::SSL却不行，我已经装了openssl(0.9.8b-3)

sudo cpan -i IO::Socket::SSL
CPAN: Storable loaded ok
Going to read /home/lb/.cpan/Metadata
Database was generated on Tue, 19 Sep 2006 23:33:30 GMT
Running install for module IO::Socket::SSL
Running make for S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz
CPAN: Digest::MD5 loaded ok
Checksum for /home/lb/.cpan/sources/authors/id/S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz ok
IO-Socket-SSL-1.01/
IO-Socket-SSL-1.01/example/
IO-Socket-SSL-1.01/example/ssl_server.pl
IO-Socket-SSL-1.01/example/ssl_client.pl
IO-Socket-SSL-1.01/example/async_https_server.pl
IO-Socket-SSL-1.01/Changes
IO-Socket-SSL-1.01/certs/
IO-Socket-SSL-1.01/certs/server-cert.pem
IO-Socket-SSL-1.01/certs/server-key.enc
IO-Socket-SSL-1.01/certs/client-key.enc
IO-Socket-SSL-1.01/certs/server-key.pem
IO-Socket-SSL-1.01/certs/client-key.pem
IO-Socket-SSL-1.01/certs/test-ca.pem
IO-Socket-SSL-1.01/certs/server-rsa384-dh.pem
IO-Socket-SSL-1.01/certs/my-ca.pem
IO-Socket-SSL-1.01/certs/client-cert.pem
IO-Socket-SSL-1.01/t/
IO-Socket-SSL-1.01/t/cert_no_file.t
IO-Socket-SSL-1.01/t/core.t
IO-Socket-SSL-1.01/t/dhe.t
IO-Socket-SSL-1.01/t/02settings.t
IO-Socket-SSL-1.01/t/compatibility.t
IO-Socket-SSL-1.01/t/01loadmodule.t
IO-Socket-SSL-1.01/t/sysread_write.t
IO-Socket-SSL-1.01/t/ssl_settings.req
IO-Socket-SSL-1.01/t/startssl.t
IO-Socket-SSL-1.01/t/readline.t
IO-Socket-SSL-1.01/t/nonblock.t
IO-Socket-SSL-1.01/t/sessions.t
IO-Socket-SSL-1.01/patches/
IO-Socket-SSL-1.01/patches/Net_SSLeay.patch
IO-Socket-SSL-1.01/MANIFEST
IO-Socket-SSL-1.01/META.yml
IO-Socket-SSL-1.01/SSL.pm
IO-Socket-SSL-1.01/BUGS
IO-Socket-SSL-1.01/docs/
IO-Socket-SSL-1.01/docs/debugging.txt
IO-Socket-SSL-1.01/util/
IO-Socket-SSL-1.01/util/export_certs.pl
IO-Socket-SSL-1.01/Makefile.PL
IO-Socket-SSL-1.01/README
Removing previously used /home/lb/.cpan/build/IO-Socket-SSL-1.01
CPAN.pm: Going to build S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz
Checking if your kit is complete...
Looks good
Warning: prerequisite Net::SSLeay 1.21 not found.
Writing Makefile for IO::Socket::SSL
---- Unsatisfied dependencies detected during [S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz] -----
Net::SSLeay
Shall I follow them and prepend them to the queue
of modules we are processing right now? [yes]
Running make test
Delayed until after prerequisites
Running make install
Delayed until after prerequisites
Running install for module Net::SSLeay
Running make for F/FL/FLORA/Net_SSLeay.pm-1.30.tar.gz
Checksum for /home/lb/.cpan/sources/authors/id/F/FL/FLORA/Net_SSLeay.pm-1.30.tar.gz ok
Net_SSLeay.pm-1.30/
Net_SSLeay.pm-1.30/examples/
Net_SSLeay.pm-1.30/examples/stdio_bulk.pl
Net_SSLeay.pm-1.30/examples/ssl_diff.pl
Net_SSLeay.pm-1.30/examples/ephemeral.pl
Net_SSLeay.pm-1.30/examples/cb-testi.pl
Net_SSLeay.pm-1.30/examples/req.conf
Net_SSLeay.pm-1.30/examples/get_page_cert.pl
Net_SSLeay.pm-1.30/examples/cli-cert.pl
Net_SSLeay.pm-1.30/examples/sslcat.pl
Net_SSLeay.pm-1.30/examples/get_authenticated_page.pl
Net_SSLeay.pm-1.30/examples/https-proxy-snif.pl
Net_SSLeay.pm-1.30/examples/callback.pl
Net_SSLeay.pm-1.30/examples/bio.pl
Net_SSLeay.pm-1.30/examples/ssl-inetd-serv.pl
Net_SSLeay.pm-1.30/examples/sslecho.pl
Net_SSLeay.pm-1.30/examples/get_page.pl
Net_SSLeay.pm-1.30/examples/tcpecho.pl
Net_SSLeay.pm-1.30/examples/passwd-cb.pl
Net_SSLeay.pm-1.30/examples/tcpcat.pl
Net_SSLeay.pm-1.30/examples/bulk.pl
Net_SSLeay.pm-1.30/examples/server_key.pem
Net_SSLeay.pm-1.30/examples/makecert.pl
Net_SSLeay.pm-1.30/examples/minicli.pl
Net_SSLeay.pm-1.30/ptrcasttst.c
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/MANIFEST
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/Makefile.PL
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/test.pl
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/Changes
Net_SSLeay.pm-1.30/Net-SSLeay-Handle-0.50/Handle.pm
Net_SSLeay.pm-1.30/Changes
Net_SSLeay.pm-1.30/MANIFEST
Net_SSLeay.pm-1.30/typemap
Net_SSLeay.pm-1.30/SSLeay.pm
Net_SSLeay.pm-1.30/META.yml
Net_SSLeay.pm-1.30/.rnd
Net_SSLeay.pm-1.30/QuickRef
Net_SSLeay.pm-1.30/RECIPE.Win32
Net_SSLeay.pm-1.30/Credits
Net_SSLeay.pm-1.30/test.pl
Net_SSLeay.pm-1.30/SSLeay.xs
Net_SSLeay.pm-1.30/README.Win32
Net_SSLeay.pm-1.30/ptrtstrun.pl
Net_SSLeay.pm-1.30/README
Net_SSLeay.pm-1.30/Makefile.PL
Removing previously used /home/lb/.cpan/build/Net_SSLeay.pm-1.30
CPAN.pm: Going to build F/FL/FLORA/Net_SSLeay.pm-1.30.tar.gz
Checking for OpenSSL-0.9.6j or 0.9.7b or newer...
I could not find your OpenSSL in `INSTALLDIRS=site'
Please provide OpenSSL-0.9.6j or
OpenSSL-0.9.7b installation directory (get from
http://www.openssl.org/ if you don't have it; please note that
SSLeay is no longer supported, see README) (C-c to abort):
Running make test
Make had some problems, maybe interrupted? Won't test
Running make install
Make had some problems, maybe interrupted? Won't install
Running make for S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz
Is already unwrapped into directory /home/lb/.cpan/build/IO-Socket-SSL-1.01
CPAN.pm: Going to build S/SU/SULLR/IO-Socket-SSL-1.01.tar.gz
cp SSL.pm blib/lib/IO/Socket/SSL.pm
Manifying blib/man3/IO::Socket::SSL.3pm
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01loadmodule.....Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
BEGIN failed--compilation aborted at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
Compilation failed in require at t/01loadmodule.t line 11.
BEGIN failed--compilation aborted at t/01loadmodule.t line 11.
t/01loadmodule.....dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-4
Failed 4/4 tests, 0.00% okay
t/02settings.......Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
BEGIN failed--compilation aborted at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
Compilation failed in require at t/02settings.t line 4.
BEGIN failed--compilation aborted at t/02settings.t line 4.
t/02settings.......dubious
Test returned status 2 (wstat 512, 0x200)
t/cert_no_file.....Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/cert_no_file.t line 14.
BEGIN failed--compilation aborted at t/cert_no_file.t line 14.
t/cert_no_file.....dubious
Test returned status 2 (wstat 512, 0x200)
t/compatibility....Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
BEGIN failed--compilation aborted at /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib/IO/Socket/SSL.pm line 17.
Compilation failed in require at t/compatibility.t line 5.
BEGIN failed--compilation aborted at t/compatibility.t line 5.
t/compatibility....dubious
Test returned status 2 (wstat 512, 0x200)
t/core.............Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/core.t line 6.
BEGIN failed--compilation aborted at t/core.t line 6.
t/core.............dubious
Test returned status 2 (wstat 512, 0x200)
t/dhe..............Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/dhe.t line 11.
BEGIN failed--compilation aborted at t/dhe.t line 11.
t/dhe..............dubious
Test returned status 2 (wstat 512, 0x200)
t/nonblock.........Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/nonblock.t line 6.
BEGIN failed--compilation aborted at t/nonblock.t line 6.
t/nonblock.........dubious
Test returned status 2 (wstat 512, 0x200)
t/readline.........Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/readline.t line 14.
BEGIN failed--compilation aborted at t/readline.t line 14.
t/readline.........dubious
Test returned status 2 (wstat 512, 0x200)
t/sessions.........Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/sessions.t line 5.
BEGIN failed--compilation aborted at t/sessions.t line 5.
t/sessions.........dubious
Test returned status 2 (wstat 512, 0x200)
t/startssl.........Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/startssl.t line 6.
BEGIN failed--compilation aborted at t/startssl.t line 6.
t/startssl.........dubious
Test returned status 2 (wstat 512, 0x200)
t/sysread_write....Can't locate Net/SSLeay.pm in @INC (@INC contains: /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/lib /home/lb/.cpan/build/IO-Socket-SSL-1.01/blib/arch /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/sysread_write.t line 9.
BEGIN failed--compilation aborted at t/sysread_write.t line 9.
t/sysread_write....dubious
Test returned status 2 (wstat 512, 0x200)
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/01loadmodule.t 2 512 4 8 200.00% 1-4
t/02settings.t 2 512 ?? ?? % ??
t/cert_no_file.t 2 512 ?? ?? % ??
t/compatibility.t 2 512 ?? ?? % ??
t/core.t 2 512 ?? ?? % ??
t/dhe.t 2 512 ?? ?? % ??
t/nonblock.t 2 512 ?? ?? % ??
t/readline.t 2 512 ?? ?? % ??
t/sessions.t 2 512 ?? ?? % ??
t/startssl.t 2 512 ?? ?? % ??
t/sysread_write.t 2 512 ?? ?? % ??
Failed 11/11 test scripts, 0.00% okay. 4/4 subtests failed, 0.00% okay.
make: *** [test_dynamic] 错误 2
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force

复制代码

bbmd · 发表于 2006-9-22 01:37:50

Post by DonkeyJml
注意看出错信息
上CPAN搜 Mail:OP3Client 然后装之

我去cpan上下了IO::Socket::SSL，费了好在劲才装上，可是运行还是出现错误
怎么办？我对perl一窍不通的......

./gmail.pl
Can't locate IO/Socket/SSL.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./gmail.pl line 32.
BEGIN failed--compilation aborted at ./gmail.pl line 32.

复制代码

晨想 · 发表于 2006-9-22 03:00:51

你的 openssl 没装 -dev 或者 -devel 包吧。。。具体安装参考你的发行版的相关文章。

		自动登录	找回密码
密码			注册

这个perl脚本应该怎么改？

浏览过的版块