编译出错，帮忙看一下

skyoflzp

my $user="xxx";
my $pass="xxx";
...
...
...
sub InitConnection() {
    my($user, $pass, $hostname) = @_;
    my $conn=new Net::Telnet(Timeout=>10,telnetmode=>1, Errmode=>"return");
    $conn->open($hostname);
    return undef if $conn->login("$user","$pass")!=1;
    return $conn;
}

foreach $host (@host) {
    my $telnet = InitConnection("$user", "$pass", "$host");   
    if (defined $telnet) {
        # to do here...
    }
}

[root@sdbsmon1 cgi-bin]# perl -c test.cgi
Too many arguments for main::InitConnection at sun_daily.cgi line 10, near ""$host")"
test.cgi had compilation errors.
不知道有什么错误？帮忙啊！！！

[ 本帖最后由 skyoflzp 于 2007-7-22 11:52 编辑 ]

skyoflzp

没有人吗?

royalzhang

去掉sub InitConnection() 中的括号
或者，你如果实在喜欢C语言的风格，那就得显式说明：
sub InitConnection($$$)
否则你的()就告诉perl你的sub没有参数。

[ 本帖最后由 royalzhang 于 2007-7-22 14:29 编辑 ]

skyoflzp

thanks a lot!