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