Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > POP3

Автор: dixoNICH 5.4.2011, 16:35

в общем, вопрос в том : как мне получить сообщение? в RFC написано, что команда RETR выводит содержимое сообщение, но, ответ от сервера примерно ввиде : +OK, 120 octets. а как собственно сообщение прочитать? где мне его увидеть? средствами перла.
т.е понятно, что отправляю серверу :

Код


print $socket "RETR \n";

Автор: Pfailed 5.4.2011, 17:56

Нужно

Код


print $socket "RETR $id\015\012";

где $id - идентификатор сообщения, полученный командой LIST.
Также смотрите в исходники Net::POP3

Автор: dixoNICH 5.4.2011, 18:07

Цитата(Pfailed @ 5.4.2011, 17:56)

Нужно

Код


print $socket "RETR $id\015\012";

где $id - идентификатор сообщения, полученный командой LIST.
Также смотрите в исходники Net::POP3

пишу без модуля pop3)
надо было уточнить.
ну и что, напишу я это, в ответ же мне придёт что-то в стиле
+OK 120 octets
а как вывести само сообщение?
recv мб мне может помочь?

Автор: Pfailed 5.4.2011, 19:08

Читайте дальше пока не встретите строку равную ".\015\012".
Net::POP3 имелся ввиду как источник где можно подсмотреть пример реализации.

Автор: dixoNICH 5.4.2011, 21:13

не, всё же реализация через Net::POP3, по-моему, сильно отличается от моей smile

)
не совсем понял, как извлеку я сообщения оттуда со своей реализацией)

Автор: dixoNICH 6.4.2011, 16:13

всё, разобрался.
вывожу в фором с помощью recv. осталось парсить строку только smile

кстати если мне приходит русский текст или картинка - то как мне их обработать?

Автор: dixoNICH 7.4.2011, 19:09

_ЙoЗПѓєЗАЯЪДїхrn>Б>lоКяЇ€тЋРЉ с
в общем воспользовался я use MIME::Base64;
и получил это
что это и как мне получить русский текст? ))

Автор: Pfailed 7.4.2011, 19:10

Какая кодировка у письма? Покажите вообще полученное сообщение до изменений.

Автор: dixoNICH 7.4.2011, 20:29

Код


l5OJbeI87RINzp+B3jn+4lAH7m6Vex6no9vdplRImWz1WtEDdbmuJ8IXUaWdxYpIXSJsxEr1RhuG

Pz/Su5j5hX3oAcu1tu77wp9QpwTn5amHNADx90UD7opoanZFAC1JUdSUASKBj/gVSVGu4r1p4GDQ

AtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfMmtpL9rfHy

r0rlClzDGzfdYc16DerHLdMr/drkdTDpJgKCh/xoAr6fcvcxlJP7v92qhAg1VmVMf3adBJ5VxvC7

m/iq7HEk8yvt3UAWI5JJY1DD5TxitvSbZDqSbVxiqUuyCFQF5rT0GXzb9fTdQB6Wi7bH/gNZ8nWt

XH+i4rLcYb+7QBVIVWY008x8feqZhTMYj4+96UAVCPmpMmnE4b7tMPFAC5NL/F83502n7hQBLH93

это картинка так пришла.

Код


Subject: =?KOI8-R?B?z9A=?=

заголовок (на русском)

Код


Content-Type: text/html; charset=KOI8-R

Content-Transfer-Encoding: base64



xsHS2cbB0tnGzM/B0sbZzM/B0sbZz8zB0tnGzM/B2cbSwczP2cbSwczPxtnB0szG2c/B0tnGwczP

xtnBPGJyPgo=

--000e0cd58e3806fede04a05754fa--

вот, вроде, сообщение.

Автор: Pfailed 7.4.2011, 20:42

После декодирования base64 перекодируйте в нужную кодировку. Очевидно, что здесь сообщение в кодировке koi8-r.
perldoc Encode

Автор: dixoNICH 7.4.2011, 20:59

а какая кодировка мне нужна, чтобы получить русский текст и вывести его в eml файл?

Автор: Pfailed 7.4.2011, 21:17

Та, которую понимает ваш просмотрщик.

