LWP::Protocol - LWP �����㏍����潟�˨�勐�阪����壔�í�
package LWP::Protocol::foo;
require LWP::Protocol;
@ISA=qw(LWP::Protocol);�����勉�壔�í�鴻�� LWP ��í�ゃ����í�ŝ�˨�������泣����若����������������鴻�⓾�勉����㏍����潟��絎�茖���勉������� ��阪����壔�í�鴻�������☖戎��������障�����
LWP::Protocol::create($url) ���篏帥�ｃ�⓾����勉�壔�í�鴻�勉�ゃ�潟�鴻�帥�潟�鴻��篏���������������� �����勉�≪�壔�祉�号�号����˨�☀��菴違����������������������������泣����壔�í�鴻�����緇������障����� 荐�������������������LWP::Protocol::create() ��壔����勉�泣����壔�í�鴻�勌����ゃ�勉������� ��潟�潟�鴻����í�壔�帥����若�喝�冴����障�����
LWP::Protocol ������羇丞�������������鴻�⓾�勉�壔�í�鴻�壔����ŝ�壔����鴻�������泣�若����鴻������������� 篏帥�������� request() ��＜�純����������ŝ�若����若�í�ゃ��������綽�荀������������障����� ��ŝ�若����若�í�ゃ�������������＜�純�������壔��������������篆＜�������������˨����若�帥�勉����ｃ�潟�壔�� ��障����������������� collect() ��∽�違��篏帥�������������堺�ャ�障�����
篁ヤ����勰�∽�違�����箴���������障��:
- $prot = LWP::Protocol->new()
-
LWP::Protocol ��潟�潟�鴻����í�壔�帥�壔�泣����壔�í�鴻�˨�����膓���帥�������障����� ��������壚皿��喝�阪����壔�í�鴻�ŝ�勉�с�������勉�＜�純�������� ��贋･��若�違�������鴻����с�壔�������障��������
- $prot = LWP::Protocol::create($scheme)
-
筝�������������罘���純����������宴�������㏍����潟�˨��絎�茖������⓾�������壔�í�鴻� ��ŝ����吾�с�壔�����篏���������障����� ��������奝�∽�違�с����������＜�純�������с�壔�������障�������� ��������壔�潟�潟�鴻����í�壔�帥�������������������ŝ����吾�с�壔�������＜�壔����ŝ�с����� ��������壔�⓾�若�吟�若����若�吾�с�潟����������㏍����潟�˨�˨�≪�壔�祉�鴻�������������˩戎�����鴻�� ��∽�違�с�����
- $class = LWP::Protocol::implementor($scheme, [$class])
-
��鴻�㏍�若����勉�������勐��茖���壔�í�鴻�����緇�鐚頥㊤�������障����� ���絎������������鴻�㏍�若�������泣����若����������⓾����ŝ�������違��'' ���菴������障�����
- $prot->request(...)
-
$response = $protocol->request($request, $proxy, undef); $response = $protocol->request($request, $proxy, '/tmp/sss'); $response = $protocol->request($request, $proxy, \&callback, 1024);�����㏍����潟�˨�˨�ŝ�壔����鴻�������肴����������㋘�鴻����潟�鴻�ŝ����吾�с�壔�����菴������障����� �����勉�＜�純�������壔�泣����壔�í�鴻�с�ŝ�若����若�í�ゃ�����������綽�荀������������障����� 綣���違�勤ą�����˨�ゃ����⓾�� LWP::UserAgent ��������с����⓾��������������
- $prot->collect($arg, $response, $collector)
-
��ŝ�壔����鴻����勐��絎鴻�������������鴻�˨�í�������＜�ゃ�˨�吾�勖�主���������������� ��潟�若�˨�������壔�勐�若�喝�冴����˨����ｃ�☁�ï�������☎����������������˩戎��������障����� $arg �����ɱ��臂í�с�������違�����絎鴻�� $response �����主����������障����� $arg ��������ŝ����鴻�˨�í�с�������違��$arg ��壔����＜�ゃ�������◑В���������������絎鴻�壔���� �����＜�ゃ�˨����吾�������障����障����� $arg �����˨�若����潟�吾�勉�ŝ����＜�㋘�潟�鴻�с�������違�����絎鴻�壔����勰�∽�違��羝＜�������障�����
$collectoer ��壠�若�違�������˨�若����潟�с����� ��������⓾�������壠�☎�����������絎鴻�勉�˨�宴�í�� (��鴻�˨�í�吾�勉�ŝ����＜�㋘�潟�鴻��������) 菴������������ 莢㋙算��������＜�障����� $collector ��夌Ã���絖������吾�勉�ŝ����＜�㋘�潟�鴻��菴������������� EOF �����ャ�������障�����
collect() ��������勤�������ゃ�� $response ��ŝ����吾�с�壔����ŝ����＜�㋘�潟�鴻�с�����
羈����: $response->is_success() ��с����ｃ�������������������潟�若�˨�������壔�� �����＜�ゃ��綣���違��篏帥����障����� ��������˨�������ŝ����ゃ�㋘�壔����勉�������勉�潟�潟����潟����祉����若�帥��羞隙恒�����障�㏍����с�������� ��潟�若�˨�������壔�吾�勤��荐若�㋘�鴻����潟�鴻�����篆＜����������������帥����⓾����障�����
- $prot->collect_once($arg, $response, $content)
-
��㋘�鴻����潟�鴻�勐��絎鴻�勐��篏���� $content ��������☗�ñ����с����������������若�違����障����� ��������壩�������� $content ��吾�勉�ŝ����＜�㋘�潟�鴻�����罨＜�̥Ã���絖�������菴���� collector ��潟�若�˨�������壔�� collect() ���莎桁�������障�����
篏睡��箴���������� LWP/Protocol/file.pm ��� LWP/Protocol/http.pm �����＜�ゃ�˨�� ���荀т�����������
Copyright 1995-2001 Gisle Aas.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.