LWP:Simple modülü ve NTVMSNVC

Yazan: Faruk Enes | Tarih 21 Temmuz 2001 | Yorum  1 Yorum
BerbatKötüOrtaGüzelHarika Henüz puan verilmemiş
Loading ... Loading ...

Hepimizin bildiği gibi dili sadece cgi scripting değildir. aynı zamanda komple bir sistem dili ve bir networking dilidir.

'ün geldiği sistem, yani Un*x, ağlararası bir sistem olduğundan olsa gerek, dili ile kullanılabilecek birçok aü modülü yazılmıştır. Bu modüllerden birisi de LWP::Simple modülüdür.

LWP::Simple modülü içinde birkarç kullanılabilir fonksiyon vardır. Bunlar get(), head(), getstore().. vs'dir. Bunların içinde ise, en çok kullanılanı get() fonksiyonudur.

get() fonksiyonu belirlenen bir URL'den bir dosyayı, ya da biz ona kısaca veri diyelim, almak için kullanılır. LWP::Simple modülü nesne yönelimli bir modül olmadığı için kullanımı oldukça basittir.

PLAIN TEXT
:
  1. $url='http://www.bilmemne.adres.com/data.html';
  2. @response = get($url);

LWP::simple modülü, eğer ki bu adrese ulaşabilirse, @response dizisinin içeriğini, verdiğimiz url'deki sayfanın içeriği ile dolduracaktır. Bundan yararlanmak için ve kullanımı daha yakından görmek için ntvmsnbc.com adresindeki, haber dosyasını alalım ve içindeki internet ve bilgisayar ile ilgili haberleri ayarlayarak, ekrana basalım.

PLAIN TEXT
:
  1. #!/usr/bin/
  2.  
  3. use LWP::Simple;
  4.  
  5. #Alıncak adres
  6. $url = "http://www.ntvmsnbc.com/news/BCList2.txt";
  7. #Sayfayı alalım
  8. @data = get($url);
  9. #Eğer içierik boş değilse...
  10. if(@data) {
  11.  
  12. print "Content-type:text/html\n\n";
  13.  
  14. foreach $satir (@data) {
  15. $satir1 .= $satir;
  16. }
  17. #İnternet bölümü ile Teknovitrin bölümünü kesip arayı alalım
  18. ($bas1, $bas2) = split(/\+INTERNET/, $satir1);
  19. ($bas3, $bas4) = split(/\+E-NET SİTE TANITIMLARI/, $bas2);
  20. @data = split(/\n/, $bas3);
  21.  
  22. print qq~NtvMsNbc Internet Haberleri<br>~;
  23.  
  24. #Urlleri düzeltelim ve ekrana basalım
  25. foreach $parca (@data) {
  26. chop $parca;
  27. if($parca =~ m#/news/./tech_front.asp#){
  28. $parca = s/news\/.\/tech_front.asp//;
  29. }
  30. elsif($parca =~ m#/news/./subint_front.asp#){
  31. $parca = s/news\/.\/subint_front.asp//;
  32. }
  33. elsif($parca =~ m#\+INTERNET#) {
  34. $parca = s/\+INTERNET//;
  35. }
  36. elsif($parca eq "")  { }
  37. elsif($parca eq "-") { }
  38. else {
  39. #Formatladıkdan sonra ekrana bas
  40. ($haber_url, $id) = split(/\|/, $parca);
  41. substr($haber_url, 0, 1) = "";
  42. print qq~<a HREF="http://www.ntvmsnbc.com$haber_url">$id</a>
  43. ~;
  44. }
  45. }
  46. }
  47. else {
  48. print "content-type:text/html\n\n";
  49.  
  50. print "Dosya alınamadı\n\n";
  51. }

Bu gibi bir teknikle, istediğiniz sayfaların haber dosyalarını alabilir, ayıklayabilir ve istediğiniz formata çevirerek, daha kolay bir erişim sağlayabilirsiniz.

Yazdır Yazdır | 285 Görüntülenme | Kategori: Diğer Diller | Trackback  Geri İzleme
Etiketler  Etiketler: , ,

Benzer Yazılar


Yorum Yap


(gerekli)

(gerekli,yayınlanmaz)




XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>