perl 基础

1.变量定义：my $variableName;
数组定义：my @arrayName;
注释：#
从#起，到行尾

2.运算符：
字符串　 数字　意义
eq　　　　== (等于)
ne 　　　!= (不等于)
lt　　 < (小于)
le 　　<= (小于或等于)
gt 　　> (大于)
ge 　　>= (大于或等于)

3.关系运算符
(1)
if(condition){

}

(2)
if(condition){
#if
}else{
　#else
}

(3)elseif语句

4.读取输入
$variable=; #从命令行让用户输入

5.简单I/O
读取文件：open IN_FILE,"写入文件：open OUT_FILE ">outputfile.txt";
$number=(IN_FILE);
chomp($number);　　#删剪这一行结尾的新行

6.数组
(1)字义数组：　　　my @array;
(2)取数组变量值：　my $value1=$array[0];
(3)$#array :返回数组最后一个元素索引，即array length-1
(4)$#array==0 :数组中有一个元素　　$#array=-1 :空数组
(5)数组表达式　　：@array=(1,$data,"same", @message);
(6)打印数组：　　　print "The names are : @array.${array[1]}n"
(7)qw :my @array=qw(alpha beta gamma); #注意，qw运算符中没有逗号分隔,若是放了逗号它们就变成了单词的一部分
(8)数据操做函数：
push: push(@array,"push word"); #将元素加在array尾
pop : my $popValue=pop(@array);　#将最后一个元素弹出
shift: my $var=shift(@array); #将第一个元素拿出来
unshift: unshift(@array,$var)l #将$var加在第一个位置

(9)splice函数　　删除或者替换数组的一部分．splice @array,$offset;
(10)
split：分解字符串并将它转成数组 :my @names=split /t/,$full_name;
join　：与split相反，取出数组元素，将它们联合在一块儿　　$result=join("t",@arrayData);
(11) qw():建立单引号引用的单词表，单词之间用空格隔开　　

[@more@]

来自 “ ITPUB博客 ” ，连接：http://blog.itpub.net/106285/viewspace-809167/，如需转载，请注明出处，不然将追究法律责任。

转载于:http://blog.itpub.net/106285/viewspace-809167/