PERL快速入门

简单变量类型（1）

以$开始 整型

十进制 $x = 12345; 8进制 $x = 020;（16） 16进制 $x = 0x20; （32） 11.4 、 -0.3 、.3 、 3. 、 54.1e+02 、 5.41e03 $value = 9.01e+21 + 0.01 - 9.01e+21;

数组的赋值

数组（2）


数组包含元素的个数 $Size= @array; 访问数组元素与遍历 $array[no]; $array=(1,2,3,4,5); $Element=$array[0]; foreach $Element(@array){print “$Element”;} for($i=0; $i <@array;$i++){print “$array[$i]”;} 其他赋值操作 ($First)= @array; ($First,$Second)= @array; ($First,$Second,@SubAraay)= @array; @SubAraay = @array[0,1]; @Array[0,1] = ("string", 46);

Key 为数值或者字符串 Value 为数值、者字符串或者引用

哈希的赋值

%Hash=(); %Ages = ("Michael Caine", 39, "Dirty Den", 34, "Angie", 27); @fruit = ("apples",17,"bananas",9,"oranges","none"); %fruitHash = @fruit; ($var1, $var2, %myarray) = @list @Key=keys(%hash); @value=values(%hash);

浮点数


字符串
简单变量类型（2）

字符串
$Str=“this is a string”; $Str=„this is a string‟; 转义字符
Hale Waihona Puke 双引号内可以包含转义字符和其他变量
$number＝11； $text = "This text contains the number $number."; $text = “\tThis text contains the number\n”;
$hash{"b"}=\%Hash2;
print $hash{"a"}->{"b"},"\n";
使用引用构造复杂数据结构(3)
• 值为数组的哈希
@array1=("a","b","c"); @array2=("d","e","f"); @array3=("s","t","z"); %hash=("a",\@array1,"b",\@array2,"c",\@array3); $Pointer=$hash{"b"}; print "@$Pointer"."\n"; print $hash{"c"}->[2]; print ${$hash{"b"}}[0]."\n"; foreach (sort keys %hash){ $Pointer=$hash{$_}; foreach ( @$Pointer ){ print "$_ "; } print "\n"; }
文件句柄

以读方式打开一个文件
open(FH, "< $filename");

以写方式打开一个文件
open(FH, "> $filename");

以添加方式打开一个文件
open(FH, ">> $filename");

关闭文件
close（ FH ）

读文件
While( < FH > ){ print “$_\n”; } @lines=< FH >;
使用引用构造复杂数据结构(4)
• 一个混合数据结构
$Val=12; $String="data"; @array=("a","b","c"); %hash=("a0",11,"b0",12,"c0",13); @Struct=(\$Val,\$String,\@array,\%hash); print ${$Struct[0]}."\n"; print ${$Struct[1]}."\n"; print $Struct[2]->[2]."\n"; print $Struct[3]->{"a0"}."\n"; $Pointer=$Struct[2]; push(@$Pointer,"d"); print "@$Pointer"."\n"; print $Struct[2]->[3]; $Pointer=$Struct[3]; ${$Pointer}{"d0"}="14"; print sort keys (%{$Struct[3]}),"\n"; print sort values (%{$Struct[3]}),"\n";
一个程序实例
简洁强大的Perl
内容介绍



Perl语言 Perl变量类型 模式匹配 Perl控制结构 Perl在自然语言处理中应用 查词典、词典合并、词频统计、汉语分词 词性标注、 简繁转换 网络机器人、调用Google API Perl其他典型应用 建立CGI网络应用 与数据库的接口 在C语言中，使用Perl
数组（3）

有关数组的操作函数 push(@Array,$Str) ; $Str =pop(@Array) ; unshift (@Array, $Str) ; $Str = shift (@Array) ; @sorted=sort(@Array); @ reversed=reverse(@Array); @array=split(“; ”,$String); $String ＝join(“;”, @array); chop(@array); 最后一个字符 chomp(@array); 后一个换行符

单引号内就是字符本身，单引号支持多行赋值
print „\tThis text contains the number\n’;
针对简单变量的操作符(3)

算术操作符

＋, －, *, **, %, <, =, >. !=. >=, <=,<=> lt, gt, le,ge, eq, ne,cmp chop，chomp，substr，length .(连接符) &&, ||, !, xor =, +=.-=,*=,/=,**=,%=, ++,--
使用引用构造复杂数据结构(2)
• 值为哈希的哈希
%hash1=("a0",11,"b0",12,"c0",13); %hash2=("a1",21,"b1",22,"c1",23); %hash3=("a2",31,"b2",32,"c2",33); %hash=("a",\%hash1,"b",\%hash2,"c",\%hash3); $Pointer=$hash{"a"}; @key=sort keys(%$Pointer); print @key; print ${$hash{"a"}}{"a0"}; print $hash{"b"}->{"b1"}; %Hash1=("a",1,"b",2); %Hash2=("d",1,"f",2); $hash{"a"}=\%Hash1;

使用引用构造复杂数据结构(1)
• 二维数组
@array1=("a","b","c"); @array2=("d","e","f"); @array3=("s","t","z"); @array=(\@array1,\@array2,\@array2); $Pointer=$array[0]; print "@$Pointer"."\n"; print $$Pointer[2]; print ${$array[0]}[2]; print "$array[0]->[2]"."\n"; @array1=(1,2);@array2=("a","b"); push(@array,\@array1);push(@array,\@array2); print ${$array[0]}[1],"\n";print ${$array[1]}[1],"\n";