Исходное сообщение
"awk быстрее perl ?" Отправлено greenwar, 16-Ноя-09 12:09
>согласен, изначально был chomp, в ходе эксперимента заменил на chop, выиграл 1 >сек странно.. по идее работают по одному принципу >>>  $_  = substr( $_, index($_,':')+2 ); >> >>а где гарантия, что будет именно 2 символа в конце строки? даже >>в примере есть далеко не 2 > >тут не то, ищем где стоит дветочие и отрезаем его и пробел >за ним >т.е. убираем название параметра, оставляя только значение а index и регекспы разными механизмами находят двоеточие в строке? >>так и регуляркой можно было строгать треть строк мимо.. было бы быстрее >>:) >>к тому же, вы несложную регулярку на 3 функции заменили.. шило на >>мыло имхо > >7 сек из 29 = 24%, далеко не шило >в регулярке больше работает комп, в моем случае - программист хорошо, если так, но пока не ясно, откуда такая большая разница между index и регекспом. ищут одно и тоже, а механизмы настолько разные? полезная тема для познания дао оптимизации >>>  if( ord($_) == 110 ) { >> >>регуляркой это: /: \D+$/ > >нет, это проверка что первый символ в строке равен 'n' >взято из идеологии си, там строка является массивом и работает конструкция string[0] >== 'n' нутк /: \D+$/ означает любое НЕ число после двоеточия. если он встретит там туже букву 'n', сработает if