değişkenler nedir hocam valla bende sesli güldüm "beybi, beybis" dsail dsad:D Sistemi de kapattım ama PHP konusunda hala yardımcı olurum // Boş gezenin boş kalfası - ğrenci - YTÜ

O beybi... cillop gibi... yardırmışsın hacı abi.

şimdi okuyunca ben de güldüm de kodlarla falan uğraşırken maksat kelime olsun diye yazmıştım :D

adamlar coder kendi aralarında gülüyor eğleniyor. Kod bilmediğimiz için biz gülemiyoz, biri açıklasın durumu napmış bu adam küfrederiz villalara kulübeden

neden perl? herkes programcı olmak zorunda değildir, lütfen bir zorunluluk gibi programlama dilleri ğrenmeye çalışmayın. yabancı dil filan ğrenin amq.// s. kimin etini yerim, kasaba minnet etmem.// ince düşünene kalın girer.//

neden perl? 7-8 yıldır VB ile yazıyordum. artık sıkıldım. kendimi daha coder gibi hissetmek istedim, perl zaten exploitlerde falan çok kullanılan bir dil. yıllar nce küçük bir açık tarama scriptim de vardı perl ile. güçlü bir dil olduğu da syleniyor. yeni merak saldım. bir dil bir insan, iki dil iki insan =))

Değişkenlere ldüm bittim cillop gibi olmuş valla :D iyibu! yeniden..

Sesli güldüm :D

adamlar coder kendi aralarında gülüyor eğleniyor. Kod bilmediğimiz için biz gülemiyoz, biri açıklasın durumu napmış bu adam kodlarken bazı değişkenler atamak gerekiyor. o değişkenler genelde a, b, i gibi ifadeler ya da değişkeni tanımlayıcı ifadeler oluyor. burada kullandığım değişkenler beybi, beybis, cillop gibi ifadeler olunca komik geldi haliyle :D paylaşırken bunu farketmemiştim hatta "bu devirde googler'ı kim ne yapsın" manasında bir "sesli güldüm" olarak algılamıştım dyrnade'in mesajını =))

Belki halen kullananlar, arayanlar olur. Bana bazen lazım oluyor. 2-3 gündür bunun üzerinde uğraşıyorum, Perl konusunda çok tazeyim, bir bakar test eder geri bildirimde bulunursanız sevinirim. kullanımını yazdım, her şey açık zaten. yine de bir sorunla karşılaşırsanız sorunuz, syleyiniz. #!/usr/bin/perl print ; print ; print ; print ; print ; print(" how many links is clear. if you write 10\, she will get about 10 links etc.\n"); print ; print ; print(" DNc August 2013"); print ; print "search? : "; chomp ; print "text to split? : "; chomp ; print "how many links? : "; chomp ; print ; use WWW::Mechanize; my $m = WWW::Mechanize->new ; $url = 'http://www.google.co. uk'; $m->get ; $m->form_name ; $m->field ; $response = $m->submit ; $gelen = $response->content ; $d = 0; @gelenler = $m -> links; foreach $adres { $cillop = $adres->URI ; $cillop = s/\/url\?q\=//g; $cillop = s/\&sa\=/ /g; @adreslerim = split ; foreach $beybi { if { if { if { if { if { if { if { if { @torp = split ; foreach $beybis { if } } } } } } } } } } } sub tara{ @gelenler = $m -> links; foreach $adres { $cillop = $adres->URI ; $cillop = s/\/url\?q\=//g; $cillop = s/\&sa\=/ /g; @adreslerim = split ; foreach $beybi { if { if { if { if { if { if { if { if { @torp = split ; foreach $beybis { if } } } } } } } } } } } } while