Pokaż wyniki 1 do 4 z 4

Temat: email perl

  1. #1
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie 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

  2. #2
    Zarejestrowany
    Nov 2007
    Postów
    54

    Domyślnie

    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";

  3. #3
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Dzieki działa pozdrawiam
    Ostatnio edytowane przez Hardiel : 08-01-2008 - 00:28

  4. #4
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    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

Podobne wątki

  1. [Perl] Kurs Perl - cz.1 - wprowadzenie i podstawy
    By TQM in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 22
    Autor: 10-27-2014, 00:50
  2. Odpowiedzi: 18
    Autor: 07-14-2009, 11:55
  3. Email
    By gawra in forum /dev/null
    Odpowiedzi: 1
    Autor: 05-26-2008, 19:28
  4. Odpowiedzi: 31
    Autor: 05-20-2008, 17:01
  5. Cookies a email
    By BamBam in forum HTML/DHTML/XHTML
    Odpowiedzi: 1
    Autor: 11-21-2007, 21:09

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj