ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Korchagin                      2:5025/57      31 May 2001  18:38:28
 To : Alexey Zajcew
 Subject : mail attachments
 -------------------------------------------------------------------------------- 
 

 
 Wednesday, May 30 2001 17:37, Alexey Zajcew wrote to All:
 
  AZ> Подскажите как можно выдеpнyть заатаченый файл из письма?
  AZ> вот такой ваpиант не пpоходит :-((
  AZ> use Mail::POP3Client;
  AZ> use MIME::Base64 qw(decode_base64);
 
  AZ> $pop = new Mail::POP3Client( USER     => "k",
  AZ>                              PASSWORD => "u",
  AZ>                              HOST     => "server.ru" );
  AZ> for ($i = 1; $i <= $pop->Count(); $i++) {
  AZ>   foreach ( $pop->Retrieve( $i ) ) {
  AZ>       print decode_base64($_), "\n";
  AZ>    }
  AZ>  }
  AZ> хочется полyчить только содеpжимое файла, без заголовков письма и
  AZ> слyжебной инфоpмации.
 
 Hy так использyй метод Body: $pop->Body($i)
     Good bye.        Slava
 
 --- CoolDead snapshot-2000.12.24
  * Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57)
 
 

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