Тема: perl
Показать сообщение отдельно
  #2  
Старый 23.10.2016, 14:41
Michael Dukelsky
Guest
 
Сообщений: n/a
По умолчанию perl

Michael Dukelsky написал(а) к Stas Mishchenkov в Oct 16 13:32:32 по местному времени:

Привет, Stas!

23 Oct 16 00:38, Stas Mishchenkov послал(а) письмо к All:

SM> sub route
SM> {
SM> if ( $text =~ /\r\x01%RouteTo\: (\d+\:\d+\/\d+)\r/i) {
SM> ( $routeto ) = ( $1 );
SM> $text =~ s/\x01%RouteTo\:/\x01Routed To/s;
SM> $change=1;
SM> $$flavour = "direct";
SM> $route = $routeto;
SM> }

SM> return $route;
SM> }

SM> По чему все равно роутится с флавором Нold? ЧЯНТД?

1. В строчке ( $routeto ) = ( $1 ); скобки лишние. Достаточно написать
$routeto = $1;
2. В строчке $$flavour = "direct"; слишком много долларов. :) Надо
$flavour = "direct";
3. Ну и, вообще говоря, переменная $routeto лишняя.

Желаю успехов, Stas!
За сим откланиваюсь, Michael.

... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20151128
Ответить с цитированием