Brother Rabbit написал(а) к Michael Dukelsky в Jan 19 17:22:32 по местному времени:

Нi, Michael!

21 янв 19 18:05, Michael Dukelsky -> Brother Rabbit:

MD>> Дело не в "красивше".

MD> Чтобы не быть голословным, переписал твой скрипт в соответствии со своим
MD> предыдущим письмом. Написанное не проверял.

MD> my @dest_addr=
MD> (
MD> 2:460/5858,
MD> 2:460/58.58,
MD> 2:460/58.10,
MD> );

MD> sub filter()
MD> {
MD> if (!defined $area)
MD> {
MD> # it is netmail
MD> #--- copy my mail ---------------
MD> for my $config_addr (@{$config{addr}})
MD> {
MD> if( $toaddr eq $config_addr )
MD> {
MD> $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
MD> $text =~ s/\x01TOPT \d+\r//;
MD> for my $destaddress (@destaddr)
MD> {
MD> if ( $fromaddr ne $dest_address )
MD> {
MD> putMsgInArea( "NetMail", $fromname, $toname,
MD> $fromaddr,
MD> $dest_address, $subject, $date,
MD> $attr,
MD> "\001Rem: copy to
MD> $dest_address\r$text", 2 );
MD> $change = 1;
MD> }
MD> }
MD> }
MD> }
MD> #--- copy my mail end ---------------
MD> }
MD> }

Сделал вот так:

#!/usr/bin/perl

@my_aka = qw(
2:460/5858
2:460/58.58
2:460/58.10
);


sub filter()
{
# [... some stuff skipped ...]
#
#--- copy my mail ---------------
if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) {
$text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s;
$text =~ s/\x01TOPT[ ]\d+\r//s;
for my $daddrr (@myaka){
if ( $fromaddr ne $daddrr && $toaddr ne $daddrr) {
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$d_addrr, $subject, $date, $attr,
"\001Rem: copy to $d_addrr\r$text", 2 );
# $change = 1;
$newnet=1;
}
}
}
#--- copy my mail end ---------------
#
# [... some stuff skipped ...]
}

# ---- my subs -----

sub istous()
{
my ($addrr) = @_;
return 1 if !defined($addrr);
for my $cfg_addr ( @{$config{addr}} ) {
if( $addrr eq $cfg_addr ) {
return 1;
}
}
return 0;
}

sub istoaka()
{
my ($addrr) = @_;
for my $daddr (@myaka){
if( $addrr eq $d_addr) {
return 1;
}
}
return 0;
}



Нave nice nights.
Brother Rabbit.

--- Не откладывай пьянку на завтра, а секс на старость.