forum.opennet.ru

Составление сообщения

Исходное сообщение

"awk быстрее perl ?"
Отправлено Vladin, 14-Ноя-09 22:52

+1
перл быстрее
у меня время на 300М файле по этим скриптам
awk: 1 мин 40 сек
perl: 29 сек
вариант без регулярок: 22 сек
open(FH,"infile");
open(NEW,">outfile");
while(<FH>){
  chop;
  $_  = substr( $_, index($_,':')+2 );
  if( ord($_) == 110 ) {
    print NEW "\n$_";
    next;
  }
  print NEW ":$_";
}

Исходное сообщение
"awk быстрее perl ?" Отправлено Vladin, 14-Ноя-09 22:52
+1 перл быстрее у меня время на 300М файле по этим скриптам awk: 1 мин 40 сек perl: 29 сек вариант без регулярок: 22 сек open(FH,"infile"); open(NEW,">outfile"); while(<FH>){ chop; $_ = substr( $_, index($_,':')+2 ); if( ord($_) == 110 ) { print NEW "\n$_"; next; } print NEW ":$_"; }

Ваше сообщение

Имя*:

EMail:

Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, [email protected] (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.

Заголовок*:

Сообщение*:

При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру