设为首页 收藏本站
查看: 575|回复: 0

[经验分享] perl手册学习摘要(2)

[复制链接]

尚未签到

发表于 2017-5-18 08:12:38 | 显示全部楼层 |阅读模式
  列表是包含在括号里的一序列的值,可以为任何数值,也可为空
  列表存贮于数组变量中,与简单变量不同,数组变量以字符"@"打头,如:
    @array = (1, 2, 3);
  注:
 (1)数组变量创建时初始值为空列表:()。
 (2)因为PERL用@和$来区分数组变量和简单变量,所以同一个名字可以同时用于数组变量和简单变量
  如果给超出数组大小的元素赋值,则数组自动增长,原来没有的元素值为NULL
  数组间拷贝
    @result = @original;
  .用数组给列表赋值
 @list2 = (1, @list1, 5);
  数组对简单变量的赋值
  (1) @array = (5, 7, 11);
    ($var1, $var2) = @array; # $var1 = 5, $var2 = 7, 11被忽略
    (2) @array = (5, 7);
    ($var1, $var2, $var3) = @array; # $var1 = 5, $var2 = 7, $var3 ="" (null)

  .从标准输入(STDIN)给变量赋值
    $var = <STDIN>;
    @array = <STDIN>; # ^D为结束输入的符号

  字符串中的方括号和变量替换
    "$var[0]" 为数组@var的第一个元素。
    "$var\[0]" 将字符"["转义,等价于"$var". "[0]",$var被变量替换,[0]保持不变。
    "${var}[0]" 亦等价于"$var" ."[0]"。
    "$\{var}"则取消了大括号的变量替换功能,包含文字:${var}.

  列表范围:
    (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!

  数组的输出:
(1) @array = (1, 2, 3);
    print (@array, "\n");
  结果为:
    123
(2) @array = (1, 2, 3);
    print ("@array\n");
  结果为:
    1 2 3
  列表/数组的长度
  当数组变量出现在预期简单变量出现的地方,则PERL解释器取其长度。
    @array = (1, 2, 3);
    $scalar = @array; # $scalar = 3,即@array的长度
    ($scalar) = @array; # $scalar = 1,即@array第一个元素的值

  子数组
  sort--按字符顺序排序
reverse--反转数组
chop--数组去尾
join/split--连接/拆分

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-378576-1-1.html 上篇帖子: Apache2.2.16 Perl Configuration CGI 下篇帖子: Perl使用Access数据库
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表