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

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

Ответ на сообщение Brother Rabbit (2:460/5858) к Mikhail Stakhanov, написанное 10 мар 19 в 09:59:
Спасибо.
BR> Зачем так? Есть же предефайнед переменная $config{areafixNames}.
BR> Остется в конфиге их описать.
а где все предефайнел переменные посмотреть ?
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>> .........
так работает :)

BR> Не-не-не.
???
BR> Или вот так:

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

BR> Или вот так:

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

BR> sub filter()
BR> {
BR> # .......

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

BR> # .......
BR> }

И так работает :) Спасибо!

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