Net::POP3 streikt mit Portangabe (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]11104[/thread]

Net::POP3 streikt mit Portangabe

MoOnShIn3

2008-01-07 03:22

User since
2008-01-07
2 Artikel
BenutzerIn
[default_avatar]

Guten Morgen

Ich habe ein kleines Script welches mir die Anzahl neuer E-Mails anzeigt. Nun musste ich beim Wechsel auf GMail noch eine Portangabe machen (ResvPort), aber egal welchen Port ich eintrage streikt nun das Script:

Code: (dl )

1
2

Cannot connect to pop.gmail.com:995
Permission denied at /home/moony/DEV/mails_pop3.pl line 14.

Die verwendete Doku:
http://perldoc.perl.org/Net/POP3.html#CONSTRUCTOR

Mein Script

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Net::POP3;

my $popHost = $ARGV[0];
my $popPort = $ARGV[1];
my $popTimeout = 10;
my $user = $ARGV[2];
my $pass = $ARGV[3];


my $pop = Net::POP3->new($popHost,
                                                 Timeout        => $popTimeout,
                                                 ResvPort       => $popPort) or
  die ("Cannot connect to $popHost:$popPort\n$!");

$pop->quit();

Warum habe ich bloss keine Erlaubnis eine Portangabe zu machen?!

Vielen Dank für eure Antwort

2008-01-07 13:39

User since
2003-08-04
12208 Artikel
Admin1

bei Net::POP3 steht der fehler nicht in $!.
versuch mal Debug => 1 zu übergeben beim new()

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

MoOnShIn3

2008-01-07 16:33

User since
2008-01-07
2 Artikel
BenutzerIn
[default_avatar]

Debug hab ich nun auf 1, bloss wie kann ich diese Infos ausgeben? Von alleine gibt's keine weiteren Infos und das new() scheint selber nichts auszugeben:

Code: (dl )

1
2

Global symbol "$pop" requires explicit package name at /home/moony/DEV/mails_pop3.pl line 17.
Execution of /home/moony/DEV/mails_pop3.pl aborted due to compilation errors.

GwenDragon

2008-01-07 18:42

User since
2005-01-17
14761 Artikel
Admin1

Quote
ResvPort - If given then the socket for the Net::POP3 object will be bound to the local port given using bind when the socket is created

Bedeutet dass der lokale Port (also die Quelle!) an ResvPort gebunden wird; nicht der Zielport!

fehlt wohl: CPAN:

Net::POP3::SSLWrapper

//EDIT: Da sollte

Code (perl): (dl )

Port  => $popPort

stehen, dann geht es.
Die Doku zu Net::POP3 ist etwas schlampig. Aber der Blick in den Quellcode zeigt es.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2008-01-07 03:22.