ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Edward Yudanov                       2:5007/11.35   07 Sep 2004  23:10:46
 To : Artem Chuprina
 Subject : Re: Mail::POP3Client
 -------------------------------------------------------------------------------- 
 

 
 Как сейчас помню Tue, 07 Sep 2004 17:50:14 +0800 ты писал(а):
 
  EY>> Hаписал скриптик с использованием Mail::POP3Client, понадобилось
  EY>> отправлять отчёт не только мэйладмину, но и тому, кто писал сообщение, то
  EY>> есть нужно выдрать из поля "From:" обратный адрес в переменную и включить
  EY>> её в поле "Cc:" сформированного скриптом сообщения. Посему вопрос --
  EY>> подскажите как из поля "From:" выдрать адрес вида user@host.ru?
  AC> Через Mail::Header
 
 С помощью mail_from? Если да, то приведи пожалуйста пример... 
 Hу если я непонятно объяснил, то вот текст скриптика:
 
 ===============================================
 #!/usr/bin/perl -w
 use Mail::POP3Client;
 
 $pop = new Mail::POP3Client( USER     => $myuser,
                              PASSWORD => $mypass,
                              HOST     => $myhost );
   for ($i = 1; $i <= $pop->Count(); $i++) {
   foreach ( $pop->Head( $i ) ) {
 if (/^(Subject: HBR)$/i) {
 # Здесь должно быть выдирание адреса из поля "From:"
 # и присваивание его переменной $address
 foreach ( $pop->Body( $i ) ){
 if (/^(.+?):(.+?)\/(.+?).(.+?)$/) {
 open BASE,">>$base" || die $!;
 print BASE $_,"\n";
 close(BASE);
 
 $pop->Delete($i);
 
 open (MAIL,"|/usr/lib/exim -t") || die $!;
 print MAIL "To: Edward Yudanov <edward\@edward.ru>\n";
 print MAIL "From: Robot <robot\@edward.ru>\n";
 # Здесь мы должны вставить переменную $address
 print MAIL "Cc: ",$address,"\n";
 print MAIL "Subject: New user in base!\n";
 print MAIL "Content-Type: text/plain; charset=\"koi8-r\"\n\n";
 print MAIL "Added: ",$_,"\n.\n";
 close(MAIL);
 }}}}}
 
 $pop->Close();
 
 ===============================================
 
 -- 
 
 |> Limp Bizkit - Stuck
 
 --- slrn/0.9.8.0-Edward (Linux)
  * Origin: [ RLU #316941  http://fido.khakassia.ru/ ] (2:5007/11.35)
 
 

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