Perl基础 解析Perl标量和数组概念

Perl言语中Perl标量和数组的见地你是可生习，Perl有三种变量：Perl标量、数组、哈希，这里引睹一下Perl标量的见地和Perl数组的用法。 AD： 本文和年夜家重点构和一下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中 = 示意赋值 == 示意便是关系的判定 2、Perl数组--数组是由一组持绝的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]# 7、哈希 哈希变量和数组十分相似，皆能够寄存多个Perl标量，每个Perl标量能够经过索引伶仃存取。差别的是哈希变量的索引没有是数组的下标，而是别的一个Perl标量。仄日这个Perl标量被称做key,经过key,我们就能够会睹 到其对应的数据。别的一点的差别是哈希变量中的元素没有先后之分，是无序的，key是能够会睹它们的惟一通道。Perl中应用百分号 % 去示意一个哈希变量。 为以下内容 [root@test-linuxtmp]#catpl.pl #!/usr/bin/Perl-w $area{"beijing"}=9; $area{"shanghai"}=8; print $area{"beijing"}\n %areab=("hebei"= 5,"handan"= 4); print \$areabhebeiis$areab{"hebei"}\n print \$areabhandanis$areab{"handan"}\n [root@test-linuxtmp]# 实施偏向 [root@test-linuxtmp]#./pl.pl Unquotedstring areab mayclashwithfuturereservedwordat./pl.plline5. Operatororsemicolonmissingbefore%areabat./pl.plline5. Ambiguoususeo f%resolvedasoperator%at./pl.plline5. Can"tmodifymodulus(%)inscalarassignmentat./pl.plline5,near Executionof./pl.plabortedduetocompilationerrors. 但将2到4行注释掉能够胜利实施。缘由没有清楚 [root@test-linuxtmp]#catpt.pl #!/usr/bin/Perl-w %area=(1, a ,2, b print \%areais1$area\n