Тема: perl
Показать сообщение отдельно
  #3  
Старый 27.10.2016, 02:11
Stas Mishchenkov
Guest
 
Сообщений: n/a
По умолчанию perl

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

Нi, Michael!

23 окт 16 13:32, Michael Dukelsky -> Stas Mishchenkov:

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? ЧЯНТД?

MD> 1. В строчке ( $routeto ) = ( $1 ); скобки лишние. Достаточно написать
MD> $routeto = $1;

Но значение переменной не меняется же? Просто там было больше переменных в черновике...

if ( $text =~ /\r\x01%RouteTo\: (\d+\:\d+\/\d+) at (\d+\:\d+\/\d+)\r/i)

MD> 2. В строчке $$flavour = "direct"; слишком много долларов. :) Надо
MD> $flavour = "direct";

О! Спасибо. Копипаста подвела. :(

MD> 3. Ну и, вообще говоря, переменная $routeto лишняя.

Опять же, в черновике болше кода, $1 уже не то, а значение еще нужно, да, и читабельней код получается.

Нave nice nights.
Stas Mishchenkov.

SEEN-BY: 46/12 50/15 240/1120 250/25 451/30 455/19 460/57 58 777 1124 461/48
SEEN-BY: 461/58 463/68 822 877 1104 1113 1124 1331 3232 466/50 466 469/418
SEEN-BY: 4600/140 4614/20 4624/8 4641/222 5000/111 5005/49 5010/352 5015/42 46
SEEN-BY: 5019/40 42 400 5020/101 113 290 545 570 620 715 723 814 828 830 846
SEEN-BY: 5020/848 849 921 961 982 1042 1067 1853 2047 2140 2992 3274 4096 4441
SEEN-BY: 5020/5452 5480 8080 8181 12000 5022/5 128 5023/24 5028/63 5029/32
SEEN-BY: 5030/115 830 1474 5034/13 5037/28 5042/13 5050/55 151 5051/41 5052/4
SEEN-BY: 5053/7 54 57 58 5054/89 5057/19 70 5060/900 5061/15 5064/56 5068/45
SEEN-BY: 5075/35 5083/444 6001/10 6035/1 6056/1 6070/109 6090/1
Ответить с цитированием