#!/bin/perl $temp=$ENV{'QUERY_STRING'}; @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } @popis=("AlenRadošević", "DomagojBabić", "MarinBabić", "BojanBarać", "MladenMaras", "PatrikŽufić" "PaškoBare", "MarinKlepo", "GoranMolnar", "KrunoslavPavić" "VladoDabanović", "DamirMamić", "SašaJušić", "MarkoGlad", "TihomirVergot", "DamirBartolin" "TomislavĆurin", "TomislavGoleš", "PetarAladrović", "IgorMihaljko" ); #polje $imeprezime=$fields{'ime'}.$fields{'prezime'}; print "Content-type: text/html\n\n"; print "\n"; foreach $item(@popis) { if ($item==$imeprezime){ print "da, stvarno ste slušali PVPRM";} else print "nažalost za Vas ne možemo reći da ste slusali PVPRM"; }