Chinaunix

标题: 使用SOAP::Lite调用web service问题 [打印本页]

---

作者: illidanee    时间: 2012-08-31 15:59
标题: 使用SOAP::Lite调用web service问题
使用soap:lite调用web服务,http报文正常，但是反回

1. Not a HASH reference at /usr/local/lib/perl5/site_perl/5.16.1/SOAP/Lite.pm line 3828.

复制代码

请问是什么问题。

详细报文如下：

1. 
   
2. [root@RHEL5 cgi-bin]# perl client.pl
   
3. SOAP::Transport::new: ()
   
4. SOAP::Serializer::new: ()
   
5. SOAP::Deserializer::new: ()
   
6. SOAP::Parser::new: ()
   
7. SOAP::Lite::new: ()
   
8. SOAP::Transport::HTTP::Client::new: ()
   
9. SOAP::Lite::call: ()
   
10. SOAP::Serializer::envelope: ()
    
11. SOAP::Serializer::envelope: new 100
    
12. SOAP::Data::new: ()
    
13. SOAP::Data::new: ()
    
14. SOAP::Data::new: ()
    
15. SOAP::Data::new: ()
    
16. SOAP::Data::new: ()
    
17. SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0xb6df5c8)
    
18. SOAP::Transport::HTTP::Client::send_receive: POST http://localhost/cgi-bin/sev.pl HTTP/1.1
    
19. Accept: text/xml
    
