remap & recived

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.

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