Готовый пример на группировку в парсеровских таблицах

ISO 13.03.2003 13:08

Вчера обсуждали эту тему, вот мой пример...

Прога Rasman ведёт у меня статистику диал-ап коннектов. Строка выглядит так:
UkrNet 24-02-2003 21:21:15 00:00:07 24-02-2003 21:21:22 00:54:53 24-02-2003 22:16:15 19200 354371 2649882 Rockwell 56000 External Modem PnP

Написал скрипт, который считает время коннекта через каждое соединение и вцелом за каждый день.

$t[^table::load[nameless;rasman.txt]]
^t.sort{$m[^t.1.match[(\d\d)-(\d\d)-(\d\d\d\d)]]${m.3}${m.2}${m.1}$t.0}[desc]

^t.menu{
	$mat[^t.6.match[(\d\d):(\d\d):(\d\d)]]
	$sec($mat.3+$mat.2*60+$mat.1*3660)
	
	^if($t.0 ne $prov || $t.1 ne $date){
		^if(def $prov){$prov $date ^eval($s/3600)<br/> ^if($t.1 ne $date){<b>$date ^eval(($s2+$s)/3600)</b><br />$s2(0)}{$s2($s2+$s)}}
		$prov[$t.0]
		$date[$t.1]
		$s($sec)
	}{
		$s($s+$sec)
	}
}

---