1#!perl -w 2#!d:\perl\bin\perl.exe 3 4# -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- 5 6use UDDI::Lite 7 import => 'UDDI::Data', 8 import => 'UDDI::Lite', 9 proxy => 'http://www-3.ibm.com/services/uddi/inquiryapi' 10; 11 12$\="\n"; $,=", "; # specify separators for print() 13 14my($serviceInfo) = grep { $_->name =~ /stock quote/i } find_business(name('XMethods')) 15 -> businessInfos 16 -> businessInfo 17 -> serviceInfos 18 -> serviceInfo 19; 20 21print $serviceInfo->name, $serviceInfo->serviceKey; 22 23my $bindingTemplate = get_serviceDetail($serviceInfo->serviceKey) 24 -> businessService 25 -> bindingTemplates 26 -> bindingTemplate 27; 28 29my $accessPoint = $bindingTemplate->accessPoint->value; 30my $tModelKey = $bindingTemplate 31 -> tModelInstanceDetails 32 -> tModelInstanceInfo 33 -> tModelKey 34; 35 36print $accessPoint, $tModelKey; 37 38my $wsdl = get_tModelDetail($tModelKey) 39 -> tModel 40 -> overviewDoc 41 -> overviewURL 42 -> value 43; 44 45print $wsdl; 46 47print SOAP::Lite->service($wsdl)->proxy($accessPoint)->getQuote('MSFT'); 48