LINUX.ORG.RU

Perl и работа с почтой !


0

0

Привет ! Проконсультируйте, пожалуйста. Необходимо чтобы Перловый скрипт получал почту с определенного локального ящика, обрабатывал заголовок письма значение Message-Id, а затем переправлял письмо на другой локальный ящик + приписывал в поле subject слово "CHECK" !!! Нужно срочно, может быть кто - нибудь напишет примерный скриптик, ПОЖАЛУЙСТА !

anonymous

Re: Perl и работа с почтой !

скрипт, логинящийся и читающий почту(но не забирающий с сервера), как дальше, смотри man Net::POP3 

#!/usr/bin/perl

use Net::POP3;

$p=Net::POP3->new("tv.server.ru")
  or die "cant open connection to server: $!\n";
$p->login("test","rusalka") or die "Cant  authentificate: $!\n";
$m=$p->list or die "cant get list of undeleted mesg: $!\n";
foreach $list(keys %$m){
$msg=$p -> get($list);
print "@$msg\n";
}

vilfred ☆☆ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.