跪求高手赐教SOAP::data发送中文webservice报文问题

fanwei_2123

#!/usr/bin/perl -w
#use strict;
use SOAP::Lite +trace=>all;
use Encode;
use Encode::CN;
use utf8;
my $line;
my $soap = SOAP::Lite->new( proxy => 'http://webservice.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx');
$soap->default_ns('http://WebXml.com.cn');
$soap->envprefix('soapenv');
$soap->encodingStyle('');

$soap->on_action( sub { return '""'});
#open FILE,"<:encoding(utf","temp_test.xml" or die "";
open FILE,"<temp_test.xml" or die "";
-----temp_test.xml此文件是utf-8编码格式。脚本本身也是utf-8格式
my @Files = <FILE>;
close(FILE);


foreach (@Files){
        chomp;
        s/^\s+|\s$//;
  $line .= $_;

}

my @p = (
                SOAP:ata->name(theIpAddress=> $line)
        );

my $method = SOAP:ata->name('getCountryCityByIp')
                      ->attr({xmlns => 'http://WebXml.com.cn'});
my $som = $soap->call($method => @p);

open FILE ,">teset_ws.xml";
print FILE $som->result;
close(FILE);
    print "\ncall getCountryCityByIp\n";
   
    使用trace跟踪消息发现，$line自动转换成base64Binary编码格式了。。。服务端此字段类型是xsd:string类型
    坑爹呀！！！！咋回事会成样格尼！！！跪求高手赐教~~~~~~~~明明是utf8编码格式 怎么就变成base64了呢？

fanwei_2123

没有高手么

sunguangshou

你来的不是时候，高手都吃饭去了。

fanwei_2123

还是文档靠得住

仔细阅读文档发现居然有一个 这样的函数 $soap->serializer->autotype(0);
这个函数的意思是自动转化类型
修改为autotype(0)关闭自动转化。问题即解决