????? ?????

???????
????????
   1????&????
   2???????????
   3?????????
   4????do????
?????????
??????????
?塢????????????
   1?????
   2??????????
????????????
???????????????????
??????????????

???????
  ??????????????????????η?????????????????????????????????????PERL?У???????????????????κε???????巽?????
  sub subroutine{
    statements;
  }
????????
  ???÷??????￡?
1????&????
  &subname;
  ...
  sub subname{
    ...
  }
2??????????? ?????????&????
  sub subname{
    ...
  }
  ...
  subname;
3????????? ????????????????????????????????
  sub subname;
  ...
  subname;
  ...
  sub subname{
    ...
  }
4????do????
  do my_sub(1, 2, 3);?????&my_sub(1, 2, 3);
?????????
  ???????????????????????????????????????return (retval);??????????????????retval??retval??????б??
??????????
  ??????о??????????????????????my??local???????????my??????????????????д??????local???????????????????????У?????????????????????????????????(??PERL4?????my)?????????????丳????磺
  my($scalar) = 43;
  local(@array) = (1, 2, 3);
?塢????????????
1?????
  &sub1(&number1, $number2, $nubmer3);
  ...
  sub sub1{
    my($number1, $number2, $number3) = @_;
    ...
  }
2??????????
  &addlist (@mylist);
  &addlist ("14", "6", "11");
  &addlist ($value1, @sublist, $value2);
  ...
  sub addlist {
    my (@list) = @_;
    ...
  }
????????????????????????????????????????
  sub twolists {
    my (@list1, @list2) = @_;
  }
??@list2???????????????????????????????????
  &twoargs(47, @mylist); # 47????$scalar??@mylist????@list
  &twoargs(@mylist); # @mylist????????????$scalar?????????????@list
  ...
  sub twoargs {
    my ($scalar, @list) = @_;
    ...
  }
????????????
  PERL?У????????????????????÷????????????????????????????????????????????????????????????????1?????????????????????????е??????????????2???????????????????????????
???????????????????
1??????潲??????÷???&my_sub(@array)????????@array?????????????????е????@_?У???????????????????????????????????????????????Щ???????????????????????????磺
  @myarray = (1, 2, 3, 4, 5);
  &my_sub(*myarray);
  sub my_sub {
    my (*subarray) = @_;
  }
2?????????????C?????е?????????????????????????????????????????????????????????????????????????????????磺
  $foo = 26;
  @foo = ("here's", "a", "list");
  &testsub (*foo);
  ...
  sub testsub {
    local (*printarray) = @_;
    ...
    $printarray = 61;
  }
  ???????????????????е?$foo??????????61??????????26???
3????????????????????????飬?磺
  @array1 = (1, 2, 3);
  @array2 = (4, 5, 6);
  &two_array_sub (*array1, *array2);
  sub two_array_sub {
    my (*subarray1, *subarray2) = @_;
  }
  ?????????У?subarray1??array1???????subarray2??array2???????
??????????????
  PERL5???????????????????????????????У????????BEGIN?????????????????????END?????????????????????AUTOLOAD??????????????????????????á????????????????????????????????????????????磺
  BEGIN {
    print("Hi! Welcome to Perl!\n");
  }
  AUTOLOAD{
    print("subroutine $AUTOLOAD not found\n"); # ????$AUTOLOAD??δ????????????
    print("arguments passed: @_\n");
  }
  ??????????????????????????BEGIN?????У?END??????С?

????? ????? ??

paper | appdir | ssv

亚洲欧美在线