Автор: dixoNICH 9.4.2011, 13:18

а есть универсальная функция для перекодировки в cp1251? (ну, или что там поймёт виндовс и eml)
чтобы, например, не из utf8 в cp1251, а из любой кодировки
ну или как из koi8-r получить cp1251 (ну, или что понимает виндовс smile

)))))))))
просто не могу разобраться, перлдок не очень помогает, и гугл тоже(

Автор: dixoNICH 10.4.2011, 13:49

ещё одна проблема : если отправляю файл, то он, каким-то образом ломает сообщения мне )) взависимости от размера.
если большой - то все, если не очень то парочку smile

вот код, помогите разобраться, пожалуйста

Код


$,="\n";
open F, ">mail.txt";
use IO::Socket; 
    my $host="pop.yandex.ru"; #хост #  print "Enter host please : ";my $host=<>;
    my $port=110; #pop3 в основном использует 110 порт.
    my $login = "yaroslavlyzlov\n";#логин
    my $password ="privetik\n"; #пароль 
##################<---------СОЕДИНЯЕМСЯ С СЕРВЕРОМ------->####################
        sub CONNECT {
        $socket =    IO::Socket::INET->new (
                    PeerAddr => $host,
                    PeerPort => $port,
                    Proto => "tcp",
                    Type => SOCK_STREAM)
                    or die "Can't connect to $host:$port, $!\n";
        }
        CONNECT;
#########################<----------АВТОРИЗАЦИЯ------------->######################### 
        sub AUTHORIZATION {
            my $invitation=<$socket>; #приглашение сервера (+OK,-ERR etc)
            print $socket "USER $login";  
                my $invitation=<$socket>; #print $invitation;
            print $socket "PASS $password"; 
                my $invitation=<$socket>; #print $invitation;
        }
        AUTHORIZATION; 
        
        sub LISTandRETR {
            print $socket "LIST\n";
            my $invitation=<$socket>;
            $invitation=~/(\d+)/; # выделяем кол-во сообщений
            $qt=$1; # колличество сообщений
            open F, ">mail.txt";
                for($i=1;$i<$qt+1;$i++) {
                    $invitation=<$socket>; 
                    $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письма
                    print "Number : $1\n"; 
                    print "Octets : $2\n";
                    $let=$1;
                    print $socket "RETR $i\n";
                    #print $invitation;
                    recv $socket, $invitation, $message[$i]+1000000, $k;
                    print F $invitation;
                    $invitation=~m/From:\s.*\s\<(.*)\>/;
                    print  "From : $1\n";
                    $invitation=~m/Subject:\s(.*)/;
                    print  "Subject : $1\n";
                    $invitation=~m/Date:\s(.*)/;
                    print  "Date : $1\n";
                    $invitation=~m/Message-ID:\s(.*)/;
                    print "Message-ID : $1\n";
                    #$invitation=~m/Content-Type:(\s).*\n\n(.*)\n\n/;
                    #print "Message : $2\n";
                    #print "Message : $2\n";
                    print "--------------------------\n";                
                }
        } LISTandRETR;
            
        
    
###################DELETE MESSAGE#################
        sub DELETE { #функция удаления сообщений 
            print "Remove any post?  Enter yes or no : ";
            $yes_or_no=<>;
            chomp $yes_or_no;
            if($yes_or_no eq "yes") {
                print "Select the number of messages you want to delete : ";
                $number_for_del=<>;
                print $socket "DELE $number_for_del\n";  
                    my $invitation=<$socket>; 
                    print $invitation;
            }    
        }
        DELETE;            
###################QUIT#################
        sub QUIT {    
            print $socket "QUIT\n"; 
                my $invitation=<$socket>;  
                print $invitation; 
        } 
        print "complete the pop3 session? Enter yes or no, please : ";
        $quit=<>;
        chomp $quit;
        if($quit eq "yes"){QUIT;}

Автор: Pfailed 11.4.2011, 08:01

Цитата(dixoNICH @ 9.4.2011, 13:18

)

ну или как из koi8-r получить cp1251

Функция from_to() из модуля Encode

Автор: dixoNICH 11.4.2011, 17:29

Код


