İnternette gezdiğim bir cok yerde bu konuya oldukça sık rastladım arkadaşlar, elimizdeki sql dosyalarımızdan yada başka dosyalarımızdaki kayıtlı e-mail adreslerini nasıl kolay bir şekilde cıkartıp maillist oluşturabiliriz gibi sorulara deyinmek istededim bu işlemi goren 2 farkli imkan sunmak istiyorum php dilinde ve perl dilinde hazirlanmiş bu iki kücük script ile bu denli dosyalarinizdan e-mailleri kolay bir şekilde ayıklayıp cıkarta biliriz nasıl mı ? buyrun icerde ...
Daha fazla...


1: Perl Dilindeki Scriptimizden Bahsedelim Perl destekleyen Local sunucumuzda yada Serverımızda Bu küçük scriptmizi çalıştırarak istediğimiz mail listemizi Oluşturabiliriz.

PLAIN TEXT
PERL:
  1. #!/usr/bin/perl
  2. #www.wbturk.com
  3. #mail extract script
  4. #usage:mail.pl sql.sql output.txt
  5. $file=$ARGV[0];
  6. $kayit=$ARGV[1];
  7. if(!$file || !$kayit){print "Eksik Parametre";exit;}
  8. if(!-e $file){print "\"$file\" adinda bir dosya bulunmuyor";exit;}
  9. open(isaretcimiz,"$file");
  10. while (chomp($satir = )){
  11. if ($satir =~ /([^s()[]{}@,.]{1}[^s()[]{}@,]*@[^s()[]{}@,.]{1}[^s()[]{}@,]*.[a-z0-9]{2,4})/xi){
  12. $toplam.=$1."\n";
  13. $toplam=~s/'//gi;
  14. $toplam=~s///gi;
  15. $toplam=~s/href=\\"//gi;
  16. $toplam=~s/=//gi;
  17. $toplam=~s/"//gi;
  18. $toplam=~s/\\//gi;
  19. $toplam=~s/\///gi;
  20. $toplam=~s/>//gi;
  21. $toplam=~s/$kayit");
  22. print isaretcimiz2 $toplam;
  23. close(isaretcimiz2);

Kullanımı ise

perl maillist.pl sqldosyamiz.sql mailist.txt

burdaki sqldosyamiz.sql içinden mailleri ayıklamak istediğimiy herhangi bir sql dosyası mailist.txt ise maillerin yazılacağı listemiz.

2: Olarak ise PHP dilinde Hazırlanmış. Burda ise scriptin çalısabilmesi için sql servermızdaki yüklü olan herhangi bır veri tabanındaki kayıtlı olan mail adreslerini ayıklıyacagız.

Sql dosyamızda kullanıcıların bulunduğu tablo adı users,kullanıcıların maillerinin bulunduğu column adı "user_mail" olsun

PLAIN TEXT
PHP:
  1. <?
  2. //www.wbturk.com
  3. //mail extract script
  4. //Bağlantı ayarlarınızı Kendiniye göre düzenleyiniz
  5. $dbname="db";
  6. $dbuser="root";
  7. $dbpass="root";
  8. $server="localhost"
  9. $con = mysql_connect($server,$dbuser,$dbpass);
  10. if (!$con)
  11. {
  12. die('Data Baseye Baglanamadim: ' . mysql_error());
  13. }mysql_select_db($dbname, $con);
  14. //dosya ayarları
  15. //not:Scriptin bulundugu dizinde cikti dosyasını olusturup 777 permission vermeyi unutmayın
  16. $cikti="liste.txt";
  17. $sor=mysql_query("select user_mail from users");
  18. while($row=mysql_fetch_array($sor)){
  19. $mail=$row["user_mail"];
  20. $fp=fopen($cikti,"a");
  21. fwrite($fp,"$mail
  22. ");
  23. }
  24. fclose($fp);
  25.  
  26. print "cikti dosyası olusturulmustur : $cikti";
  27.  
  28. ?>

Favorilerinize Ekleyin.
  • BlinkList
  • del.icio.us
  • Digg
  • Netvouz
  • DZone
  • ThisNext
  • MisterWong
  • Wists
  • blogmarks
  • Blue Dot
  • Furl
  • Netscape
  • NewsVine
  • Reddit
  • Shadows
  • Technorati
  • YahooMyWeb
  • Fark
  • feedmelinks
  • Fleck
  • kick.ie
  • LinkaGoGo
  • Linkter
  • MyShare
  • Spurl
  • Webride