Posted By: Koles () on 'CZscripts'
Title:     Re: dotaz
Date:      Mon Jan 18 18:48:34 1999

>     if ($konec>0) {$celkem+=($zacatek-$konec);}; # pokud jiz byla nejaka 
>       # pisnicka, pricte se mezera

nebylo by jednodussi secist jednotlivy durejsny a pak je 
odecist od durejsnu celkovyho? :)

napr 

while (<STDIN>) {
    ($th, $tm, $ts) = ($1, $2, $3) if /album.duration: (d+):(dd):(dd)/;
    if (/track..duration: (d+):(dd):(dd)/) {
        $ph += $1;
        $pm += $2;
        $ps += $3;
    }
}

$sp = 3600*$th + 60*$tm + $ts - 3600*$ph - 60*$pm - $ps;
print "v mezerach se skryva $sp se<|>n";

  pavel