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
|