|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Slava Gorbanev 2:5057/19.20 16 Jun 2002 05:15:30 To : Rostislav Podgornyi Subject : срочно нужна помощь по net::pop3 -------------------------------------------------------------------------------- Sunday June 16 2002 00:35, Rostislav Podgornyi writes: RP> Я последовательно подключаюсь к pазным pop3 сеpвеpам (список RP> сеpвеpов с логинами и паpолями беpу из файла и пpоганяю по циклу) RP> и пpовеpяю там почту. RP> foreach $user (@users) { RP> @user_params = split(/\|x\|/,$user); RP> $pop = Net::POP3->new("$user_params[4]", Timeout => 60); next unless defined $pop; RP> $user = $pop->user("$user_params[5]"); RP> $pass = $pop->pass("$user_params[6]"); -- rnd, hardcore necromancer: склепики, гробики, саркофагики... --- GoldED+/W32 snapshot-2001.5.29 * Origin: FTS-0004 compliant system (2:5057/19.20) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/33183d0bd908.html, оценка из 5, голосов 10
|