Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Net::POP3   Ruslan Sulemanov   20 Apr 2002 19:32:22 
 Re: Net::POP3   Vladimir Podgorny   22 Apr 2002 10:27:37 
 Re: Net::POP3   Artem Chuprina   22 Apr 2002 10:54:40 
Архивное /ru.perl/12034c8c73313.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional