登陆

忘记密码

关于perl子函数调用外部给定的参数问题

回复 收藏
在perl子函数中，调用外部提供的参数时，不管是给1个参数还是给n个参数，perl子函数都会以数组的形式处理。
  1. #! /usr/bin/perl
  2. sub pr {
  3.     @a=qw/a b c d e/;
  4.     my ($n)=$_;
  5.     print $n,"\n";
  6.     return $a[$n];
  7. }
  8. print &pr (4);
上例是错误的，不能写成 my ($n)=$_； 而要写成 my ($n)=@_；
正确的代码为
  1. #! /usr/bin/perl
  2. sub pr {
  3.     @a=qw/a b c d e/;
  4.     my ($n)=@_;
  5.     print $n,"\n";
  6.     return $a[$n];
  7. }
  8. print &pr (4);
0 赞
2012-11-13 15:08 举报

没有找到相关结果

    已邀请:
    为什么被折叠? 0 个回复被折叠

    回复帖子，请先登录或注册

    退出全屏模式 全屏模式 回复
    评分
    可选评分理由：

    Copyright © 2024 - 猿课, All Rights Reserved