From: Can Kavaklıoğlu (eposta@cankavaklioglu.name.tr)
Date: Sun 29 Jan 2006 - 20:03:01 EET
Merhabalar,
Böyle bir iş için komut satırı araçları ve perl (yada perl olmadan
sadece bash betiği) doğru seçim olacaktır.
İstediğiniz tam olarak bu mu bilemiyorum ama, işte istediğiniz perl betiği:
############################################################
#!/usr/bin/perl
#klasorde eski bir sayfanin olmadigindan emin oluyoruz
if(-e faiz){ qx(rm faiz); }
#sayfayi indiriyoruz
qx(links -dump "http://www.tcmb.gov.tr/yeni/ana.php" > faiz) ;
#dosyayi okumak uzere aciyoruz
open (AC, "< faiz");
#isaretleme degiskeni
my $faizmi=0;
my @faizler;
#dosyayi satir satir tariyoruz
while (<AC>){
#TCMB Faiz i gorunce isretle
if (/TCMB Faiz/) { $faizmi=1; }
#5 - 7 satirlari aliyoruz
if ($faizmi >= 5 and $faizmi <= 7){ push (@faizler,$_); }
#7 satirdan sonrasini alma
if ($faizmi == 8){ last; }
if ($faizmi != 0) { $faizmi++; }
}
#istemedigimiz kisimleri kesiyoruz
foreach (@faizler){
$_ = qx( echo -n "$_" | cut -c 3-60 );
}
#komut satirina cikti veriyoruz
print @faizler;
############################################################
Kendi bilgisayarımda çalıştırdığımda şöyle bir çıktı elde ediyorum.
Sanırım sizin istediğiniz de bu:
Gecelik (o/n) 13.50 13.50 16.50 17.50
Gec, Likidite 9.50 5.00 19.50 21.50
1 Hafta - 13.50 - -
Bu çıktıyı, yukarıdaki betiğin sonunda, yine bir qx() (bash den komut
çalıştır) ile mail komutunu kullanarak eposta sistemi kurulu bir
sistemde istediğiniz yere eposta atabilirsiniz.
############################################################
echo "@faizler" | mail -s "TCMB Faiz Oranlari" gonderilcek@adres.org
############################################################
Sorularınızı memnuniyetle bekliyorum
Kolay gelsin.
Can Kavaklıoğlu
Ahmet Tellioglu şöyle yazmıştı:
> Arkadaslar selam;
>
> #/usr/bin/links -dump http://www.tcmb.gov.tr/yeni/ana.php >
> /root/doviz_sil.txt ile merkez bankasi doviz sayfasini bilgisayara
> indiren, daha sonra bu dosya icinde ornegin "Faiz" kelimesinin kacinci
> satirda oldugunu bulup o satirla birlikte altindaki 3-4 satiri bana mail
> ile gonderebilecek bir perl scripti yazmaya calistim. Ancak arama
> kismini beceremedim.
>
> Bu sekilde gunluk doviz kurlari, sayisal sonuclari, hava durumu, vs.
> mail ile alinabilir. Bu tur bir uygulama yapmis olan, kullanan var mi
> aranizda?
>
> Yardimci olabileceklere simdiden tesekkurler.
> Ahmet.
> _______________________________________________
> Linux-programlama mailing list
> Linux-programlama@liste.linux.org.tr
> http://liste.linux.org.tr/mailman/listinfo/linux-programlama
>
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama