
WWW::Scraper::WSDL

use WWW::Scraper::WSDL(qw(1.00));
my $WSDL = new WWW::Scraper(
'WSDL',
,{ 'Delivery_Address' => '1600 Pennsylvannia Ave'
,'City' => 'Washington'
,'State' => 'DC'
,'Zip_Code' => '20500'
} );
while ( my $response = $WSDL->next_response() )
{
print $response->zip()."\n";
}
use WWW::Scraper(qw(1.48));
use WWW::Scraper::Request::WSDL;
my $WSDL = new WWW::Scraper( 'WSDL' );
my $request = new WWW::Scraper::Request::WSDL;
# Note: Delivery_Address(), and either Zip_Code(), or City() and State(), are required.
$request->Delivery_Address('1600 Pennsylvannia Ave');
$request->City('Washington');
$request->State('DC');
$request->Zip_Code('20500');
$WSDL->scraperRequest($request);
while ( my $response = $WSDL->next_response() )
{
for ( qw(address city state zip county carrierRoute checkDigit deliveryPoint) ) {
print "$_: ".${$response->$_()}."\n";
}
}

This class is an WSDL specialization of WWW::Scraper. It handles making and interpreting WSDL searches http://www.WSDL.com.

WWW::Scraper::WSDL is written and maintained by Glenn Wood, http://search.cpan.org/search?mode=author&query=GLENNWOOD.

Copyright (c) 2001 Glenn Wood All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.