太平洋汽车网 | 太平洋游戏网 | 太平洋女性网 | 太平洋亲子网 | PC购物网  网站地图  
太平洋电脑网
首    页
产业资讯
行情报价产品库
数据调研评测室
服 务 器网络设备
方案应用办公设备
软件资讯产品论坛PCclub社区
下载中心软件论坛摄影部落
渠道商情通信游戏科技奥运
图库二手招聘培训
diyDIY硬件 手机手  机 笔记本笔记本 台式机台式机

数码世界

数码相机数码相机 随身听MP3/MP4 摄像机摄像机 数字家电数字家电 精品廊精品廊
北京 上海 广州 深圳 香港 广西 重庆 武汉 山东 江苏 辽宁 福建 成都 西安 江西 湖南 黑龙江 台湾
 
 
   
软件 首页 | 资讯 | 应用 | 评测 | 教你学电脑 | 信息安全 | 创意设计 | 开发特区 | 软件下载 | 专题 | 社区
 
软件 特色专区: QQ大本营 | Vista专区 | msn总动员 | 组网专栏 | Photoshop | 视频专栏 | 常用软件
 
您现在的位置: 软件  >  开发特区  >  Web开发  >  CGI

perl实例分析教程之十二

出处:奥索网[ 2004-02-14 09:33:53 ] 作者:flamephoenix 责任编辑:pjl

导 读  
  perl实例分析教程之十二
六、从数组变量复制到关联数组 与列表一样,也可以通过数组变量创建关联数组,当然,其元素数目应该为偶数,如: @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()循环中添加或删除元素,否则会产生不可预料的后果。
前一页 [1] 下一页
下一篇:perl实例分析教程之十三
 今日论坛热贴推荐
·几秒钟合并N个TXT文件
·技巧:怎么清除Windows 7视频锯齿现象
·揭密网游帐号是怎样被盗的全过程
·没有刻录机?Windows 7硬盘安装四大法
·Windows 7将解决微软的“纠结”
·全球首款装正版win7的thinkpad x200
·十大理由决定Windows 7成败
·微软官网首次提及Windows 7 SP1
·从Windows桌面看性格【娱乐】
·惊现google官方Chrome Os下载!?
更多资讯请点击: perl实例分析 

  发给好友 我要报错 投稿给我们 加入收藏 返回顶部  
相关文章  

About Us | 关于我们 | 隐私政策 | 广告服务 | 联系我们 | 招聘精英 | 网站律师 | 合作联系 | 友情链接
太平洋专业网站群:  太平洋电脑网 ┊ 太平洋汽车网 ┊ 太平洋游戏网 ┊ 太平洋女性网 ┊ 太平洋亲子网

广东省通信管理局
ICP证粤B2-20040647
互联网清理整顿
技术支持与报障:support@pconline.com.cn
        020-87568837         
对本站有任何建议、意见或投诉,请点这里在线提交.
本网站简体、繁体两种版本,以简体版为准
PConline版权所有,未经授权禁止转载、摘编、复制或建立镜像.如有违反,追究法律责任