-------------------------------------------------------------------------------------------------
#
Konu	: Perl Öğreniyorum - 2
Tarih	: 11/06/2007
Saat	: 04:25
Yazar	: Ibrahim BALIÇ
#
-------------------------------------------------------------------------------------------------

"Perl Dilindede Bir Kaç Örneğimiz Olsun" Dedik. Ve Devam Edelim.
Şimdiki Dersimizde, Soket Uygulaması Ile Veri Gönderimine Bakalım.

Mesela Bizim Bir Sitemiz Varsa Ve Bu Sitede Dışardan Aldigimiz/Almak Istedigimiz Veriler Varsa. Bunlara Perl Dili Ile Nasıl Yapabileceğimize Bakalım...

Diyelim Ki Sitemizde;

Adı, Soyadı, Yasi Ile İlgili Veriler Topluyoruz/Topliyacagiz.Oncelikle Bu Bilgileri Kayit Edecek Olan Scripti Hazirliyoruz..

[ben php'de hazirliyorum siz hangi dilde yazarsaniz yazin.]

Kayit Edecek Olan Php Scriptimiz.

    PHP Code:
    <?
    $Ad= $_REQUEST["Ad"];
    $Soyad = $_REQUEST["Soyad"];
    $yas= $_REQUEST["yas"];
    $ac = fopen("kayitlarim.html","a");
    $Topla ="<b>Adi :</b> ".$Ad. " <b>Soyadi :</b>" .$Soyad." <b>Yasi :</b>".$yas."<br>";
    fwrite($ac,$Topla);
    fclose($ac);

Yukaridaki Kodlari, Sunucunuza kayit.php Olarak Kayit Edin, Ve Bunu Kayit Ettiginiz Yere, Kayitlarim.html Diye Bir Html Sayfa Atin.

Simdi Perl Dilindeki Scriptimizi Yazalim.

    Kod:

    #!/usr/bin/perl
    #Frmtr Perl Dersleri, Perl İle Veri Gonderimi.
    #---------------------------------------------
    use IO::Socket;
    $site = "www.siteniziyazin.com";
    $ad= $ARGV[0];
    $soyad= $ARGV[1];
    $yas= $ARGV[2];

    sub giris() {
    print "Merhabalar...\nLutfen Adinizi,Soyadinizi, Yasinizi Sirasiyla Yazin:\nOrnek: perl baglanti.pl ibrahim balic 19";
    }
    if(!@ARGV){
    &giris();
    } else {
    print "Baglaniyor...\n";
    &gonder();
    }
    sub gonder() {
    $sock = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>"$site", PeerPort=>'80')
    or die"Baglanti Kurulamadi!\n";
    print "Baglanildi!\n";
    print "Veri Gonderiliyor...\n";
    print $sock "POST /Kayit.php?Ad=$ad&Soyad=$soyad&yas=$yas HTTP/1.0\r\n";
    print $sock "Host: $site \r\n";
    print $sock "Connection: Keep-Alive\r\n";
    print $sock "Cache-Control: no-cache\r\n\r\n";
    close sock;
    print "Basarili sekilde gonderildi!\n"
    }

Simdi Perl Scriptimizi Perl'in Kurulu Oldugu Klasor icerisindeki Bin Dizinine baglanti.pl Diye Kayit Edelim.

Daha Sonra Command'a Gecip, Perl'in Kurulu Oldugu Klasor Icerisindeki Bin Dizinine Gelip,
dipnot: örnek olarak perl c:\perl dizininde Ise, başlat caliştira cmd 'de yazip, cikan comand penceresinde

cd\
cd perl
cd bin

Sirasiyla Komutlarini vermeniz perl'in kurulu oldugu dizindeki, bin klasoru icerisine girmenizi saglayacaktir.
yukaridaki kurdugum cumlenin, "Perl'in Kurulu Oldugu Klasor Icerisindeki Bin Dizinine Gelip" Anlamı Budur.

perl baglanti.pl ibrahim balic 19
Komutunu Verelim, Eger "Basarili bir Sekilde Gonderdi" Mesaji Aldiysaniz Sitenizdeki, kayitlarim.html'i Kontrol 
Ettiginiz, ibrahim balic 19 Kaydina Ulasmis Olmalısınız.

-------------------------------------------------------------------------------------
Bu Ders Ibrahim BALIÇ Tarafindan www.frmtr.com Kullanıcıları İçin Hazırlanmıştır.
========================
     Ibrahim BALIÇ
TSM Security Programmer.
========================