Too many arguments 的错误大家遇到过么？有无什么解决办法

bulletming

Too many arguments 的错误大家遇到过么？有无什么解决办法
root@test # perl -we "sub NOP(){};NOP('a')"
Too many arguments for main::NOP at -e line 1, at end of line
Execution of -e aborted due to compilation errors.

我程序里边遇到同样的错误，网上搜到相同的简单的报错的例子！

bulletming

when you say
sub pa () {
...

you say that there is a function pa expecting 0 arguments

if you say
sub pa {
...

you say that there is a function pa with ANY number of arguments

so you should remove the () from the function definition.


-- Gabor


On 2001.07.24 15:56 Arie Abramovitch wrote:
> Hi
>
> I have 2 files: my.pl and ub.pm.
>
> The script pub.pm. contains the function pa() definition as follows:
> ---------------------------------------------------------
> sub pa ()
> {
>          pa_profile(0, scalar(@_), \@_);
> }
> ---------------------------------------------------------
>
> The script my.pl calls the function pa()  as follows:
> ---------------------------------------------------------
> pa ( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
> ---------------------------------------------------------
>
> The problem:
> When I try to run my.pl script, PERL fails with a compilation error:
> Too many arguments for pub::pa at my.pl line 25, near "9)"
>
> I moved the definition of pa() to the script my.pl and PERL runs ok.
>
> My question:
> Why did PERL complain in the first case?
> Why did it stop complaining after placing the function in my.pl?
> What should I do to run the pa() function in its original place (in
> pub.pm)?
>
> Thanks,

flw

你给 NOP 加了原型说明，但是又不按照原型走，不知道你到底想要干什么……

bulletming

to: flw
不管你有多牛，不要用训斥别人口吻讲话
别人也只是一时疏忽了，当然也是理解不深！平时主要工作不是编程，所以研究不够深！
遗憾呀！毕业后没有走到想走的编程的路上！