Perl入门介绍2

《Perl入门介绍2》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Perl入门介绍北京大学生命科学学院07级叶永鑫Yyx2626@126.com2010年12月Perl脚本文件(.pl)整体框架#!usr/bin/perlusestrict;usewarnings;###main###my($a,$b);...print("...");###sub###submyFunction{...}Perl中注释：#一行注释Perl脚本运行方式Linux、Mac安装Perl（一般默认已安装好）命令行输入perlmyPerlScript.pl（后可跟命令行参数、重定向>或管道

2、）或者设置该脚本文件的属性为可执行chmodu+xabc.

3、pl再直接命令行输入abc.pl[命令行参数]Windows安装ActivePerl例如ActivePerl-5.12.1.1201从“运行...”输入cmd调出命令行窗口用cd命令转换当前目录到.pl所在的目录命令行输入perlmyPerlScript.pl（后可跟命令行参数、重定向>或管道

4、）运算符（操作符，operator）1算术运算符：+、-、*、/、**(乘幂)、%(取余)、-(单目负)比较运算符：<、>、<=、>=、==、!=、<=>（数），lt、gt、le、ge、eq、ne、cmp（字符串）逻辑运算符：&&、

5、

6、、!、and、or、not位运算符

7、：&、

8、、~（非）、^（异或），<<（左移）、>>运算符（操作符，operator）2赋值运算符：=、+=、&=、.=等自增自减操作符：++、--字符串连接.字符串重复x逗号操作符,（前面的表达式先进行运算）条件操作符?:操作符次序，括号()简单变量整型$x=12345;浮点数11.4、-0.3、.3、3.、54.1e+02、5.41e03字符串双引号字符串：支持简单变量替换"Thistextcontainsthenumber$number."转义符：、t单引号字符串：1.没有变量替换功能；2.反斜线不支持转义字符；3.可以跨多行undef与defined

9、()、undef()列表/数组（array）1空列表()数组变量@array=(1,2,3);Perl用@和$来区分数组变量和简单变量，可同名，但不建议数组通过下标存取$array[3]=5;数组间拷贝@result=@original;(1..5)=(1,2,3,4,5)数组的长度scalar(@array)slice@array[0,1]@array1[@array2]列表/数组（array）2适用于数组的内置函数：sort(@array)排序reverse(@array)反转chop(@array)数组每个元素去尾chomp(@array)数组每个元素去末

10、尾换行符join("",@array)用""连接数组各元素split(/regExp/,$string)返回由regExp分隔的子字符串push、pop、shift、unshiftspliceforeach$element(@array){...}散列/哈希表/关联数组（hash）1%fruit=("apples"=>17,...);%fruit=@array;@array=%hash引用（使用）元素$fruit{"apples"}slice@fruit{"apples","bananas"}散列/哈希表/关联数组（hash）2适用于散列的函数：delete($

11、hash{$key})exists($hash{$key})keys(%hash)values(%hash)foreach$keykeys(%hash){...}变量声明和作用域usestrict;mylocalmy($a,@b,%c);my$d=92;my@e=("abc","def",108);控制结构1if(condition1){...}elsif(condition2){...}else{...}控制结构2while(condition){...}for($i=0;$i

12、oreach$element(@array){...}last（相当于break）next（相当于continue）redogotolabel;I/O1$line=;@lines=;print"Helloworld!";printSTDERR"error:$!";open(INPUT_FILE,"filename");$line=;close(INPUT_FILE);I/O2open(OUTPUT_FILE,">filename");printOUTPUT_FILE("Helloworld!")

13、;close(FILEH