it-swarm.dev

Perl中我和本地有什么区别?

我看到他们在这个脚本中使用它们我试图调试,文献还不清楚。有人可以为我揭开这个神秘面纱吗?

59
Brian G

动态范围。这是一个很好的概念。很多人不使用它,也不了解它。

基本上认为my是将变量创建并锚定到{},A.K.A的一个块。范围。

my $foo if (true); # $foo lives and dies within the if statement.

所以my变量就是你习惯的变量。而对于动态范围,$ var可以在任何地方声明并在任何地方使用。因此,使用local,您基本上会暂停使用该全局变量,并使用“本地值”来处理它。所以local为临时变量创建一个临时范围。

$var = 4;
print $var, "\n";
&hello;
print $var, "\n";

# subroutines
sub hello {
     local $var = 10;
     print $var, "\n";
     &gogo; # calling subroutine gogo
     print $var, "\n";
}
sub gogo {
     $var ++;
}

这应该打印:

4
10
11
4
35
J.J.

简短的回答是my在词法范围内将变量标记为私有,而local在动态范围内将变量标记为私有。

理解my更容易,因为它通常意义上创建了一个局部变量。创建了一个新变量,它只能在封闭的词块中访问,该词块通常用花括号标记。大括号规则有一些例外,例如:

foreach my $x (@foo) { print "$x\n"; }

但那只是Perl做你的意思。通常你有这样的事情:

sub Foo {
   my $x = shift;

   print "$x\n";
}

在这种情况下,$x对子例程是私有的,其范围由大括号括起来。需要注意的是,与local的对比是my变量的范围是根据代码在文件中编写时定义的。这是一个编译时的现象。

要理解local,您需要根据程序运行时的调用堆栈进行思考。当变量是local时,它将从local语句对堆栈下面的所有内容执行的位置重新定义,直到您将堆栈返回给包含local的块的调用者。

这可能会让人感到困惑,因此请考虑以下示例。

sub foo { print "$x\n"; }
sub bar { local $x; $x = 2; foo(); }

$x = 1;
foo(); # prints '1'
bar(); # prints '2' because $x was localed in bar
foo(); # prints '1' again because local from foo is no longer in effect

当第一次调用foo时,它会看到$x的全局值,即1.当调用bar并运行local $x时,会重新定义堆栈上的全局$x。现在,当从foo调用bar时,它会为$x看到新值2。到目前为止还不是很特别,因为没有调用local就会发生同样的事情。神奇的是,当bar返回时,我们退出local $x创建的动态范围,之前的全局$x返回范围。因此,对于foo的最终调用,$x为1。

您几乎总是希望使用my,因为它为您提供了您正在寻找的局部变量。一旦进入一个蓝色的月亮,local非常方便做酷事。

52
Jeremy Bourque

引自 学习Perl

但是当地人的名字不好,或者至少是误导性地命名。我们的朋友Chip Salzenberg说,如果他有机会回到1986年的时间机器并给Larry一条建议,他会告诉Larry用“save”这个名字给当地人打电话。[14]那是因为local实际上会将给定的全局变量的值保存起来,因此稍后会自动恢复到全局变量。 (这是正确的:这些所谓的“本地”变量实际上是全局变量!)这个保存和恢复机制与我们已经在foreach循环的控制变量和@_中已经看过两次相同。子程序参数数组。

因此,local保存全局变量的当前值,然后将其设置为某种形式的空值。您经常会看到它用于Slurp整个文件,而不是仅引出一行:

my $file_content;
{
    local $/;
    open IN, "foo.txt";
    $file_content = <IN>;
} 

调用local $/将输入记录分隔符(Perl停止读取“行”的值)设置为空值,从而导致太空船操作员读取整个文件,因此它永远不会到达输入记录分隔符。

18
Drew Stephens

我无法相信没有人与Mark Jason Dominus关于此事的详尽论述有关:

16
Aristotle Pagaltzis

http://perldoc.Perl.org/perlsub.html#Private-Variables-via-my()

与本地运算符创建的动态变量不同,使用my声明的词法变量完全隐藏在外部世界中,包括任何被调用的子例程。如果它是从自身或其他地方调用的相同子例程,则这是真的 - 每个调用都有自己的副本。

