关于使用perl中原型的一个问题

tangning

我在开发过程中碰到了下面的这个问题，请大家帮忙看一看。
在login.cgi中require login.pl文件，使用login.pl中的login()，若login()是以原型的
形式定义的，那么在login.cgi中必须再次以原型的形式声明该函数，否则在login.cgi中
，该函数就不再受原型约束。

示例代码如下：
-----login.pl------
#!/usr/local/bin/perl

sub login(\@)  # "\@"以原型的形式，指定login的参数必须是array
{
    my $ref_userinfo_array = shift; #这里得到的是一个array 引用
    my ...   
    #下面的代码省略
}
------end------

------login.cgi------
#!/usr/local/bin/perl

require "login.pl";
sub login(\@); #此处必须以原型形式再次声明，否则下面的login()调用就会出问题

#main script
my @user_info = ("tangning", "123456"; #loginid and passwd
login(@user_info);
------end------

我现在的问题是：在*.cgi中需要使用很多的外部*.pl中定义的函数，大多数函数都是用原
型的形式定义的，为了正确使用这些函数，需要一个一个再次定义，非常费事。
请问大家有没有什么办法可以不用在*.cgi中再次声明这些外部的函数。多谢。

Rob

原帖由 "tangning" 发表：
我在开发过程中碰到了下面的这个问题，请大家帮忙看一看。
在login.cgi中require login.pl文件，使用login.pl中的login()，若login()是以原型的
形式定义的，那么在login.cgi中必须再次以原型的形式声明该函数，..........

Perl的原型仅在编译阶段检查，所以你的问题可以这样解决：

BEGIN
{
    require "login.pl";
}

tangning

问题解决，多谢。