Perl 中的全局变量、子程序变量问题

Question

如何将子程序变量值转移到另一个子程序变量中，我可以使用全局变量吗？

sub foo(){

my $myvar = "Hello";
} 

sub foo1(){
my $myvar1 = $myvar;   # how can I get the "Hello" from $myvar.
}

我尝试使用包和全局变量，但失败了。

Package Bar;
our $bar;

谢谢。

Answer 1

您可以在包含 2 个函数的作用域中声明变量：

{ my $myvar

  sub foo{
    $myvar = "Hello";
  } 

  sub foo1{
    my $myvar1 = $myvar;   
  }
}

但这并不是很优雅，并且可能很难维护，因为在 foo1 中不清楚 $ 的值在哪里myvar 已设置。将变量作为参数传递可能更好。

sub foo {
    my $myvar = "Hello";
    return $myvar;
}

sub foo1 {
  my( $myvar)= @_;
  my $myvar1 = $myvar;
}

# calling code
my $myvar= foo();
foo1( $myvar);

请注意，所有 3 个 $myvar 都是不同范围内的不同变量。

附带说明一下，使用原型 (sub foo()) 可能不是一个好主意，除非您真的知道它们在做什么，但情况可能并非如此（请参阅 原型的问题用于原型的讨论）

Answer 2

如何将子程序变量值转移到另一个子程序变量中，我可以使用全局变量吗？

是的，您可以：

my $myvar;
sub foo(){
    $myvar = "Hello";
} 

sub foo1(){
    my $myvar1 = $myvar;   # how can I get the "Hello" from $myvar.
}

即使使用“use strict;”，这也有效。和“使用警告；”。

我尝试使用包和全局变量，但失败了。

包变量适用于您想要导出到包外部的变量，而不是您想要在同一包中的两个子例程之间共享的变量。

Answer 3

只是不要使用my：

#!/usr/bin/perl

sub foo() {
  $myvar = "Hello\n";
}

sub foo1() {
  $myvar1 = $myvar;
    print $myvar1;
}

print "here we go!\n";
foo();
foo1();

但是，我不推荐这种编程方式。

Answer 4

你有几种方法。

最简单的就是不使用 my 声明变量。但这要求您避免use strict;，因此不建议这样做。

您可以在脚本顶部的函数外部声明变量。然后这个变量将可用于下面的所有函数。这是 scope 的结果：在一组大括号之外声明的变量是通常可在任何后续花括号内使用。

您可以使用 use vars qw/$myvar/; 编译指示来声明变量。这本质上使您的变量在以下代码中可用。

Answer 5

以下代码可以演示您所描述的解决方案：

#!/usr/bin/perl
use strict;
my $var = "hello";
sub foo {
    local *var;
    print "$var world\n";
    $var = "hi";
}

sub bar {
    local *var;
    print "$var world\n";
    $var = "hey";
}

foo();
bar();
print "$var world\n";

结果应该是：

hello world
hi world
hey world