[perl笔记] － 流程和函数

if(){

}elsif(){

}else{

}

 

while(){

}

 

until(){

}

 

for(; ;){

}

foreach $word (@words) {
    if ($word eq "the") {
      print ("found the word 'the'\n"); 
    }
  }

do {
    statement_block
  } while_or_until (condexpr);

 

last:　　与C中的break作用相同；

next:　　与C中的continue作用相同；

redo:　　重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。

goto label;

 

函数：

C语言中：

1　　先声明，再调用，再定义

　　void fun(void);

　　void other(void){fun();}

　　void fun(void){};

2　或者先定义，再调用

　　void fun(void){};

　　void other(void){fun();}

 

perl语言

函数，返回值缺省，return即可，和python，ruby相同

1　　先定义，再调用，可以省略&符号

　　 sub subname{
  　　}
  　　...
  　　subname;

2　　先使用&符号调用，再定义，

  &subname;
  ...
  sub subname{
    ...
  }

3　　先声明，再调用，再定义
  sub subname;
  ...
  subname;
  ...
  sub subname{
    ...
  }

4　用do调用 
  do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);

 

变量

本地变量：my

my($scalar) = 43;

本地变量和调用子程序都可以使用的变量：local

local(@array) = (1, 2, 3);

 

参数传递

?

#传递数组

  &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) = @_;

    ...

  }

 

#注意简单变量和数组同事传递时的顺序

sub argument{

 

    my ($filetimes, @filename,)=@_; #注意，如果$和@调换位置，则filename则为空值

 

}

 

$filename=file4;

@filenames=('file1','file2','file3');

argument( $filename，@filenames,);