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

Здравствуйте, Brother!

Ответ на сообщение Brother Rabbit (2:460/5858) к Michael Dukelsky, написанное 24 янв 19 в 17:22:

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

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

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

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



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