忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
1234下一页
最近访问板块 发新帖
查看: 21967 | 回复: 39

perl中our的用法 [复制链接]

论坛徽章:
0
发表于 2005-06-05 19:01 |显示全部楼层
今天心血来潮看了一下ActivePerl下的Exporter.pm下的代码,发现里面有:
require 5.006;

# Be lean.
#use strict;
#no strict 'refs';

our $Debug = 0;
our $ExportLevel = 0;
our $Verbose ||= 0;
our $VERSION = '5.58';
our (%Cache);
我不知道这个our是什么意思,请知道的来指点迷津
还有就是那个require 5.006,这个有什么说法吗?
谢谢.
大灰狼 该用户已被删除
发表于 2005-06-05 19:14 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 19:37 |显示全部楼层

perl中our的用法

require 5.006
当版本号小于 5.006 的时候,会返回失败,从而导致模块加载失败。
所以它的作用就是保证模块调用环境的 Perl 版本。

our 和 my 一样,都是对变量的声明,
不过 our 声明的是包全局变量,
而 my 声明的是词法变量。

不过,经过 our 声明的变量,它会变得像一个词法变量一样,
其实这也是 our 存在的目的:用来欺骗 strict pragma,使 strict 以为它是一个词法变量,其实却不是。

有一个简单的办法可以理解 our:
1,你就把 our 声明的变量和 my 声明的当成一样。
2,记住 our 和 my 的区别:our 声明的是一个包全局变量,因此在符号表中存储(可以通过全限定在任何地方访问),而 my 声明的是一个真正的词法变量,只能在闭合块中访问。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 19:45 |显示全部楼层

perl中our的用法

my 和 our 的区别:
  1. D:\MoChou>cat ttt.pl
  2. use strict;

  3. my $var;
  4. $var = 1;
  5. {
  6.     my $var;
  7.     $var = 2;
  8.     print $var, "\n";
  9. }
  10. print $var, "\n";

  11. D:\MoChou>ttt
  12. 2
  13. 1

  14. D:\MoChou>
复制代码
  1. D:\MoChou>cat ttt.pl
  2. use strict;

  3. our $var;
  4. $var = 1;
  5. {
  6.     our $var;
  7.     $var = 2;
  8.     print $var, "\n";
  9. }
  10. print $var, "\n";

  11. D:\MoChou>ttt
  12. 2
  13. 2

  14. D:\MoChou>
复制代码

[ 本帖最后由 flw 于 2006-6-17 11:39 编辑 ]

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 19:46 |显示全部楼层

perl中our的用法

很显然,两处 my 声明的虽然是同一个名字“$var”,但是他们是两个变量。
而 our 却是同一个变量。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 19:50 |显示全部楼层

perl中our的用法

再举一个例子,更加明显:
  1. D:\MoChou>cat ttt.pl
  2. use strict;

  3. {
  4.     my $var;
  5.     $var = 2;
  6.     print $var, "\n";
  7. }

  8. if ( defined $main::var ){
  9.     print '$main::var defined! value = ', "$main::var.\n";
  10. }
  11. else{
  12.     print '$main::var not defined!', "\n";
  13. }

  14. D:\MoChou>ttt
  15. 2
  16. $main::var not defined!

  17. D:\MoChou>
复制代码
  1. D:\MoChou>cat ttt.pl
  2. use strict;

  3. {
  4.     our $var;
  5.     $var = 2;
  6.     print $var, "\n";
  7. }

  8. if ( defined $main::var ){
  9.     print '$main::var defined! value = ', "$main::var.\n";
  10. }
  11. else{
  12.     print '$main::var not defined!', "\n";
  13. }

  14. D:\MoChou>ttt
  15. 2
  16. $main::var defined! value = 2.

  17. D:\MoChou>
复制代码

[ 本帖最后由 flw 于 2006-6-17 11:39 编辑 ]

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 20:00 |显示全部楼层

perl中our的用法

其实,our 的出现有它的历史,
Perl 和别的语言不同,可以随便声明变量,
在 Perl 4 那个时代,根本就不需要 my 什么的,
随便写个名字,就是变量了。
在 Perl 5 中仍然如此,除非你用 my 明确声明为词法变量,否则所有的变量都是(包)全局变量,而且可以不声明直接使用。
但是,这样有个坏处,那就是万一不小心写错名字了,或者解符号引用的时候,字符串运算错了,都会造成很多麻烦(因为按照 Perl 5 语法,这些都是正确的,其结果就是产生一个新的变量,很显然,这不是你想要的目的。)

所以,为了解决这些问题,在 Perl 5 中就引入了 strict 和 warnings 两个 pragma,它们的作用,就是限制变量不声明直接使用,
经过 strict 和 warnings 限制后,所有没有声明的直接使用的变量都会报错。但是 my 声明的变量又是局部变量,local 又不能创造变量,
所以,我们就没法使用全局变量了(注1),
因此就又引入了 our,our 的作用就是声明一个全局变量,但是让 strict 和 warnings 以为它是词法变量,因此 our 声明的变量也是词法作用域的。但是实际上它是全局变量。

注1:
如果不使用 our,我们有两种办法可以创建全局变量:
1,用 no strict "vars" 临时关掉 strict pragma,声明完了再用 use strict "vars" 打开。
2,用变量的全限定名称,如 $main::var 或者 $foo::bar 这样子。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2005-06-05 20:01 |显示全部楼层

perl中our的用法

声明:
以上提到的“全局变量”这个字眼都表示“包全局变量”。

论坛徽章:
0
发表于 2005-06-05 21:22 |显示全部楼层

perl中our的用法

小弟看完后,收获颇多,谢谢各位.

论坛徽章:
0
发表于 2005-06-06 14:01 |显示全部楼层

perl中our的用法

我原来以为在一个package里面定义了一个our变量,然后在一个pl里面use的话就能用pm里面那些our变量了,原来our只是相当于一个没在{}里面的my,这样理解对吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP