#!/usr/local/bin/perl5 #c:\cygwin\bin\perl.exe if ($ENV{'METHOD'} != 'GET') { die 'Wrong method type' } else { open (PLIK, ") { ($plik,$keyw,$desc)=split(/\|/,$line); $pk{$keyw}=$plik; $pd{$desc}=$plik; $op{$plik}=$desc; } foreach $kwd (keys %pk) { @dop = ($kwd =~ m/$search/ig); $pliki{$pk{$kwd}}=$#dop+1; } foreach $des (keys %pd) { @dop_ = ($des =~ m/$search/ig); $pliki{$pd{$des}}+=$#dop_+1; } print "content-type:text/html\n\n"; print ''; print ''; print ''; print ' '; print ' '; print ' '; print ' '; print ''; print ''; print ''; print ''; print '
'; $i=0; $max=0; $c=0; foreach $plik (sort { $pliki{$b} <=> $pliki{$a} || $a cmp $b }keys %pliki) { if ($pliki{$plik}>$max) {$max=$pliki{$plik}} if ($pliki{$plik}>0) {$c++} } print "Wyniki poszukiwan dla tekstu : $FORM{'searchstr'}. Odnaleziono $c dopasowan.

"; foreach $plik (sort { $pliki{$b} <=> $pliki{$a} || $a cmp $b }keys %pliki) { if ($pliki{$plik}>0) { $i++; $perc=($pliki{$plik}*100)/$max; $perc=sprintf "%2d",$perc; print "$i $plik - "; print "$perc %"; print "
$op{$plik}\n

"; } } if ($i==0) { print 'Niestety nie odnaleziono zandych pasujacych dokumentow...'; } print '
'; print ''; print ''; print ''; }