USPS HTTP Post请求

Question

下面是我试图运行以下Perl代码时收到的错误消息。有什么原因吗？它似乎不喜欢API=Verify，但它是API的唯一名称，它返回了我能找到的9位邮政编码。

80040B1AAPI授权失败。不是此protocol.USPSCOM::DoAuth的有效API名称。

# Perl subroutine for POST Request
#########
sub FindTracking() {
$saddress="60 Passional Way";
$scity="Burnsville";
$szip="27690";
$sstate="NC";
print "start of tracking...<br>";

$queryString = qq~
<?xml version="1.0"?>
https://secure.shippingapis.com/ShippingAPI.dll?API=Verify&XML=        
<AddressValidateRequest USERID="xxxxxxx">
<Revision>1</Revision>
<Address ID="0">
<Address1></Address1>
<Address2>$saddress</Address2>
<City>$scity</City>
<State>$sstate</State>
<Zip5>$szip</Zip5>
<Zip4></Zip4>
</Address>
</AddressValidateRequest>
<?xml version="1.0"?>
<AddressValidateResponse><Address ID="0">
<Address2></Address2><City></City><State></State><Zip5></Zip5>
<Zip4></Zip4></Address></AddressValidateResponse>
<Error>
<Number></Number>
<Source></Source>
<Description></Description>
<HelpFile></HelpFile>
<HelpContext></HelpContext>
</Error>
~;

# Instantiate the user agent and set our agent string
$userAgent = new LWP::UserAgent;
$userAgent->agent( 'USPS' );
$queryString =~ s/ /\%20/ig;
$request = new HTTP::Request( 'POST',      
'https://secure.shippingapis.com/ShippingAPI.dll' );

# Set the content type
$request->content_type( 'text/xml' );

# Set the query string
$request->content( $queryString );

# Make the request
$response = $userAgent->request( $request );
print $response->content();
# Check the status of the request
if ( $response->is_success ) {
    $content = $$response{ "_content" };
  $TrackingNumber = "";
  ($success) = $content =~ /\<AddressValidateRequest\>(.*)\    
 <\/AddressValidateRequest\>/;
  print "<br><br>==>some $content<br>";
  if ($success eq "Success") {
    ($TrackingNumber)= $content =~ /\<Zip4\>(.*)\<\/Zip4\>/;
   print "here with $TrackingNumber<br>";
   }

}
else {
  print "<br><br>here with resp=$response<br>req=$request <br>cont     
$content";
}
}

Answer 1

将查询XML更改为：

$queryString = qq~
<AddressValidateRequest USERID="xxxxxxxxxxx">
<Revision>1</Revision>
  <Address ID="0">
    <Address1></Address1>
    <Address2>$saddress</Address2>
    <City>$scity</City>
    <State>$sstate</State>
    <Zip5>$szip</Zip5>
    <Zip4></Zip4>
  </Address>
</AddressValidateRequest>
~;

然后将请求构建为GET而不是POST：

$userAgent = new LWP::UserAgent;
$userAgent->agent( 'USPS' );
$url = "https://secure.shippingapis.com/ShippingAPI.dll?API=Verify&XML=$queryString";

$request = new HTTP::Request( 'GET',  $url );

Answer 2

首先，有一个无效的查询字符串。将您正在做的事情与USPS WebTools示例进行比较，并删除它们没有显示的内容。确保您正在正确地设置您的USERID (而不是使用'xxxxxxx')；环境变量在那里很方便。

或者，您可以尝试使用来自GitHub的GitHub模块。它实现了Zip代码查找。