Program na sčítání časů

Tue Jul 25 16:34:17 CEST 2000

On Wed, 19 Jul 2000 23:51:11 +0200, Antonín Hráček <tony.lee at cmail.cz> wrote:
> Jestli máte někdo takový prográmek, ke kterému třeba napíšu textový soubor:
> 
> 01.0,15,52
> 02.0,18,17

...

> 11.0,22,11
> 12.0,21,85
> 
> a on mi to sečte, prosím, ozvěte se mi. (časů bude samozř. mnohem více)

$ perl -ne '/^\d{2}\.(\d+),(\d+),(\d+)\n/ and $total += 60 * $1 + $2 + .01 * $3; END {print "$total\n"}'

23 Kc.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton at fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------