perl的array和map/hash

最新推荐文章于 2020-09-13 15:59:30 发布

weixin_33750452

最新推荐文章于 2020-09-13 15:59:30 发布

阅读量108

点赞数

一 array

1）实例

use strict;
use warnings;

my @myarray = ( 123 , " hello " , 456 , ' guy ' );

foreach ( @myarray )
{
     print " $_ " ;
}
print " \n " ;
foreach my $item ( @myarray )
{
     print " $item " ;
}
print " \n " ;
for ( my $i = 0 ; $i < scalar ( @myarray ); $i ++ )
{
     print " $myarray[$i] " . " " ;
}
print " \n " ;
for ( 0 .. ($ # myarray))
{
     print " $myarray[$_] " . " " ;
}
print " \n " ;

@myarray = ( @myarray , 789 );
print " @myarray\n " ;
push ( @myarray , " gril " );
print " @myarray\n " ;
unshift ( @myarray , ' 000 ' );
print " @myarray\n " ;

delete $myarray[1];
print "@myarray\n" ;

2）函数，如下：

3）注释：

1】使用@定义array，使用array的item时$array[n]；

2】使用scalar来获得array的size；

3】$#获得最大的index，即size-1；

4】$_在for和foreach中表示当前item；

5】push/pop用来在array的最后加入和弹出item；

6】shift/unshift用来在array的前面删除和插入item；

7】split/john用来实现array和string间的转化；

8】delete可以用来删除item，例如delete $myarray[1];

二 map/hash

1) 实例：

use strict;
use warnings;

my %myhash = ( ' k1 ' , 100 , ' k2 ' , 200 );
# my %myhash = (k1=>100,k2=>200);
print %myhash ;
print " \n " ;
$myhash { ' k3 ' } = 300 ;
$myhash { ' k4 ' } = 400 ;
print %myhash ;
print " \n " ;

foreach my $key ( keys %myhash )
{
     print $key . " indexes " . $myhash { $key } . " \n " ;
}
foreach my $value ( values %myhash )
{
     print $value . " \n " ;
}
while (( my $key , my $value ) = each ( %myhash ))
{
     print " $key indexes $value \n "
}

if ( exists $myhash { ' k1 ' }) { print " k1 is exist\n " ;}

delete $myhash { ' k1 ' };
print %myhash ;
print " \n " ;

2）函数，如下：

3）注释：

1】%用来定义map/hash；
2】对单个的key赋值是使用$,例如$myhash{'k3'} = 300;
3】keys获得所有的keys到array；
4】values获得所有的values到array；
5】迭代，每次返回一对key/value;
6】exists用来判断某个key是否存在；
7】delete用来删除指定的key，同时对应的value也被删除；

三总

Array Functions

@array = ( ); Defines an empty array

@array = (“a”, “b”, “c”); Defines an array with values

$array[0] The first element of @array

$array[0] = a; Sets the first element of @array to a

@array[3..5] Array slice - returns a list containing the 3rd thru 5th

elements of @array

scalar(@array) Returns the number of elements in @array

$#array The index of the last element in @array

grep(/pattern/, @array) Returns a list of the items in @array that matched

/pattern/