Anket Sonuçları

#!/usr/bin/perl print "Content-type:text/html\n\n"; open(INF,"anket.dat") or dienice("Dosya açılamadı\n"); @data = ; close(INF); # İlk önce bazı sayaçlar oluşturup sıfırlamalıyız... $count = 0; $ratings = 0; $commentary = ""; %howreach_counts = (); %involved = (); %howreach = ( 0 => "", 1 => "Dergilerden", 2 => "Önceden imlenen sitelerden", 3 => "Bir arama motorundan", 4 => "Bir başka sitedeki linkten", 5 => "Bir kitaptan", 6 => "Diğer"); foreach $i (@data) { chomp($i); ($name,$email,$how,$rating,$boxes,$comments) = split(/\|/,$i); $count++; $ratings = $ratings + $rating; $commentary .= "$comments\n
"; $howreach_counts{$how}++; @invlist = split(/,/,$boxes); foreach $j (@invlist) { $involved{$j}++; } } if ($count > 0) { # sıfıra bölme hatası için kontrol! $avg_rating = int($ratings / $count); } else { $avg_rating = 0; } # Şimdi özel bilgileri ekrana yazdıralım.... print <Anket Sonuçları

Anket Sonuçları

Toplam ziyaretçi sayısı : $count

Bu sitenin ortalama ratingi: $avg_rating

Ziyaretçiler bu siteyi nasıl keşfettiler:

(cevap yok) - $howreach_counts{0}
$howreach{1} - $howreach_counts{1}
$howreach{2} - $howreach_counts{2}
$howreach{3} - $howreach_counts{3}
$howreach{4} - $howreach_counts{4}
$howreach{5} - $howreach_counts{5}
$howreach{6} - $howreach_counts{6}

Ziyaretçilerin meslekleri:

Web sitesi hazırlama: $involved{'des'}
Web sunucusu adminliği: $involved{'svr'}
Elektronik ticaret: $involved{'com'}
Web Marketing: $involved{'mkt'}
Web eğitimi: $involved{'edu'}

Yorumlar:

$commentary EndHTML ; sub dienice { my($msg) = @_; print "

Error

\n"; print $msg; exit; }