一、函数定义

子程序即一段分离的代码,它可以使减少重复代码且程序易读.perl中,子程序可以出现在程序的任何地方.但一般放在程序的开始或结尾.

sub subroutine{

    statements;

}

sub开始,子程序名同变量的命名规则,可与变量同名,最好不要与内部函数同名,如果与内部函数同名则用$subroutine区分,不用&是内部函数,用&是定义函数,但省略&时混淆.

带有原型说明的子程序定义:

sub subroutine($$){   #需要两个简单变量的参数

    statements;

}

说明:

1.()中的符号表示参数的类型,以一个字符表示一个参数.
2.$ 简单变量 @ 列表 % 散列 & 匿名子程序 * 引用
3.前加为强制类型一致,;分隔必须的参数和可选参数.
4.@$;$表示第一个参数为列表,第二个参数为简单变量,第三个参数简单变量可选.

二、函数返回值

1.缺省子程序中最后执行的一个语句的值将用作返回值,如果在if块中为最后执行的语句,虽然不是子程序的最后一句,也是返回值.

$a=1;

不用等于,直接$retval;

split(/:/,@a) 返回数组.

2.语句return(retval) 退出子程序并返回值retval,retval可以为列表.

3.返回错误

return 返回错误undef

用eval(‘subroutine') 函数,错误由$@变量中取得.

三、函数参数传递

形式:

$sub1($num1,$unm2,$num3);     调用

sub sub1{

my($num1,$unm2,$num3)=@_;

}

my $num1=shift;

my $num2=shift;

my $num3=pop;

说明:

1.所有参数在数组@_中,每个元素为$_[0],$_[1]
2.@_,$_[]为局部变量,当子程序内再调用子程序时,@_不改变,会新生成另一份@_.
3.改变@_内元素的值如$_[0]会改变主程序的参数值.
4.shift pop 一次取一个参数.对@_操作,shift取第一个参数,然后删除,pop取最后一个参数再删除.

Perl中的控制结构学习笔记
一、语句的种类计算机是一种工具，优势在于执行重复任务.循环执行，循环语句。需要作出大量的判断，按条件执行，条件语句。顺序语句。表达式真

使用perl实现拆分数据表（mysql）并迁移数据实例
随着业务量的增长，可能需要对表进行拆分来提高性能。下面这个例子是将www.gimoo.net的users表拆分成10个表ttlsa_user_0-ttlsa_user_9。拆分迁移数据程序如下

perl实现检测服务器中的服务是否正常脚本分享
程序调用远端服务，为了确保可用性最好在使用前进行健康检测，将异常的服务排除。#!/usr/bin/perl#usestrict;useIO::Socket;my@servers;$servers[0]=['180.153.100.93',2222]