$invitation=~/\=\?KOI8\-R\?B\?(.*)\?\=/;
$a=$1;
$b = decode_base64($a);
print F Encode::from_to($a, "KOI8-R", "cp1251");

выделяю так то, что должен декодировать и загоняю в cp1251
получаетсяя что то вроде : 12412425151
просто цифры.
если не декодировать base64 - то так же)

Автор: dixoNICH 11.4.2011, 17:50

Код


$invitation=~/\=\?KOI8\-R\?B\?(.*)\?\=/;
$a=$1;
$b = decode_base64($a);
print F Encode::from_to($a, "KOI8-R", "cp1251");

делаю так.
собственно, выводит что-то в стиле : 12421421421421321 )
без декодировки из бейс64 аналогично

Автор: Pfailed 11.4.2011, 18:19

Прочтите внимательнее документацию по этой функции. Она не возвращает строку, а изменяет переданную.

Автор: dixoNICH 15.4.2011, 07:56

спасибо.

Автор: dixoNICH 22.4.2011, 20:46

Проблема такая : до меня доходят не все сообщения. точнее, когда как : иногда ничего не приходит, иногда 1 сообщение, иногда 2..n.
интуитивно понимаю в чём ошибка, точнее догадываюсь.
возможно, что я отправляю ему команду LIST, а он ещё отослал ему всё, а я ему RETR уже шлю.
но, как это исправить - не представляю. прошу помощи (

Код


$,="\n";
open F, ">mail.txt";
use IO::Socket; 
use Encode;
use MIME::Base64;
        my $host="pop.yandex.ru"; #хост #  print "Enter host please : ";my $host=<>;
        my $port=110; #pop3 в основном использует 110 порт.(995 при шифрование)
        my $login = "yaroslavlyzlov\n";#логин
        my $password ="privetik\n"; #пароль 
##################<---------СОЕДИНЯЕМСЯ С СЕРВЕРОМ------->####################
                sub CONNECT {
                $socket =       IO::Socket::INET->new (
                                        PeerAddr => $host,
                                        PeerPort => $port,
                                        Proto => "tcp",
                                        Type => SOCK_STREAM)
                                        or die "Can't connect to $host:$port, $!\n";
                }
                CONNECT;
#########################<----------АВТОРИЗАЦИЯ------------->######################### 
                sub AUTHORIZATION {
                        my $invitation=<$socket>; #приглашение сервера (+OK,-ERR etc)
                        print $socket "USER $login";  
                                my $invitation=<$socket>; #print $invitation;
                        print $socket "PASS $password"; 
                                my $invitation=<$socket>; #print $invitation;
                }
                AUTHORIZATION; 
                
                sub LISTandRETR {
                        print $socket "LIST\015\012";
                        my $invitation=<$socket>;
                        $invitation=~/(\d+)/; # выделяем кол-во сообщений
                        $qt=$1; # колличество сообщений
                        open F, ">mail.txt";
                            #Encode::MIME::Header -- MIME 'B' and 'Q' header encoding
                            #use Encode qw/encode decode/;
                            #$utf8   = decode('MIME-Header', $header);
                            #$header = encode('MIME-Header', $utf8);
                                for($i=1;$i<$qt+1;$i++) {
                                        $invitation=<$socket>; 
                                        $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письма
                                        print "Number : $1\n"; 
                                        print "Octets : $2\n";
                                        $let=$1;
                                        print $socket "RETR $i\015\012";
                                        #print $invitation;
                                        recv $socket, $invitation, $message[$i]+1000000, $k;
                                        #print F $invitation;
                                        $invitation=~m/From:\s.*\s\<(.*)\>/;
                                        print  "From : $1\n";
                                        #$invitation=~m/Subject:\s(.*)/;
                                        #print  "Subject : $1\n";
                                        $invitation=~m/Date:\s(.*)/;
                                        print  "Date : $1\n";
                                        
                                        $invitation=~/\=\?KOI8\-R\?B\?(.*)\?\=/; #выделяем закодированый текст
                                        $a=$1;
                                        $s=decode_base64($a);
                                        Encode::from_to($s, "KOI8-R", "cp1251");
                                        print F "Subject : $s\n";
                                        $invitation=~m/Message-ID:\s(.*)/;
                                        print "Message-ID : $1\n";
                                        #$invitation=~m/Content-Type:(\s).*\n\n(.*)\n\n/;
                                        #print "Message : $2\n";
                                        #print "Message : $2\n";
                                        print "--------------------------\n";                           
                                }
                                print @message;
                                close F;
                } LISTandRETR;
                        
                
        
###################DELETE MESSAGE#################
                sub DELETE { #функция удаления сообщений 
                        print "Remove any post?  Enter yes or no : ";
                        $yes_or_no=<>;
                        chomp $yes_or_no;
                        if($yes_or_no eq "yes") {
                                print "Select the number of messages you want to delete : ";
                                $number_for_del=<>;
                                print $socket "DELE $number_for_del\n";  
                                        my $invitation=<$socket>; 
                                        print $invitation;
                        }       
                }
                DELETE;                 
###################QUIT#################
                sub QUIT {      
                        print $socket "QUIT\n"; 
                                my $invitation=<$socket>;  
                                print $invitation; 
                } 
                print "complete the pop3 session? Enter yes or no, please : ";
                $quit=<>;
                chomp $quit;
                if($quit eq "yes"){QUIT;}
                sub DECODE {
                        $invitation=~/Subject:\s\=\?KOI8\-R\?B\?(.*)\?\=/;
                         $a=$1;
                         $s=decode_base64($a);
                         Encode::from_to($s, "KOI8-R", "cp1251");
                         print F$s."\n";
                        }

Автор: dixoNICH 23.4.2011, 16:12

проблему решил

Автор: dixoNICH 27.4.2011, 12:58

пытался решить проблему. всё сообщение не принять одним recv, пытался делить его на части по 1024 байта.
появилась проблема - он посылает мне первое сообщение несколько раз, не знаю, где я накосячил(

Код


open F, ">mail.txt";
        sub LISTandRETR {
            print $socket "LIST\n";
            my $invitation=<$socket>;
            $invitation=~/(\d+)\s(\d+)/; # выделяем кол-во сообщений и их объём
            $qt=$1; # колличество сообщений
            $s=$2;  # объём почтового ящика
                for($i=1;$i<$qt+1;$i++) {
                    $invitation=<$socket>; 
                    $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письма
                    print "Number : $1\n"; 
                    print "Octets : $2\n";
                    $let=$1;
    #######################################################################
                    print $socket "RETR $i\n";
                    $aaa = $2/1024; $bbb = 1*$2 - $aaa*1024;
                    for (1..$aaa) {
                        recv$socket,$ccc,1024,0;
                        push@hhh,$ccc;
                    }
                    recv$socket,$ccc,$bbb,0;
                    push@hhh,$ccc;
                    $invitation = join '', @hhh;
                    print $invitation;
                    while($invitation=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g){ # filename, baby
                        $filename=$1;
                        open S, ">$filename";
                        close S;
                    }
                }
                close F;
        } LISTandRETR;

Автор: shamber 27.4.2011, 22:34

dixoNICH, чего-то в вашем скрипте не заметно перебора писем после команды List. видно что вы все время одно и тоже письмо запрашиваете.
Логично получить количество писем в массив. а потом перебрав массив, получить все письма.

Автор: dixoNICH 28.4.2011, 22:16

почему не заметно? отправляю лист, узнаю кол-во сообщений, запускаю фор от единицы, до кол-во сообщений + 1, в форе отправляю
print $socket "RETR $i\n";
потом сразу разбиваю и пушу в массив, потом джоин в строку

Автор: shamber 29.4.2011, 10:26

For проглядел. Однако я погонял код у себя:
0. добавьте use strict;
1. ваша регулярка для получения количества писем не очень, на моем почтовом ящике не сработала лучше переписать так (\d+)\D+(\d+)
2. В моем случае, писем много и после запроса их индексов, а вы ведь после первого же письма сразу хотите получать тело, в тело попадают остатки команды LIST.
3. ваш код my $aaa = $2/1024; my $bbb = 1*$2 - $aaa*1024; ну очень плохо отрабатывает например размер 1921.
может лучше my $aaa = int($size/1024); my $bbb = ($size % 1024);

А вообще попробуйте так:

Код


sub LISTandRETR {
    print $socket "LIST\n";
    my $invitation=<$socket>;
    $invitation=~/(\d+)\D+(\d+)/; # выделяем кол-во сообщений и их объём
    my $qt=$1; # колличество сообщений
    my $s=$2;  # объём почтового ящика
    my @list;
    while(1){
        my $str = <$socket>;
        push @list,$str;
        last unless $str=~/(\d+)/;
    }
    my $i=0;
    while($i<$qt) {
        $invitation=$list[$i];
        $i++;
        $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письм
        my $num = $1;
        my $size = $2;
        print "Number : $num\n";
        print "Octets : $size\n";
        my $let=$1;
#######################################################################
        print $socket "RETR $num\n";                
        my $str;
        my $buf;
        vec(my $win, fileno($socket), 1) = 1;
        my $timeout = 10;
        while(1){
            my $p = select($win, undef, undef, $timeout);
            if($p>0){
                sysread($socket,$str,1024);
            }else{
             print "Timeout\n";
            }
            $buf .=$str;
            last if $str=~/\n?\.\r\n$/; #выходим когда получили точку
        }   
        print F $buf;
        while($buf=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g){ # filename, baby
            my $filename=$1;
            open S, ">$filename";
            close S;
        }
    }
}

Автор: dixoNICH 29.4.2011, 17:23

не работает, вообще ничего никуда не выводит. вот мой код, возможно у вас заработает smile

почта тестовая уже в коде есть

Код


$,="\n";
open F, ">mail.txt";
use IO::Socket; 
use Encode;
use MIME::Base64;
    my $host="pop.yandex.ru"; #хост #  print "Enter host please : ";my $host=<>;
    my $port=110; #
    my $login = "yaroslavlyzlov\n";
    my $password ="privetik\n"; 
##################<---------СОЕДИНЯЕМСЯ С СЕРВЕРОМ------->####################
        sub CONNECT {
        $socket =    IO::Socket::INET->new (
                    PeerAddr => $host,
                    PeerPort => $port,
                    Proto => "tcp",
                    Type => SOCK_STREAM)
                    or die "Can't connect to $host:$port, $!\n";
        }
        CONNECT;
#########################<----------АВТОРИЗАЦИЯ------------->######################### 
        sub AUTHORIZATION {
            my $invitation=<$socket>; #приглашение сервера (+OK,-ERR etc)
            print $socket "USER $login";  
                my $invitation=<$socket>; #print $invitation;
            print $socket "PASS $password"; 
                my $invitation=<$socket>; #print $invitation;
        }
        AUTHORIZATION; 
        open F, ">mail.txt";
        sub LISTandRETR {
    print $socket "LIST\n";
    my $invitation=<$socket>;
    $invitation=~/(\d+)\D+(\d+)/; # выделяем кол-во сообщений и их объём
    my $qt=$1; # колличество сообщений
    my $s=$2;  # объём почтового ящика
    my @list;
    while(1){
        my $str = <$socket>;
        push @list,$str;
        last unless $str=~/(\d+)/;
    }
    my $i=0;
    while($i<$qt) {
        $invitation=$list[$i];
        $i++;
        $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письм
        my $num = $1;
        my $size = $2;
        print "Number : $num\n";
        print "Octets : $size\n";
        my $let=$1;
#######################################################################
        print $socket "RETR $num\n";                
        my $str;
        my $buf;
        vec(my $win, fileno($socket), 1) = 1;
        my $timeout = 10;
        while(1){
            my $p = select($win, undef, undef, $timeout);
            if($p>0){
                sysread($socket,$str,1024);
            }else{
             print "Timeout\n";
            }
            $buf .=$str;
            last if $str=~/\n?\.\r\n$/; #выходим когда получили точку
        }   
        print  $buf;
        while($buf=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g){ # filename, baby
            my $filename=$1;
            open S, ">$filename";
            close S;
        }
    }
}
            
        
    
###################DELETE MESSAGE#################
        sub DELETE { #функция удаления сообщений 
            print "Remove any post?  Enter yes or no : ";
            $yes_or_no=<>;
            chomp $yes_or_no;
            if($yes_or_no eq "yes") {
                print "Select the number of messages you want to delete : ";
                $number_for_del=<>;
                print $socket "DELE $number_for_del\n";  
                    my $invitation=<$socket>; 
                    print $invitation;
            }    
        }
        DELETE;            
###################QUIT#################
        sub QUIT {    
            print $socket "QUIT\n"; 
                my $invitation=<$socket>;  
                print $invitation; 
        } 
        print "complete the pop3 session? Enter yes or no, please : ";
        $quit=<>;
        chomp $quit;
        if($quit eq "yes"){QUIT;}

Автор: shamber 29.4.2011, 22:41

Вот вы все равно упорствуете. посмотрите. что я вам написал нулевым пунктом?

Код


use strict;

Дальше ваши ошибки

Код


Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 22.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 23.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 24.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 25.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 26.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 31.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 32.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 38.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 53.
Global symbol "$socket" requires explicit package name at C:\Perl\!My\vingrad\trest.pl line 56.
Global symbol  ...\test.pl aborted due to compilation errors.

Потом сравните мою 39 строку и вашу 68. Дальше писать?
И кстати, что за странный способ писать подпрограмму, а потом ее вызвать?(Да и еще забывать ее вызывать?)
Во вложении почту узнаете?

Добавлено @ 22:51

Код


use strict;
use IO::Socket::INET; 
use Encode;
use MIME::Base64;
    my $host="pop.yandex.ru"; #хост #  print "Enter host please : ";my $host=<>;
    my $port=110; #
    my $login = "yaroslavlyzlov\n";
    my $password ="privetik\n";
    my $socket;
    open F, ">mail.txt";
    CONNECT();
    AUTHORIZATION();
    LISTandRETR();
##################<---------СОЕДИНЯЕМСЯ С СЕРВЕРОМ------->####################
        sub CONNECT {
        $socket =    IO::Socket::INET->new (
                    PeerAddr => $host,
                    PeerPort => $port,
                    Proto => "tcp",
                    Type => SOCK_STREAM)
                    or die "Can't connect to $host:$port, $!\n";
        }
#########################<----------АВТОРИЗАЦИЯ------------->######################### 
        sub AUTHORIZATION {
            my $invitation=<$socket>; #приглашение сервера (+OK,-ERR etc)
            print $socket "USER $login";  
            $invitation=<$socket>; #print $invitation;
            print $socket "PASS $password"; 
            $invitation=<$socket>; #print $invitation;
        }

sub LISTandRETR {
    print $socket "LIST\n";
    my $invitation=<$socket>;
    $invitation=~/(\d+)\D+(\d+)/; # выделяем кол-во сообщений и их объём
    my $qt=$1; # колличество сообщений
    my $s=$2;  # объём почтового ящика
    my @list;
    while(1){
        my $str = <$socket>;
        push @list,$str;
        last unless $str=~/(\d+)/;
    }
    my $i=0;
    while($i<$qt) {
        $invitation=$list[$i];
        $i++;
        $invitation=~m/(\d+)\s(\d+)/; # для вывода номера и размера письм
        my $num = $1;
        my $size = $2;
        print "Number : $num\n";
        print "Octets : $size\n";
        my $let=$1;
#######################################################################
        print $socket "RETR $num\n";                
        my $str;
        my $buf;
        vec(my $win, fileno($socket), 1) = 1;
        my $timeout = 10;
        while(1){
            my $p = select($win, undef, undef, $timeout);
            if($p>0){
                sysread($socket,$str,1024);
            }else{
             print "Timeout\n";
            }
            $buf .=$str;
            last if $str=~/\n?\.\r\n$/; #выходим когда получили точку
        }   
        print F $buf;
        while($buf=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g){ # filename, baby
            my $filename=$1;
            open S, ">$filename";
            close S;
        }
    }
}

Вообщем, ищите отличия, в них вся соль.

Автор: dixoNICH 1.5.2011, 01:02

извините за мою не компетентность smile

огромное спасибо за помощь!

Автор: shamber 1.5.2011, 01:45

Пожалуйста.