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 =======================