perl指令碼擷取網頁內容

標籤：des   http   使用   os   re   c   

# 使用LWP模組的get函數擷取網頁內容。
use LWP::Simple;
my $doc=get("http://www.csdn.net");
# 擷取網頁內容後可以對內容進行提取或者其它處理
# 將網頁內容列印出來
print $doc;

# 使用post函數向web伺服器提交請求。
use LWP::UserAgent;
use Encode;
my $user_agent = LWP::UserAgent->new;
my $des = "http://www.xxxx.com";
    my $para_val = value;
    my $response  = $user_agent->post( $des, [ para => $para_val]);
    if ( $response->is_success ) {
# 將擷取的內容按utf8編碼方式解碼。
        my $doc = decode("utf8", $response->content);
# 下面可以按照需要處理擷取到的內容
        print $doc;
    }