- 695 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/12/05(金) 21:22:35 ID:0JhmoprC0]
- {
package Browser;
require LWP::UserAgent;
my $UA;
sub Initialize
{
$UA = new LWP::UserAgent;
$UA->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
return;
}
sub Get
{
my $URL = shift;
my $Request = new HTTP::Request("GET", $URL);
my $Response = $UA->request($Request);
return $Response;
}
return 1;
}
