Can't use string ("abc@abc.com") as a HASH ref

rossini23

client(tcl实现)使用xmlrpc和server(perl实现)通信时收到如下错误，请哪位帮忙看一下什么意思？我只负责client的实现，不懂perl。谢过了

Can't use string ("abc@abc.com") as a HASH ref while "strict refs" in use
at Bugzilla/WebService/User.pm line 45.

client代码：

1. package require XMLRPC
   
2. 
   
3. XMLRPC::create "User.login" -proxy http://bugzilla/bugzilla/tr_xmlrpc.cgi \
   
4.         -params {login string password string remember boolean}
   
5. 
   
6. set result [User.login abc@abc.com 123456 0]
   
7. puts $result

复制代码

User.pm代码：

1. # -*- Mode: perl; indent-tabs-mode: nil -*-
   
2. #
   
3. # The contents of this file are subject to the Mozilla Public
   
4. # License Version 1.1 (the "License"); you may not use this file
   
5. # except in compliance with the License. You may obtain a copy of
   
6. # the License at http://www.mozilla.org/MPL/
   
7. #
   
8. # Software distributed under the License is distributed on an "AS
   
9. # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
   
10. # implied. See the License for the specific language governing
    
11. # rights and limitations under the License.
    
12. #
    
13. # The Original Code is the Bugzilla Bug Tracking System.
    
14. #
    
15. # Contributor(s): Marc Schumann <wurblzap@gmail.com>
    
16. #                 Max Kanat-Alexander <mkanat@bugzilla.org>
    
17. #                 Mads Bondo Dydensborg <mbd@dbc.dk>
    
18. #                 Noura Elhawary <nelhawar@redhat.com>
    
19. 
    
20. package Bugzilla::WebService::User;
    
21. 
    
22. use strict;
    
23. use base qw(Bugzilla::WebService);
    
24. 
    
25. use Bugzilla;
    
26. use Bugzilla::Constants;
    
27. use Bugzilla::Error;
    
28. use Bugzilla::User;
    
29. use Bugzilla::Util qw(trim);
    
30. use Bugzilla::Token;
    
31. use Bugzilla::WebService::Util qw(filter validate);
    
32. 
    
33. # Don't need auth to login
    
34. use constant LOGIN_EXEMPT => {
    
35.     login => 1,
    
36.     offer_account_by_email => 1,
    
37. };
    
38. 
    
39. ##############
    
40. # User Login #
    
41. ##############
    
42. 
    
43. sub login {
    
44.     my ($self, $params) = @_;
    
45.     my $remember = $params->{remember};
    
46. 
    
47.     # Username and password params are required
    
48.     foreach my $param ("login", "password") {
    
49.         defined $params->{$param}
    
50.             || ThrowCodeError('param_required', { param => $param });
    
51.     }
    
52. 
    
53.     # Convert $remember from a boolean 0/1 value to a CGI-compatible one.
    
54.     if (defined($remember)) {
    
55.         $remember = $remember? 'on': '';
    
56.     }
    
57.     else {
    
58.         # Use Bugzilla's default if $remember is not supplied.
    
59.         $remember =
    
60.             Bugzilla->params->{'rememberlogin'} eq 'defaulton'? 'on': '';
    
61.     }
    
62. 
    
63.     # Make sure the CGI user info class works if necessary.
    
64.     my $cgi = Bugzilla->cgi;
    
65.     $cgi->param('Bugzilla_login', $params->{login});
    
66.     $cgi->param('Bugzilla_password', $params->{password});
    
67.     $cgi->param('Bugzilla_remember', $remember);
    
68. 
    
69.     Bugzilla->login;
    
70.     return { id => $self->type('int', Bugzilla->user->id) };
    
71. }
    
72. 
    
73. sub logout {
    
74.     my $self = shift;
    
75.     Bugzilla->logout;
    
76.     return undef;
    
77. }

复制代码

zhlong8

你调用的时候出错了吧？上面的看不懂不过可以猜下

-param {login string password string remember boolean}

传入参数的时候是不是应该是 'login' User.login ‘password' abc@abc.com ’remember‘ 123456 ‘boolean’ 0 组成的一个 hashref
下面 login 函数需要一个 hashref 参数，出错原因是你传入的不是 hashref

rossini23

你调用的时候出错了吧？上面的看不懂不过可以猜下

-param {login string password string remember bool ...
zhlong8 发表于 2011-04-07 10:59

谢谢。试了一下，还是出错。这次应该是本地给出的错误。之前的错误我用wireshark抓包看到的，是server端返回的。
D:\>tclsh testopia.tcl
wrong # args: should be "User.login login password remember"


我也怀疑是传参可能跟server端不大一样，但是tcl的传参确实是这样的，怎么传都还是string。

User.login是testopia提供的API，具体描述见下面的链接：
http://landfill.bugzilla.org/tes ... ebService/User.html

zhlong8

那我就不懂鸟，反正提示错误的意思是传入 login 的参数应该是 hashref 却传入了 abc@abc.com。

rossini23

回复 4# zhlong8


   我又尝试了一下，发现确实是传参的问题。下面的代码就ok了，谢谢了。

1. package require XMLRPC
   
2. 
   
3. ::rpcvar::typedef {
   
4.         login string
   
5.         password string
   
6.         remember boolean       
   
7. } login
   
8. 
   
9. XMLRPC::create "User.login" -proxy http://bugzilla/bugzilla/tr_xmlrpc.cgi \
   
10.         -params [list login login]
    
11. 
    
12. set result [User.login [list login abc@abc.com password 123456 remember 1]]
    
13. puts $result

复制代码

zhlong8

那个文档没说调用方式啊，是不是 User.login -login abc@abc.com -password xxx -rember 1