ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     13 Feb 2002  11:35:17
 To : Dmitry Suhodoev
 Subject : Re: где ошибка?
 -------------------------------------------------------------------------------- 
 

 Dmitry Suhodoev <Dmitry.Suhodoev@f428.n550.z2.fidonet.org> wrote:
 
 > давно не виделись, Hаpод!
 > 
 > почему не показывает текст письма? само письмо есть - пpовеpено.
 
 #!/usr/bin/perl -wT
 use strict;
 use warnings;
 use Net::POP3 qw();
 use Carp qw(croak);
 
 my $pop=Net::POP3->new('212.26.128.10');
 my $num=$pop->login(qw(bfraven otherpass));
 croak "Can not open network connection.\n" unless defined $num;
 foreach my $id (1..$num) {
 =pod
        top ( MSGNUM [, NUMLINES ] )
            Get the header and the first `NUMLINES' of the body
            for the message `MSGNUM'. Returns a reference to an
            array which contains the lines of text read from the
            server.
 
        top ( MSGNUM [, NUMLINES ] )
            Получить заголовки и первые `NUMLINES' строк тела
            письма с номером `MSGNUM'. Возвращает _ССЫЛКУ_HА_
            _МАССИВ_, содержащий строки текста, полученного с
            сервера.
 =cut
   my $email=$pop->top($id,10) or croak "Can not retrieve message #$id.\n";
   print @$email;
 }   
 
 $pop->quit;
 
 Соответственно неудивительно, что скрипт работал не так, как хотелось...
 
 > ЙН( begin of /nt4 clipboard/ )ННННННННµ imported by *raVen* ЖН»
 > #!/usr/bin/perl
 > use Net::POP3;
 > 
 > my $pop=Net::POP3->new('host',Timeout=>60);
 > 
 > $res=$pop->login('name','pass');
 > print("$res\n");
 > 
 > $res=$pop->list(1);
 > print("$res\n");
 > 
 > @lines=$pop->top(1,10);
 > print("\"$lines[1]\"\n");
 > print("\"$lines[2]\"\n");
 > print("\"$lines[3]\"\n");
 > ИН( end   of /nt4 clipboard/ )ННННННННµ imported by *raVen* ЖНј
 > 
 > --
 > raVen, raven#fido,urc,ac,ru, http://raven.elk.ru/
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    где ошибка?   Dmitry Suhodoev   13 Feb 2002 01:53:24   Re: где ошибка?   Vladimir Podgorny   13 Feb 2002 11:35:17