Perl subroutine arguments

gaoyang636

看C中有类似这种用法：main调用子程序时，传入参数1为一个数组（例如，储存某行的字符）。而子程序的返回值为一个数字（例如某行的长度）。这个数组并不需要做任何操作，在main和sub中都可以拿来直接操作的，貌似没在Perl中见到类似的用法，我接触到的subroutine（不包括面向对象的），需要返回一个array时，都是通过子程序最后返回值进行操作的。新手不确定，特来请教各位是不是这样子的呢？
例子代码：

1. main () {
   
2. .......
   
3. while ((len=getline(array,100)>0){
   
4.   if (len>max) {
   
5.     max=len;
   
6.     some operations on array
   
7.    ...}
   
8. }
   
9. 
   
10. #子程序
    
11. int getline  (char s[],int lim){
    
12.    ....
    
13.    for (i=>;i<lim && (c=getchar())!=EOF;++i){
    
14.     s[i]=c;
    
15. }
    
16. ....
    
17. return i;
    
18. }

复制代码

zhlong8

Perl 中可以直接用操作 @_ 相当于别名，和你上面C的例子效果一样，注意只能用 $_[X] 这样的方式。也可以用 prototype 把传入的变量自动转成引用。

比如
my $k = 1;

say $k; # 1

sub add1 { $_[0] ++ }

add1 $k; # 2
say $k;

sub add2 (\$) {
    my $ref = shift;
    $$ref +=2;
}

add2 $k;
say $k; # 4

gaoyang636

回复 2# zhlong8


    嗯，清晰明了，谢谢版主 操作@_直接就能更改原变量的值，我很容易就出错了

zhlong8

回复 3# gaoyang636


    经常用 my($a, $b) = @_; 其实是复制了参数所以不会出问题。如果参数是常量那 add1 相当于修改常量是运行时错误，对于 add2 连元型都不匹配是编译期错误。

gaoyang636

回复 4# zhlong8


    原来如此，谢谢指教:wink: