есть такая тулза, называется perl

А в чем профит С в данной задаче?
Например на перле, без всех твоих ограничений, примерно так:

#!/usr/bin/perl

use strict;

my $file = shift;
my $sum = 0;
my $count = 0;

open(FILE, "<", $file)
or die("Can't open file $file: " . $!);

while (my $line = <FILE>) {
while ($line =~ /Time\[(\d+)ms\]/g) {
$sum += $1;
$count++;
}
}

close(FILE);

print "$sum/$count=" . $sum/$count . "\n";

сурово

$count на ноль не проверил, так меня впечатлила твоя маленькая программка.
Ты R00T'а случаем не знаешь?

Надо бы тоже завести себе фейковую асеч^Wаккаунт и троллить местных лиспофагов сиплюсплюсом, а остальных - турбопаскалем и вба.

Очень рекомендую почитать что-нибудь про стандартные утилиты (coreutils, moreutils, sed, awk и т.д.), а так же про программирование шелл-скриптов.

Вот заменитель для всей твоей программы:

num=$(( $( cat logfile | grep -oe "\[[0-9]*ms\]" | wc -l ) )); cat logfile | grep -oe "\[[0-9]*ms\]" | ( printf "("; sed "s/^\[\([0-9]*\)ms\]$/\1+/" | tr -d "\n"; echo "0)/${num}" ) | bc -l

>Надо бы тоже завести себе фейковую асеч^Wаккаунт и троллить местных лиспофагов сиплюсплюсом, а остальных - турбопаскалем и вба.

Да, не стоит - быстро приестся.

Извините, но это полный п.

http://www.catb.org/esr/writings/unix-koans/ten-thousand.html

> num=$(( $( cat logfile | grep -oe "\[[0-9]*ms\]" | wc -l ) )); cat logfile | grep -oe "\[[0-9]*ms\]" | ( printf "("; sed "s/^\[\([0-9]*\)ms\]$/\1+/" | tr -d "\n"; echo "0)/${num}" ) | bc -l

на perl всё ж проще и без лишнего cat,grep:

cat logfile | perl -e '$lc=$lm=$sum=0; while(<>){ if( /Time\[(\d+)ms\]/ ) { $sum+=$1; $lm++; } $lc++; } print "total lines: $lc\nmatched: $lm\nsumm: $sum\n"; print "avg: ".( $sum / $lm )."\n" if( $lm );'

> Вот заменитель для всей твоей программы:

> num=$(( $( cat logfile | grep -oe "\[[0-9]*ms\]" | wc -l ) )); cat logfile | grep -oe "\[[0-9]*ms\]" | ( printf "("; sed "s/^\[\([0-9]*\)ms\]$/\1+/" | tr -d "\n"; echo "0)/${num}" ) | bc -l

А на lex'е-то покороче будет... Тем более, автор так Си любит ;)

Вот вариант на lex'е:

%{
	int total = 0;
%}
%%
Time\[([0-9]+)ms\]	total += atoi(yytext + 5);
.
%%

int yywrap ()
{
	return 1;
}

int main()
{
	yylex();
	printf("total = %d\n", total);
	return 0;
}

Автор, не пиши парсеры на Си!

толсто

Предлагаю придумать максимально короткий вариант на любом Я.П.! Имя файла с логами - logfile. Программа должна просто вывести число (среднее значение). Производительность значения не имеет.

Мой вариант на шелле:

C="grep -o '\[[0-9]*ms\]' logfile";n=$(eval $C|wc -l);eval $C|(printf "(";grep -o "[0-9]*"|tr "\n" "+";echo "0)/$n")|bc -l

123 символа =).

C="grep -o '\[[0-9]*ms\]' logfile";eval $C|(printf "(";grep -o "[0-9]*"|tr "\n" "+";echo "0)/$(eval $C|wc -l)")|bc -l

117 символов! =)

C="grep -o '\[[0-9]*ms\]' logfile";eval $C|(echo "($(grep -o "[0-9]*"|tr "\n" "+")0)/$(eval $C|wc -l)")|bc -l

109, подозреваю что меньше - никак.

Проще завести тсудента-практиканта, а лучше практикантку.

отпусти меня, чудо-трава!!!11

C="grep -o \[[0-9]*ms\] logfile";eval $C|(echo "($(grep -o [0-9]*|tr "\n" +)0)/$(eval $C|wc -l)")|bc -l

103!!!

никак не отпускает!

C="grep -o \[[0-9]*ms\] logfile";eval $C|(echo "($(tr -d [ms]|tr "\n" +)0)/$(eval $C|wc -l)")|bc -l

99

Да покури уже наконец man awk.

