Perl语法中Perl标量和数组概念详解

本文和大家重点讨论一下Perl语法中Perl标量和数组的概念及用法，在学习Perl语言的过程中Perl数组和变量是必须要掌握的知识，这里和大家简单分享一下其概念。

Perl语法

一、Perl语法之Perl标量

1、Perl有三种变量：Perl标量、数组、哈希
2、字符相加不是用“+”号，而是用“.”
3、
#!/usr/bin/Perl-w
$num1="a";####“”是字符
$num2="5";
$num3=$num1x$num2;####$num1重复$num2次
print"\$num3is$num3\n";

执行结果：
[root@test-linuxtmp]#./pe.pl
$num3isaaaaa
[root@test-linuxtmp]#

4、Perl中字符串的比较操作和Shell中的数值测试运算相同,Perl中的数值比较操作就和Shell的字符串比较操作相同。
awk中“=”表示赋值“==”表示等于关系的判断

二、Perl语法之数组

1、数组是由一组连续的Perl标量

1、Perl中使用@加上数组名来表示一个数组;Perl中的数组下标是从“0”开始;Perl中的数组元素不必是同一数据类型

2、使用[]申请数组中第几个元素

3、$name@name%name分别表示Perl标量数组散列

4、push能够把一些元素添加到数组尾部，而pop函数每次只能取走一个元素(是取走而不是复制)末理解的“堆栈数据结构”。

[root@test-linuxtmp]#catpg.pl  


#!/usr/bin/Perl-w  



@list1=(1..4);  




@list2=("zero","one","two","three","four");  



push(@list1,@list2);  



$last=pop(@list1);  



print"\@list1is@list1\n";  


print"\@list2is@list2\n";  


print"\$lastis$last\n";  


[root@test-linuxtmp]#vipg.pl  


[root@test-linuxtmp]#./pg.pl  


@list1is1234zeroonetwothree  


@list2iszeroonetwothreefour  


$lastisfour  


[root@test-linuxtmp]#  

5、unshift函数是在数组的头部插入一个或者是一些新的元素;shift是从数组的头部移走一个元素，整个数组看起来像是向左移动了一个位置。

#!/usr/bin/Perl-w  



@list1=(0..4);  




@list2=("zero","one","two","three","four");  



unshift(@list1,@list2);###是将数组list2插入到数组list1  



$last=shift(@list1);  



print"\@list1is@list1\n\@list2is@list2\n\$lastis$last\n";  


 


[root@test-linuxtmp]#./ph.pl  


@list1isonetwothreefour01234  


@list2iszeroonetwothreefour  


$lastiszero  


[root@test-linuxtmp]#  


 

6、reverse函数的功能是颠倒数组，它可以把数组元素的顺序头尾颠倒。

[root@test-linuxtmp]#catpi.pl  


#!/usr/bin/Perl-w  



@list1=(0..4);  



print"\@list1is@list1\n";  



@list1=reverse(@list1);  



print"\@list1reverseis@list1\n";  


 


[root@test-linuxtmp]#./pi.pl  


@list1is01234  


@list1reverseis43210  


[root@test-linuxtmp]#