Alexey Vissarionov написал(а) к Mikhail Stakhanov в Mar 19 11:11:00 по местному времени:

Доброго времени суток, Mikhail!
09 Mar 2019 10:13:10, ты -> Brother Rabbit:

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

use strict;

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

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

Вот и ошибка... а режим strict ее выловил бы.

MS> my $priznak = 0;

Как мне развидеть эту строчку?

MS> sub filter
MS> {
MS> $priznak = 0;
MS> for my $test1 (@robots)

man perlfunc
/grep

MS> {
MS> if ($test1 eq $toname)
MS> {
MS> $priznak=1;
MS> }
MS> }
MS> if (!defined $area && $priznak == 0)
MS> {
MS> .........




--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii

... Профессионализм - умение оценить меру своей некомпетентности
--- /bin/vi