перед этим он изобретет rm -rf /* на sed

> Имя файла с логами - logfile.

Лишняя сущность. Лог брать из stdin.

>C="grep -o \[[0-9]*ms\] logfile";eval $C|(echo "($(tr -d [ms]|tr "\n" +)0)/$(eval $C|wc -l)")|bc -l > 99

cat logfile|perl -e 'while(<>){if(/\[(\d+)ms\]/){$a+=$1;$b++;}}print $a/$b;'

76

> 99

93

%option noyywrap
%{
i;
%}
%%
[0-9]+m i+=atoi(yytext);
.
%%
main(){yylex();printf("%d\n",i);}

> 76

В одной строке много значений может быть.

> В одной строке много значений может быть.

cat logfile|perl -e 'while(<>){while(s/\[(\d+)ms\]//){$a+=$1;$b++;}}print $a/$b;'

81

Можно еще соптимизировать слегка:

perl -e 'while(<>){while(/\[(\d+)ms\]/g){$a+=$1;$b++;}}print $a/$b;' logfile

75

Перл всё-таки рулит =).

http://cboard.cprogramming.com/c-programming/117407-little-program-get-time-l...

народ вы молодцы! ) 1. мне очень понравилась притча. она подходит к ситуации идеально ;) 2. честно говоря ожидал услышать кучу наездов на код, и в общем-то интересно было про алгоритм, но все пошли другим путём. 3. ссылка на аглицкий форум - там тоже мой пост.

какой я для себя сделал вывод - нужно восполнить пробел и хорошо разобраться в шелл скриптах, чтобы не страдать такой фигнёй )

#include <QFile>
#include <QRegExp>
#include <stdio.h>

int main() {
	QFile f;
	QRegExp r( "(\\d+)ms" );
	f.open( stdin, QFile::ReadOnly );
	int a=0, b=0, c;
	while( !f.atEnd() ) {
		c = 0;
		QString l = f.readLine();
		while( ( c = r.indexIn( l , c ) ) != -1 ) {
			a += r.cap(1).toInt();
			b++;
			c += r.matchedLength();
		}
	}
	printf( "%d\n", a/b );
	return 0;
}

>> perl -e
>> 75
>  Перл всё-таки рулит =).

Таки мы с shell+coreutils рулим :-)
61
grep -Eo '[0-9]+ms' logfile|awk -Fm '{a+=$1};END{print a/NR}'

> 61
> grep -Eo '[0-9]+ms' logfile|awk -Fm '{a+=$1};END{print a/NR}'

Можно сэкономить ещё два символа - убрать кавычки у шаблона grep'а =).

Не, шелл может подставить файл, если таковой будет в тек.директории, по шаблону [0-9]+ms

Желаете наезды на код? Ладно покормлю вас, раз так старались.

>нет поддержки связанных списков для файлов неопределённого размера

а зачем вы вобще записываете числа в массив? Нашли число, сразу печатайте его.

>printf("[error] value found is too big. \n");

Сообщения об ошибках принято выводить на stderr. Незнаю зачем, но так принято.

>нужно восполнить пробел и хорошо разобраться в шелл скриптах

Ещё можете восполнить пробел в библиотечных функция GNU libc, например, strstr() --- поиск подстроки в строке и strtol() --- аналог atoi, но установит errno при большом числе и даёт указатель на первую "не цифру" в строке.

>grep -Eo '[0-9]+ms' logfile|awk -Fm '{a+=$1};END{print a/NR}'

А точку с запятой перед END разве нельзя убрать? И пробел перед awk-скриптом.

grep -Eo '[0-9]+ms' logfile|awk -Fm '{a+=$1};END{print a/NR}'

можно сократить до

egrep -o '[0-9]+ms' logfile|awk '{a+=$1}END{print a/NR}'

Дайте уж и я внесу свою лепту =) GNU Smalltalk:

| f t c|
t := 0.0.
c := 0.
f := (File name: 'logfile.txt') readStream.
f linesDo: [:line |
    time := (line tokenize: ' ') last.
    t := t + (time copyFrom: ((time indexOf: $[) + 1)
                         to: ((time indexOf: $m
                                 startingAt: (time indexOf: $[)) - 1))
             asInteger.
    c := c + 1.
].
f close.
(t / c) print.

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

> эта програмка, если никто не заметил, позволяет задавать последовательность, после которой встречаются нужные цифры, почему то во всех примерах такого функционала не наблюдается ;)

Это последовательность добавляется в шаблон grep'а.

Ну, я отталкивался и тестил всё на том примере что с того другого форума. GNU Smalltalk тоже поддерживает регекспы кстати, да, и эту последовательность можно так же легко задать как и в предыдущих однострочниках

> Незнаю зачем, но так принято.

затем, что stderr не буферизуется и если случится страшное, то это ты сразу увидешь

>числа заносятся в массив чтобы посчитать сумму

И сумму считать можно сразу, массив или динамический список не нужен.

И ещё, ИМХО, сообщение вашей программы "this is a help for timefromlog program.\nfirst param: ..." сильно отличаются от общего стиля утилит командной строки. Позапускайте другие утилиты и посмотрите как они "ругаются".

ИМХО, лучше было бы что-то вида "Usage: timefromlog FILE STRPEFIX\nSearch time strings with STRPEFIX in FILE and print there sum and mean." Понятно, что это вы писали для себя, но лучше сразу стараться соблюдать общий стиль.

> 75

perl -E 'map{$b++,$a+=$1 while/(\d+)ms/g}<>;say$a/$b' logfile

61. перл 5.10.0+. короче уже не могу =(

> 61

perl -E 'map{$b+=s/(\d+)ms/$a+=$1/ge}<>;say$a/$b' logfile

57. теперь точно не смогу =)

> 57

perl -E '$b+=s/\d+ms/$a+=$&/ge for<>;say$a/$b' logfile

54…

Какой забавный выхлоп из /dev/random, все байты - printable...

гениальный у меня /dev/random, правда? ;) скоро он напишет скайнет и захватит мир :Р

А мой императивный быдлокод на Смолтоке без регекспов всё равно читабельнее и понятнее чем эти ваши однострочники)))

Твой вариант

perl -E '$b+=s/\d+ms/$a+=$&/ge for<>;say$a/$b' logfile

у меня не пошел -- опции Е нет и say ругается, так что вот:

perl -e'map{$b+=s/\d+ms/$a+=$&/ge}<>;print$a/$b' logfile

> Какой забавный выхлоп из /dev/random, все байты - printable...

Когда я не знаю, как решить задачу на перле, запускаю strings /dev/urandom | less и задумчиво листаю... а вы с вашими неправильными языками такой подсказки лишены!