(HEAD_BLOCK) print("Pragma: no-cache\r\n"); print("Cache: no-cache\r\n"); print("Content-type: text/html; charset=windows-1251\n\n"); print "$msg1"; $totalj=0; foreach $fn (@fnames) { if ($fn eq 'total') { next;}; $ffile=$cntdir.$fn; open (lfile1,$ffile); $curr=; close (lfile1); if(($curr < 10) && ($curr >0 )) {$curr='00'.$curr;}; if(($curr < 100) && ($curr >9 )) {$curr='0'.$curr;}; $cnt{$fn}=$curr; $totalj=$totalj+$curr; }; # $totalj=$totalj-$curr; @t1=values %cnt; @t1=reverse sort @t1; #print "\n"; # foreach $tt (@t1) { #print "\n"; # }; $onep=100/$totalj; $ones=100/$t1[0]; foreach $fn (@fnames) { $cw=int($ones* $cnt{$fn}); $cp=int($onep* $cnt{$fn}); if($fn eq 'total') { next;}; print <<"(ONE_ROW)"; (ONE_ROW) }; $msg2= <<"(FOOT_BLOCK)";

$snames{$fn}