Username: Password:

perl实例分析教程之十二
来源:linux宝库作者:linux宝库 发布时间:2007-09-30 00:00:00


  六、从数组变量复制到关联数组

  和列表相同,也能够通过数组变量创建关联数组,当然,其元素数目应该为偶数,如:

  @fruit = ("apples",17,"bananas",9,"oranges","none");

  %fruit = @fruit;

  反之,能够把关联数组赋给数组变量,如:

  %fruit = ("grapes",11,"lemons",27);

  @fruit = %fruit;

  注意,此语句中元素次序未定义,那么数组变量@fruit可能为("grapes",11,"lemons",27)或("lemons",27,"grapes",11)。

  关联数组变量之间能够直接赋值,如:%fruit2 = %fruit1; 还能够把数组变量同时赋给一些简单变量和一个关联数组变量,如:

  ($var1, $var2, %myarray) = @list;

  此语句把@list的第一个元素赋给$var1,第二个赋给$var2,其余的赋给%myarray。

  最后,关联数组能够通过返回值为列表的内嵌函数或用户定义的子程式来创建,下例中把split()函数的返回值--一个列表--赋给一个关联数组变量。

  1: #!/usr/local/bin/perl

  2:

  3: $inputline = ;

  4: $inputline =~ s/^s+|s+n$//g;

  5: %fruit = split(/s+/, $inputline);

  6: print ("Number of bananas: $fruit{"bananas"}n");

  运行结果如下:

  oranges 5 apples 7 bananas 11 cherries 6

  Number of bananas: 11

  七、元素的增删

  增加元素已讲过,能够通过给一个未出现过的元素赋值来向关联数组中增加新元素,如$fruit{"lime"} = 1;创建下标为lime、值为1的新元素。

  删除元素的方法是用内嵌函数delete,如欲删除上述元素,则:

  delete ($fruit{"lime"});

  注意:

  1、一定要使用delete函数来删除关联数组的元素,这是唯一的方法。

  2、一定不要对关联数组使用内嵌函数push、pop、shift及splice,因为其元素位置是随机的。

  八、列出数组的索引和值

  上面已提到,keys()函数返回关联数组下标的列表,如:

  %fruit = ("apples", 9,

  "bananas", 23,

  "cherries", 11);

  @fruitsubs = keys(%fruits);

  这里,@fruitsubs被赋给apples、bananas、cherries构成的列表,再次提请注意,此列表没有次序,若想按字母顺序排列,可使用sort()函数。

  @fruitindexes = sort keys(%fruits);

  这样结果为("apples","bananas","cherries")。类似的,内嵌函数values()返回关联数组值的列表,如:

  %fruit = ("apples", 9,

  "bananas", 23,

  "cherries", 11);

  @fruitvalues = values(%fruits);

  这里,@fruitvalues可能的结果为(9,23.11),次序可能不同。

  九、用关联数组循环

  前面已出现过利用keys()函数的foreach循环语句,这种循环效率比较低,因为每返回一个下标,还得再去寻找其值,如:

  foreach $holder (keys(%records)){

  $record = $records{$holder};

  }

  Perl提供一种更有效的循环方式,使用内嵌函数each(),如:

  %records = ("Maris", 61, "Aaron", 755, "Young", 511);

  while (($holder, $record) = each(%records)) {

  # stuff goes here

  }

  each()函数每次返回一个双元素的列表,其第一个元素为下标,第二个元素为相应的值,最后返回一个空列表。

  注意:千万不要在each()循环中添加或删除元素,否则会产生不可预料的后果。

喜欢本文,那就收藏到:

    Del.icio.us Google书签 Digg Live Bookmark Technorati Furl Yahoo书签 Facebook 百度搜藏 新浪ViVi 365Key网摘 天极网摘 和讯网摘 博拉网 POCO网摘 添加到饭否 QQ书签 Digbuzz我挖网
相关评论  我也要评论
还没有关于此文章的相关评论!
  • 昵称: (为空则显示guest)
  • 评论分数: ★ ★ ★★★ ★★★★ ★★★★★
  • 评论内容:(不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
  • 导航
    赞助商
    文章类别
    订阅