20. Accept: multipart/*
    
21. Accept: application/soap
    
22. Content-Length: 437
    
23. Content-Type: text/xml; charset=utf-8
    
24. SOAPAction: "World#new"
    
25. 
    
26. <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><new xmlns="World"><c-gensym3 xsi:type="xsd:int">100</c-gensym3></new></soap:Body></soap:Envelope>
    
27. SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0xb9840e0)
    
28. SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
    
29. Connection: close
    
30. Date: Fri, 31 Aug 2012 09:27:01 GMT
    
31. Server: Apache/2.2.22 (Unix) mod_perl/2.0.7 Perl/v5.16.1
    
32. Content-Length: 551
    
33. Content-Type: text/xml; charset=utf-8
    
34. Client-Date: Fri, 31 Aug 2012 09:27:01 GMT
    
35. Client-Peer: 127.0.0.1:80
    
36. Client-Response-Num: 1
    
37. SOAPServer: SOAP::Lite/Perl/0.715
    
38. 
    
39. <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:namesp1="http://namespaces.soaplite.com/perl" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><newResponse xmlns="World"><World xsi:type="namesp1:World"><_temperature xsi:type="xsd:int">100</_temperature></World></newResponse></soap:Body></soap:Envelope>
    
40. SOAP::Deserializer::deserialize: ()
    
41. SOAP::Parser::decode: ()
    
42. SOAP::SOM::new: ()
    
43. SOAP::SOM::DESTROY: ()
    
44. SOAP::Lite::call: ()
    
45. SOAP::Serializer::envelope: ()
    
46. SOAP::Serializer::envelope: as_celsius World=HASH(0xbc4b570)
    
47. SOAP::Data::new: ()
    
48. SOAP::Data::new: ()
    
49. SOAP::Data::DESTROY: ()
    
50. SOAP::Data::DESTROY: ()
    
51. SOAP::Data::DESTROY: ()
    
52. SOAP::Data::DESTROY: ()
    
53. SOAP::Data::DESTROY: ()
    
54. SOAP::Data::new: ()
    
55. SOAP::Data::new: ()
    
56. SOAP::Data::new: ()
    
57. SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0xbc52d88)
    
58. SOAP::Transport::HTTP::Client::send_receive: POST http://localhost/cgi-bin/sev.pl HTTP/1.1
    
59. Accept: text/xml
    
60. Accept: multipart/*
    
61. Accept: application/soap
    
62. Content-Length: 549
    
63. Content-Type: text/xml; charset=utf-8
    
64. SOAPAction: "World#as_celsius"
    
65. 
    
66. <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:namesp1="http://namespaces.soaplite.com/perl" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><as_celsius xmlns="World"><World xsi:type="namesp1:World"><_temperature xsi:type="xsd:int">100</_temperature></World></as_celsius></soap:Body></soap:Envelope>
    
67. SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0xbc53d10)
    
68. SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
    
69. Connection: close
    
70. Date: Fri, 31 Aug 2012 09:27:01 GMT
    
71. Server: Apache/2.2.22 (Unix) mod_perl/2.0.7 Perl/v5.16.1
    
72. Content-Length: 722
    
73. Content-Type: text/xml; charset=utf-8
    
74. Client-Date: Fri, 31 Aug 2012 09:27:02 GMT
    
75. Client-Peer: 127.0.0.1:80
    
76. Client-Response-Num: 1
    
77. SOAPServer: SOAP::Lite/Perl/0.715
    
78. 
    
79. <?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:namesp2="http://namespaces.soaplite.com/perl" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Header><namesp1:World xmlns:namesp1="http://namespaces.soaplite.com/header" xsi:type="namesp2:World"><_temperature xsi:type="xsd:int">100</_temperature></namesp1:World></soap:Header><soap:Body><as_celsiusResponse xmlns="World"><s-gensym5 xsi:type="xsd:float">37.7777777777778</s-gensym5></as_celsiusResponse></soap:Body></soap:Envelope>
    
80. SOAP::Deserializer::deserialize: ()
    
81. SOAP::Parser::decode: ()
    
82. SOAP::SOM::new: ()
    
83. SOAP::Data::new: ()
    
84. SOAP::Data::new: ()
    
85. SOAP::Data::new: ()
    
86. Not a HASH reference at /usr/local/lib/perl5/site_perl/5.16.1/SOAP/Lite.pm line 3828.
    
87. SOAP::SOM::DESTROY: ()
    
88. SOAP::Lite::DESTROY: ()
    
89. SOAP::Deserializer::DESTROY: ()
    
90. SOAP::Parser::DESTROY: ()
    
91. SOAP::Transport::DESTROY: ()
    
92. SOAP::Transport::HTTP::Client::DESTROY: ()
    
93. SOAP::Serializer::DESTROY: ()
    
94. SOAP::Data::DESTROY: ()
    
95. SOAP::Data::DESTROY: ()
    
96. SOAP::Data::DESTROY: ()
    
97. SOAP::Data::DESTROY: ()
    
98. SOAP::Data::DESTROY: ()
    
99. SOAP::Data::DESTROY: ()
    
100. SOAP::Data::DESTROY: ()
     
101. SOAP::Data::DESTROY: ()
     
102. [root@RHEL5 cgi-bin]#
     

复制代码

client代码如下：

1. 
   
2. #!/usr/local/bin/perl
   
3. use SOAP::Lite +trace;
   
4. my $soap = SOAP::Lite                                 
   
5.     -> uri('World')
   
6.     -> proxy('http://localhost/cgi-bin/sev.pl');
   
7.   my $temperatures = $soap                              
   
8.     -> call(new => 100) # accept Fahrenheits            
   
9.     -> result;                                          
   
10.   print $soap                                          
    
11.     -> as_celsius($temperatures)                        
    
12.     -> result;   
    

复制代码

servcie代码如下：

1. 
   
2. #!/usr/local/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. package World;
   
6.    
   
7. sub new {
   
8.     my $self = shift;
   
9.     my $class = ref($self) || $self;
   
10.     bless {_temperature => shift} => $class;
    
11. }
    
12. sub as_fahrenheit {
    
13.     return shift->{_temperature};
    
14. }
    
15. sub as_celsius {
    
16.     return 5/9*(shift->{_temperature}-32);
    
17. }
    

复制代码

---

作者: illidanee    时间: 2012-09-03 11:35
  有没有人知道啥原因啊？

---

作者: zhlong8    时间: 2012-09-03 12:31
这个太细节了你看下是不是有什么需要检查的异常没处理的，不会这个，实在没那个精力给你一级一级查看

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2