#!/usr/bin/perl

use WWW::Curl::Easy;
my $curl = new WWW::Curl::Easy;

$starttime = time();

$curl->setopt(CURLOPT_URL, 'http://tw.yahoo.com/');
$curl->perform;

$endtime = time();

my $err = $curl->errbuf;
my $info = $curl->getinfo(CURLINFO_HTTP_CODE);
$resulttime = $endtime - $starttime;
print "\n",'result time => ',$resulttime,"\n";
arrow
arrow
    全站熱搜

    付爸爸 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