http://perldoc.Perl.org/perlsub.html#Temporary-Values-via-local()

本地修改其列出的变量为封闭块的“本地”,eval或do FILE - 以及从该块中调用的任何子例程。本地只是为全局(意味着包)变量提供临时值。它不会创建局部变量。这称为动态范围。词法范围是用我的完成的,它更像是C的自动声明。

我不认为这根本不清楚,除了说“封闭块的本地”之外,它意味着当块退出时原始值被恢复。

9
Steve Jessop

谷歌真的适合你这个: http://www.perlmonks.org/?node_id=94007

从链接:

快速摘要:'my'创建一个新变量,'local'暂时修改变量的值。

即'本地'暂时改变变量的值,但只有在范围内它存在于。

一般使用我的,它更快,并没有做任何奇怪的事情。

7
dlamblin

来自man perlsub

与本地运算符创建的动态变量不同,用my声明的词法变量完全隐藏在外部世界中,包括任何被调用的子程序。

因此,过度简化,my使您的变量仅在声明的位置可见。 local也使它在调用堆栈中可见。您通常希望使用my而不是local

6
catfood

你的困惑是可以理解的。词汇范围界定相当容易理解,但动态范围界定是一个不寻常的概念。由于历史原因,名称mylocal有些不准确(或至少不直观)会使情况变得更糟。

my声明一个词法变量 - 从声明点到封闭块(或文件)结尾可见的变量。它完全独立于程序其余部分中具有相同名称的任何其他变量。它是私人的。

另一方面,local声明临时更改全局变量的值。更改在封闭范围的末尾结束,但变量 - 全局 - 在程序中的任何位置都可见。

根据经验,使用my声明自己的变量,使用local来控制对Perl内置变量的更改的影响。

有关更全面的描述,请参阅Mark Jason Dominus的文章 应对范围界定

4
Michael Carman

从Perl只有动态范围的时代开始,local是一种较老的本地化方法。词法范围对于程序员来说更自然,在许多情况下更安全。我的变量属于声明它们的范围(块,包或文件)。

实际上,局部变量实际上属于全局命名空间。如果你用local引用变量$ x,你实际上是指$ main :: x,它是一个全局变量。与其名称所暗示的相反,所有本地操作都是将一个新值推送到$ main :: x的值堆栈上,直到该块结束,此时旧值将被恢复。这本身就是一个有用的功能,但是出于一系列原因而不是一个很好的方法来获取局部变量(想想当你有线程时会发生什么!并且想一想当你调用一个真正想要使用全局的例程时会发生什么你已经本地化!)。然而,在Perl 5之前的旧时代,这是让变量看起来像局部变量的唯一方法。我们仍然坚持使用它。

3
skiphoppy

查看以下代码及其输出以了解其中的差异。

our $name = "Abhishek";

sub sub1
{
    print "\nName = $name\n";
    local $name = "Abhijeet";

    &sub2;
    &sub3;
}

sub sub2
{
    print "\nName = $name\n";
}

sub sub3
{
    my $name = "Abhinav";
    print "\nName = $name\n";
}


&sub1;

输出是:

Name = Abhishek

Name = Abhijeet

Name = Abhinav
2
Abhishek Kulkarni

“my”变量仅在当前代码块中可见。 “局部”变量在以前可见的地方也是可见的。例如,如果你说“我的$ x;”并调用一个子函数,它无法看到变量$ x。但如果你说“本地$ /;” (要使记录分隔符的值无效),然后更改从您调用的任何函数中读取文件的方式。

在实践中,你几乎总是想要“我的”,而不是“本地”。

2
andy
&s;

sub s()
{
    local $s="5";
    &b;
    print $s;
}

sub b()
{
    $s++;
}

上面的脚本打印6。

但是如果我们将本地更改为我将打印5。

这是不同的。简单。

0
Saravanarajan

我认为记住它的最简单方法就是这样。我创建了一个新变量。 LOCAL临时更改现有变量的值。

0
Hawk

dinomite使用local重新定义记录分隔符的例子是我在很多Perl编程中遇到过的唯一一次。我住在一个利基Perl环境[安全编程],但它确实是我经验中很少使用的范围。

0
phreakre