filer.pl

Mikhail Stakhanov написал(а) к All в Mar 19 17:00:44 по местному времени:

Здравствуйте, All!
и всетаки:
$priznak = 0;
for my $test1 (@robots)
{
if ($test1 eq $toname)
{
$priznak=1;
}
}
if (!defined $area && $priznak == 0)
{
# it is netmail
#--- copy my mail --------------
for my $config_addr (@{$config{addr}})
{
if( $toaddr eq $config_addr )
{
$text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$text =~ s/\x01TOPT \d+\r//;
for my $daddr (@destaddr)
{
if ( $fromaddr ne $d_addr )
{
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$d_addr, $subject, $date, $attr,
"\001Rem: copy from $configaddr to $daddr\r$text", 2 );
$change = 1;
}
...
Работает так:
1е письмо приходит на 932.1 с
\001Rem: copy from 932 to 932.1" 1 строка
2е письмо приходит на 932.1:
\001Rem: copy from 932 to 932.2" 2 строки
\001Rem: copy from 932 to 932.1"
3е письмо приходит на 932.2:
\001Rem: copy from 932 to 932.2" 2 строки
\001Rem: copy from 932 to 932.1"

почесу цикл выполняется 3 раза ?



Всего наилучшего, Mikhail
--- GoldED+/W32-MINGW 1.1.5-b20120519