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:

Yorumunuzu belirtebilirsiniz