Posted By: RoboShim (ICQ #: 166 703 40) on 'CZscripts' Title: Re: dotaz Date: Mon Jan 18 17:06:38 1999 > awk to umi ....ale ten zase nepocita v 60-kovy soustave .,..protoze ja to > potrebuju prepocitat na minuty hodiny a tak a to je sedesatkova soustava *** Tak si to holt prepoctu sam, ne? Jenze!! posledni polozka v case neni v 60 soustave. 64 a 60 o tom svedci. Takze na konci tohohle postu je skript, kterej mi "fungoval" a ve kterym se uvazuje delka posledni hodnoty do 80, tam si nastav maximalni hodnotu pro posledni pole (mam dojem, ze to jsou frame, ale nevim, jaky maji hodnoty) > kdyz dostanu takovejhle vypis , tak a ted mi reknete jak de spocitat ten > celkovej soucet mezer ..r.espektive hodil by se mi ten script :-)))) *** tady je, snad to bude fungovat. Mel bys zmenit hodnotu u peti hvezdicek. Cau. RoboShim. ============= secti.pl ================== #!/usr/bin/perl # uprav cestu k perlu $delka=80; # ***** sem se doplni velikost posledniho pole $celkem=0; # celkova delka mezer $zacatek=0; # zacatek pisnicky $konec=0; # konec pisnicky while (<>) { # lze pouzit secti.pl casy_pisnicek.txt chomp; # odstranit enter if (/trackd+.start:s+(d{2}):(d{2}):(d{2})/) { # pokud je zacatek $zacatek=$1*60*$delka+$2*$delka+$3; # nastav promennou print "Z: $zacatek ($1:$2:$3)"; # vytisknout pro kontrolu printf "-- %02d:%02d:%02d --n",int($zacatek/($delka*60)), ($zacatek %($delka*60))/$delka,($zacatek %($delka*60))%$delka; if ($konec>0) {$celkem+=($zacatek-$konec);}; # pokud jiz byla nejaka # pisnicka, pricte se mezera }; if (/trackd+.duration:s+(d{2}):(d{2}):(d{2})/) { # kdyz je doba $konec=$zacatek+$1*60*$delka+$2*$delka+$3; # vypocte se konec pisnicky print "K: $konec ($1:$2:$3)"; # kontrolni tisk printf "-- %02d:%02d:%02d --n",int($konec/($delka*60)), ($konec %($delka*60))/$delka,($konec %($delka*60))%$delka; }; }; # a vytisknout printf "Celkem mezery: %02d:%02d:%02dn",int($celkem/($delka*60)), ($celkem %($delka*60))/$delka,($celkem %($delka*60))%$delka; ============= konec secti.pl =======================