有关块中的作用域问题

jayeley

#!usr/local/bin/perl

use strict;
use warnings;

{$a = 'test';}

print $a;


上面这段代码没有错误，没有警告。
那位帮忙解释下为什么警告都没有。


请看7楼的帖子，谢谢！

[ 本帖最后由 jayeley 于 2008-11-21 14:22 编辑 ]

DQP

和作用作用域没关系 :p
$a $b 比较特殊
换成其他名字就报错了

ynchnluiti

PERLDOC_PAGER='more +/sort' perldoc perlvar
PERLDOC_PAGER='less -iRs +/sort' perldoc perlvar

(谁知道怎么直接搜$a )

flw

原帖由 ynchnluiti 于 2008-11-20 18:19 发表
PERLDOC_PAGER='more +/sort' perldoc perlvar
PERLDOC_PAGER='less -iRs +/sort' perldoc perlvar

(谁知道怎么直接搜$a )

perldoc perlvar | less -p '\$a'
我是受你的启发举一反三得到的。

ynchnluiti

原帖由 flw 于 2008-11-20 18:26 发表

perldoc perlvar | less -p '\$a'
我是受你的启发举一反三得到的。

我没举出来这种方法。

又试了试，找出方法了。
more (没选中效果)
PERLDOC_PAGER='more +/\$a' perldoc perlvar

less
PERLDOC_PAGER='less -Rs -p [\$]a' perldoc perlvar

ynchnluiti

原帖由 ynchnluiti 于 2008-11-20 19:02 发表

我没举出来这种方法。

又试了试，找出方法了。
more (没选中效果)
PERLDOC_PAGER='more +/\$a' perldoc perlvar

less
PERLDOC_PAGER='less -Rs -p [\$]a' perldoc perlvar

不过这个写起来没你那个方便啊。

jayeley

#!usr/local/bin/perl

use strict;
use warnings;

test('', 'test1');
test('', 'test2');


sub test{
    my ($p1, $p2) = @_;

    my $address_txt = "p1\n" if($p1);
      $address_txt .= "$p2\n" if($p2);

    print "$address_txt\n";
}

上面的运行结果大家猜猜是什么？为什么？

tmp

额, 日, 为什么?

MMMIX

原帖由 ynchnluiti 于 2008-11-20 18:19 发表
PERLDOC_PAGER='more +/sort' perldoc perlvar
PERLDOC_PAGER='less -iRs +/sort' perldoc perlvar

(谁知道怎么直接搜$a )

perldoc 会直接调用你设置的 pager，一般为 more，可通过环境变量 PAGER 设置。你在你所使用的 pager 里面怎么搜索，在 perldoc 里面就可以怎么搜索。

详见 perldoc perldoc

[ 本帖最后由 MMMIX 于 2008-11-21 09:58 编辑 ]

MMMIX

原帖由 jayeley 于 2008-11-20 19:56 发表
    my $address_txt = "p1\n" if($p1);
      

这个语句的行为是未定义的，详见 perlsyn 中的 Statement Modifiers