#!/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";
創作者介紹

創造心理的感動

gisanfu 發表在 痞客邦 PIXNET 留言(0) 人氣()