email perl

Mam pytanie czy można użyć modułu use Net::POP3; do logowania np. na poczte interii? Próbowałem w taki sposób ale nici z tego ;)

Kod:

---

use Net::POP3;
$USER = "[email protected]";
$PASS = "lolek1";
$pop = Net::POP3->new('poczta.interia.pl');
$result = $pop->login ( $USER , $PASS );
if ($result eq undef) { print "Nie zalogowalem\n"; }
else { print "liczba postow w skrzynce: $result\n"; }
$pop->quit();

---

Pozdrawiam :)

Naturalnie, że można.
W kodzie źle zapisałeś nazwę użytkownika ponieważ znak @ użyty w podwójnych cudzysłowach odwołuje się do tablicy. Zatem należałoby zapisać to w ten sposób:

Kod:

---

$USER = "lolek\@poczta.fm";

---

lub też sam login (RFC nie wymaga domeny):

Kod:

---

$USER = "lolek";

---

Dzieki działa :) pozdrawiam

Nie widzę potrzeby zakładania nowego tematu wiec dodam w tym wątku projekt który skończyłem :) plik .pl + trzeba utworzyć plik txt ze swoja ścieżka
Program odpalamy z argumentami login pass do poczty jeśli się zalogujemy to program zapisuje login i pass do pliku txt jeśli nie to kończy

Kod:

---

#!/usr/bin/perl
###################################
#By Hardiel                      #
###################################
use Net::POP3;
$user = "$ARGV[0]";
$pass = "$ARGV[1]";
print "[Interia]: interia.pl poczta.fm interia.eu 1gb.pl 2gb.pl vip.interia.pl        serwus.pl akcja.pl czateria.pl znajomi.pl\r\n";
print "[Wp]: wp.pl\r\n";
print "[Onet]: amorki.pl autograf.pl buziaczek.pl onet.eu op.pl poczta.onet.eu        poczta.onet.pl vp.pl\r\n";
print "[o2]: o2.pl go2.pl tlen.pl\r\n";
print "Jesli chcesz sie zalogowac na Interie wpisz '1'\r\n";
print "Jesli chcesz sie zalogowac na Onet wpisz '2'\r\n";
print "Jesli chcesz sie zalogowac na WP wpisz '3'\r\n";
print "Jesli chcesz sie zalogowac na o2 wpisz '4'\r\n";
$login = <STDIN>;
if ($login==1) {
$pop = Net::POP3->new('poczta.interia.pl');
$result = $pop->login ( $user , $pass );
if ($result eq undef) {
print "Nie zalogowano!!\r\n";
exit;
}
else {
print "Zalogowano!! ;]\r\n";
print "liczba postow w skrzynce: $result\r\n";
}
$pop->quit();
open (email, ">> C:/email.txt");
print email "User: $user Password: $pass\n";
close (email);
}
if ($login==2) {
$pop = Net::POP3->new('pop3.poczta.onet.pl');
$result = $pop->login ( $user , $pass );
if ($result eq undef) {
print "Nie zalogowano!!\r\n";
exit;
}
else {
print "Zalogowano!! ;]\r\n";
print "liczba postow w skrzynce: $result\r\n";
}
$pop->quit();
open (email, ">> C:/email.txt");
print email "User: $user Password: $pass\n";
close (email);
}
if ($login==3) {
$pop = Net::POP3->new('pop3.wp.pl');
$result = $pop->login ( $user , $pass );
if ($result eq undef) {
print "Nie zalogowano!!\r\n";
exit;
}
else {
print "Zalogowano!! ;]\r\n";
print "liczba postow w skrzynce: $result\r\n";
}
$pop->quit();
open (email, ">> C:/email.txt");
print email "User: $user Password: $pass\n";
close (email);
}
if ($login==4) {
$pop = Net::POP3->new('poczta.o2.pl');
$result = $pop->login ( $user , $pass );
if ($result eq undef) {
print "Nie zalogowano!!\r\n";
exit;
}
else {
print "Zalogowano!! ;]\r\n";
print "liczba postow w skrzynce: $result\r\n";
}
$pop->quit();
open (email, ">> C:/email.txt");
print email "User: $user Password: $pass\n";
close (email);
}

---

Pozdrawiam