Brother Rabbit написал(а) к Mikhail Stakhanov в Mar 19 09:59:06 по местному времени:

Нi, Mikhail!

09 мар 19 10:13, Mikhail Stakhanov -> Brother Rabbit:

MS> Проблема в том что для areafix тоже все уходит на .1

Для меня это не проблема. Я просматриваю такие письма.

MS> а почему так не работает ? (тестирую, всеравно пересылает)
MS> кстати, перл к регистру букв восприимчив же ?

Да.

MS> my @rotobs =
MS> ("areafix","Areafix","AreaFix","filefix","Filefix","FileFix"); my $priznak
MS> = 0;

Зачем так? Есть же предефайнед переменная $config{areafixNames}. Остется в конфиге их описать.

MS> sub filter
MS> {
MS> $priznak = 0;
MS> for my $test1 (@robots)
MS> {
MS> if ($test1 eq $toname)
MS> {
MS> $priznak=1;
MS> }
MS> }
MS> if (!defined $area && $priznak == 0)
MS> {
MS> .........

Не-не-не.

Или вот так:

if ( $toname eq $config{sysop} ) {
#do smth. here
}

Или вот так:

sub istorobots()
{
my ($name) = @_;
for my $cfg_name ( @{$config{areafixNames}} ) {
if( $name eq $cfg_name ) {
return 1;
}
}
return 0;
}

sub filter()
{
# .......

if ( istorobots( $toname ) == 0 ) {
#do smth. here
}

# .......
}


Нave nice nights.
Brother Rabbit.

--- Если ложка не стоит в сметане, очевидно, виновата не ложка!