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

[经验分享] Perl脚本学习笔记(四)

[复制链接]
YunVN网友  发表于 2018-9-1 10:08:14 |阅读模式
  29.    一旦我们将模块载入,无论是否引入特定的函数,我们均可以使用全名进行引用。
  如:
  use File:Basename qw/ /; #没有引入函数
  my $dirname = File::Basename::dirname $name; #使用模块中的dirname
  30.    散列:
  %表示进行散列,
  引用《Perl语言编程_3rd》(Larry Wall等人合著)的话:
  “散列是一组无序标量,可以通过和每个标量关联的字符串进行访问.因为这个原因,散列经常被称为关联数组.但是这个名字太长了,因为会经常提到它,我们决定给它起一个简短的名字.我们称之为散列的另外一个原因是为了强调它们是无序的.(在 Perl 的内部实现中,散列的操作是通过对一个散列表查找完成的,这就是散列为什么这么快的原因,而且无论你在散列中存储多少数据,它总是很快).然而你不能 push 或 pop 一个散列,因为这样做没有意义.一个散列没有开始也没有结束.不管怎么样,散列的确非常有用而且强大.如果你不能理解散列的概念,那你还不能算真正的了解 Perl.
  ......
  因为散列是一种特殊的数组,你可以通过 {} 来获取单个的散列元素.比如,如果你想找出与关键字 Wed 对应的值,你应该使用 $longday{"Wed"}.
  ......
  注意这个例子:
  $wife{"Jacob"} = ["Leah", "Rachel", "Bilhah", "Zilpah"];
  $wife{"Jacob"}[0] = "Leah";
  $wife{"Jacob"}[1] = "Rachel";
  $wife{"Jacob"}[2] = "Bilhah";
  $wife{"Jacob"}[3] = "Zilpah";
  $kids_of_wife{"Jacob"} = {
  "Leah"   => ["Reuben", "Simeon", "Levi", "Judah", "Issachar", "Zebulun"],
  "Rachel" => ["Joseph", "Benjamin"],
  "Bilhah" => ["Dan", "Naphtali"],
  "Zilpah" => ["Gad", "Asher"],};
  $kids_of_wife{"Jacob"}{"Leah"}[0]   = "Reuben";
  $kids_of_wife{"Jacob"}{"Leah"}[1]   = "Simeon";
  $kids_of_wife{"Jacob"}{"Leah"}[2]   = "Levi";
  $kids_of_wife{"Jacob"}{"Leah"}[3]   = "Judah";
  $kids_of_wife{"Jacob"}{"Leah"}[4]   = "Issachar";
  $kids_of_wife{"Jacob"}{"Leah"}[5]   = "Zebulun";
  $kids_of_wife{"Jacob"}{"Rachel"}[0] = "Joseph";
  $kids_of_wife{"Jacob"}{"Rachel"}[1] = "Benjamin";
  $kids_of_wife{"Jacob"}{"Bilhah"}[0] = "Dan";
  $kids_of_wife{"Jacob"}{"Bilhah"}[1] = "Naphtali";
  $kids_of_wife{"Jacob"}{"Zilpah"}[0] = "Gad";
  $kids_of_wife{"Jacob"}{"Zilpah"}[1] = "Asher";”
  31.    每个嵌套的 my 会生成一个新变量,每个嵌套的 local 也生成一个新变量。但是每次你使用 our 的时候,你实际上是说同一个变量,不管你有没有嵌套。


运维网声明 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-561012-1-1.html 上篇帖子: Perl脚本学习笔记(三) 下篇帖子: Perl Net::Telnet3.03
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

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

扫描微信二维码查看详情

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


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


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


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



合作伙伴: 青云cloud

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