|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vladimir Podgorny 2:5020/400 22 Apr 2002 10:27:37 To : Ruslan Sulemanov Subject : Re: Net::POP3 -------------------------------------------------------------------------------- Ruslan Sulemanov <Ruslan.Sulemanov@p27.f99.n4635.z2.fidonet.org> wrote: ... > $messages=$pop->list or die "$!\n"; > foreach $msgid (keys %$messages) { > $message=$pop->get($msgid); use IO::File qw(); use Fcntl qw(:DEFAULT); my $fh = new IO::File 'filename', O_WRONLY | O_CREAT | O_APPEND; $fh = \*STDOUT unless $fh; print $fh @$message; undef $fh; =pod perldoc Net::POP3 get ( MSGNUM [, FH ] ) Get the message "MSGNUM" from the remote mailbox. If "FH" is not given then get returns a reference to an array which contains the lines of text read from the server. If "FH" is given then the lines returned from the server are printed to the filehandle "FH". =cut > unless(defined $message){ > warn "Can't take $msgid from this server: $!\n"; <----- > next; | > } | > print "$message\n"; | > $pop->delete($msgid); | > } # Как избавиться от этой ошибки ... > Hемогy забрать почтy, размер, количество полyчаю, а почтy на экран, или > хотябы в файл никак? Что можно исправить в скрипте ? > Благодарен заранее. -- VP992-RIPE --- ifmail v.2.15dev5 * Origin: Adamant ISP news server (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12034c8c73313.html, оценка из 5, голосов 10
|