Form verisiyle ilgili basit bir soru ?

quote:

#!/usr/bin/perl -w



use strict;

use CGI qw(:all);



my $this_url = self_url;

my $query = "";

print header;

print start_html(-title=>"Form Kontrol", -encoding => "utf-8");

print qq(<form action="$this_url" method="get">);

print qq(<label>10 maddelik form</label><br />);

my $stil = q(margin-top:3px;marhin-bottom:3px;background-color:white;);

my @key_value_pairs;

my $bos_girilen=0;

my %params;



if (exists($ENV{QUERY_STRING})) { # Formdan gönderilen veri var mı kontrolü

$query = $ENV{'QUERY_STRING'};

# print "Query: $query<br />";



@key_value_pairs = split (/&/, $query);



for my $key_value (@key_value_pairs) {

my ($key, $value) = split (/=/, $key_value);



if ($value =~ /./) { #metin kutusuna deger girilmiş

$params{$key} = $value;

# print ($value . "<br />");

}

else {

$bos_girilen += 1;

}

}

form_yaz(\%params);

print "Bos girilen metin kutusu: <b>$bos_girilen</b> adet";

}

else {form_yaz();}



sub form_yaz {

my $params = shift;

for my $k (1..10) {

my $elm = "eleman_$k";

if ( $params->{$elm}){

print qq(<input type="text" name="$elm" style="$stil" value="$params->{$elm}" /><br />) . "\n";

}

else {

print qq(<input type="text" name="$elm" style="$stil" /><br />)."\n";}

}

print qq(<input type ="submit"/></form>);

}



print end_html;