remap & recived

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

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

Ответ на сообщение Alexey Vissarionov (2:5020/545) к Mikhail Stakhanov, написанное 09 мар 19 в 11:11:

AV> use strict;
понял
MS>> my @rotobs =
AV> ^^^
AV> Вот и ошибка... а режим strict ее выловил бы.
увидел
MS>> my $priznak = 0;
AV> Как мне развидеть эту строчку?
ну типа объявляю и даю начальное значение, не так ?

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

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.

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

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

Нi, Mikhail!

09 мар 19 12:09, Mikhail Stakhanov -> Alexey Vissarionov:

MS>>> my $priznak = 0;
AV>> Как мне развидеть эту строчку?

MS> ну типа объявляю и даю начальное значение, не так ?

Типа my $sign = 0; или my $flag = 0; ;)

Нave nice nights.
Brother Rabbit.

--- Свободная баба должна показывать сиськи. Замужняя не должна,но тоже вправе

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

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

Нi, Mikhail!

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

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

MS> а где все предефайнел переменные посмотреть ?

doc\perlhooks.rus

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>>> .........

MS> так работает :)

BR>> Не-не-не.

MS> ???

Так не нужно делать. ;)

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>> }

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

Не за что. ;)

Нave nice nights.
Brother Rabbit.

--- Самое страшное не то, что мы теперь взрослые. А то, что взрослые теперь мы