#!perl -w #!d:\perl\bin\perl.exe # -- UDDI::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use strict; use UDDI::Lite import => 'UDDI::Data', import => ['UDDI::Lite' => ':find', ':get'], proxy => 'http://uddi.microsoft.com/inquire', ; my @parameters = ( findQualifiers([findQualifier('sortByNameAsc'), findQualifier('caseSensitiveMatch')]), name('M'), # OR # findQualifiers(findQualifier('sortByNameAsc', # 'caseSensitiveMatch')), # name('M'), ); my $b = find_business(@parameters); for ($b->businessInfos->businessInfo) { print $_->name, "\n"; if ($_->name eq "Microsoft Corporation") { my $key = $_->businessKey; print "$key\n"; my $e = get_businessDetail($key)->businessEntity; my @services = $e->businessServices->businessService; for (@services) { print " ", $_->name, "\n"; } } }