|
||
Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1372 Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1378 Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1634 Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1640 Kod: #!/usr/bin/perl print "Content-type:text/plain\n\n"; read(STDIN, $gecici_alan, $ENV{'CONTENT_LENGTH'}); @alan_deger_ciftleri = split(/&/, $gecici_alan); foreach $alan_deger (@alan_deger_ciftleri) { ($alan, $deger) = split(/=/, $alan_deger); $deger =~ tr/+/ /;# + karakteri boşluk karakterine dönüştü $deger =~ s/%(..)/pack("C", hex($1))/eg; # $deger =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1)) $FORM{$alan} = $deger; } { open (DOSYAM, ">>./dosyam.dat") || die ("HATALI iSLEM..!"); print DOSYAM "$FORM{'ad'}:$FORM{'email'}:$FORM{'not'}\n"; # yukarda bulunan : karakteri her alanı bir diğerinden ayırır. # bu karakteri, alan ayıracı olarak kendimiz belirledik close(DOSYAM); } print "<HTML>\n<HEAD>\n<TITLE>Teşekkürler</TITLE>\n</HEAD>"; print "\n\n<BODY BGCOLOR=\"#FFFFFF\" LINK=\"#CC0000\">\n"; print "<p><br><center><H3>İşlem Tamam !!!</H3><p><br>"; print "<PALIGN=\"CENTER\">\n\n"; print "<FORM>\n"; print "<INPUT onclick=history.go(-1) type=button value=Geri>\n"; print "</FONT></FORM></center><p><br>\n"; print "</center></BODY>\n</HTML>\n"; Şimdi aşağıdaki formu dolduralım ve yollayalım. Form tanımındaki form adı ile ilgili satırın tanımı şöyle olacak: <form action="http://sirius.gazi.edu.tr/cgi-bin/ornek3.pl" method="POST"> alıntıdır. |
||