www.BT-tr.net

Bir Perl dosyasına gönderilen form verilerini okumak için aşağıdaki örnek kullanılabilir;

GET ile gelen verileri okumak için;

@girdi=split(/\&/,$ENV{'QUERY_STRING'});
foreach $depo (@girdi)  {
($isim,$deger) = split(/=/,$depo);
$deger =~ tr/+/ /;
$deger =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$get{$isim} = $deger;
}
print "Değer = ".$get{'deger'};

POST ile gelen verileri okumak için

read(STDIN, $depo, $ENV{'CONTENT_LENGTH'});
@dizidegisken = split(/&/, $depo);
foreach $duzenle (@dizidegisken) {
($isim , $deger) = split(/=/, $duzenle);
$deger =~ tr/+/ /;
$deger =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$deger =~s///g;
$post{$isim} = $deger;
}
print "Değer = ".$post['deger'];