Perl ile bir web sayfasının html kodlarını alalım
İlk olarak Programımıza LWP::Simple modülünü use direktifi ile ekliyoruz.
Sonrasında ise LWP:Simple modülünün get(); fonksiyonu ile belirttiğimiz url'nin html kodlarını $icerik ismindeki değişkenimize depolayıp ve print komutu ile yazdırıyouz. LWP::Simple modülü libwww-perl içerinde bulunmaktadır ve kullanmanız için libwww-perl paketlerinin sisteminizde kurulu olması gerekmektedir.
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $icerik = get("http://www.yahoo.com");
if($icerik) {
print "$icerik\n";
}else {
die "Hata...";
}
0 Yorum:
Kaydol:
Kayıt Yorumları (Atom)
Yorumunuzu belirtebilirsiniz