ITPub博客

首页 > 应用开发 > IT综合 > perl 基础

perl 基础

原创 IT综合 作者:zenzuguo 时间:2005-11-02 15:03:27 0 删除 编辑

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/,如需转载,请注明出处,否则将追究法律责任。

下一篇: hash的基本操作
请登录后发表评论 登录
全部评论

注册时间:2012-12-30

  • 博文量
    84
  • 访问量
    829869