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

数码世界

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

perl实例分析教程之六

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

导 读  
  perl实例分析教程之六
3、列表范围: (1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10) (2, 5..7, 11) = (2, 5, 6, 7, 11) (3..3) = (3) .用于实数 (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1) (4.5..1.6) = () .用于字符串 ("aaa".."aad") = ("aaa","aab", "aac", "aad") @day_of_month = ("01".."31") .可包含变量或表达式 ($var1..$var2+5) .小技巧: $fred = "Fred"; print (("Hello, " . $fred . "!n") x 2); 其结果为: Hello, Fred! Hello, Fred! 4、数组的输出: (1) @array = (1, 2, 3); print (@array, "n"); 结果为: 123 (2) @array = (1, 2, 3); print ("@arrayn"); 结果为: 1 2 3 5、列表/数组的长度 当数组变量出现在预期简单变量出现的地方,则PERL解释器取其长度。 @array = (1, 2, 3); $scalar = @array; # $scalar = 3,即@array的长度 ($scalar) = @array; # $scalar = 1,即@array第一个元素的值 注:以数组的长度为循环次数可如下编程: $count = 1; while ($count <= @array) { print ("element $count: $array[$count-1]n"); $count++; } 6、子数组 @array = (1, 2, 3, 4, 5); @subarray = @array[0,1]; # @subarray = (1, 2) @subarray2 = @array[1..3]; # @subarray2 = (2,3,4) @array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now @array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now @array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now @array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now 可以用子数组形式来交换元素: @array[1,2] = @array[2,1]; 7、有关数组的库函数 (1)sort--按字符顺序排序 @array = ("this", "is", "a","test"); @array2 = sort(@array); # @array2 = ("a","is", "test", "this") @array = (70, 100, 8); @array = sort(@array); # @array = (100, 70, 8) now (2)reverse--反转数组 @array2 = reverse(@array); @array2 = reverse sort (@array); (3)chop--数组去尾 chop的意义是去掉STDIN(键盘)输入字符串时最后一个字符--换行符。而如果它作用到数组上,则将数组中每一个元素都做如此处理。 @list = ("rabbit", "12345","quartz"); chop (@list); # @list = ("rabbi", "1234","quart") now (4)join/split--连接/拆分 join的第一个参数是连接所用的中间字符,其余则为待连接的字符数组。 $string = join(" ", "this", "is","a", "string"); # 结果为"this is a string" @list = ("words","and"); $string = join("::", @list, "colons"); #结果为"words::and::colons" @array = split(/::/,$string); # @array = ("words","and", "colons") now
前一页 [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版权所有,未经授权禁止转载、摘编、复制或建立镜像.如有违反,追究法律责任