Perl İle Yaptığım Googler
-
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, söyleyiniz.#!/usr/bin/perl print("\n\n"); print("#### How to use:\n"); print("#### perl dng.pl\n"); print("#### search is your words to search\n"); print("#### text to split is the chracters that you want to split links.\n"); print("#### how many links is clear. if you write 10\, she will get about 10 links etc.\n"); print("#### you know, if you make so many searches\, google will block you <google.co.uk\/sorry\/blablabla...>. in that case wait and try again later.\n"); print("\n\n"); print("#### DNc August 2013"); print("\n\n"); print "search? : "; chomp($ara = <>); print "text to split? : "; chomp($kes = <>); print "how many links? : "; chomp($sayfa = <>); print("\n Searching...\n\n"); use WWW::Mechanize; my $m = WWW::Mechanize->new(); $url = 'http://www.google.co.uk'; $m->get($url); $m->form_name('f'); $m->field('q', $ara); $response = $m->submit(); $gelen = $response->content(); $d = 0; @gelenler = $m -> links; foreach $adres(@gelenler){ $cillop = $adres->URI(); $cillop =~ s/\/url\?q\=//g; $cillop =~ s/\&sa\=/ /g; @adreslerim = split(/ /, $cillop); foreach $beybi(@adreslerim){ if ($beybi !~ 'googleusercontent'){ if ($beybi =~ 'http'){ if ($beybi !~ 'google'){ if ($beybi !~ 'imgres'){ if ($beybi !~ 'youtube'){ if ($beybi !~ 'facebook'){ if ($beybi !~ 'blogger'){ if ($beybi =~ $kes){ @torp = split (/$kes/, $beybi); foreach $beybis(@torp){ if ($beybis =~ 'http'){ $beybis = $beybis.$kes; #by dejnclea august 2013 open (DNC, ">>dngoogler.txt"); print DNC "$beybis\n"; close (DNC); print $beybis."\n"; $d = $d+1; } } } } } } } } } } } } sub tara{ @gelenler = $m -> links; foreach $adres(@gelenler){ $cillop = $adres->URI(); $cillop =~ s/\/url\?q\=//g; $cillop =~ s/\&sa\=/ /g; @adreslerim = split(/ /, $cillop); foreach $beybi(@adreslerim){ if ($beybi !~ 'googleusercontent'){ if ($beybi =~ 'http'){ if ($beybi !~ 'google'){ if ($beybi !~ 'imgres'){ if ($beybi !~ 'youtube'){ if ($beybi !~ 'facebook'){ if ($beybi !~ 'blogger'){ if ($beybi =~ $kes){ @torp = split (/$kes/, $beybi); foreach $beybis(@torp){ if ($beybis =~ 'http'){ $beybis = $beybis.$kes; #by dejnclea august 2013 open (DNC, ">>dngoogler.txt"); print DNC "$beybis\n"; close (DNC); print $beybis."\n"; $d = $d+1; } } } } } } } } } } } } } while($d<$sayfa){ $m->follow_link( text_regex => qr/Next/i); &tara; }
-
Sesli güldüm :D
-
Değişkenlere öldüm bittim cillop gibi olmuş valla :D
-
değişkenler nedir hocam valla bende sesli güldüm "beybi, beybis" dsail dösad:D
-
şimdi okuyunca ben de güldüm de kodlarla falan uğraşırken maksat kelime olsun diye yazmıştım :D
-
O beybi..... cillop gibi.... yardırmışsın hacı abi.
-
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
-
ersn bunu yazdı
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ı =))
-
neden perl?
-
TeRRoR bunu yazdı
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 söyleniyor. yeni merak saldım. bir dil bir insan, iki dil iki insan =))