如何将子程序变量值转移到另一个子程序变量中，我可以使用全局变量吗？
sub foo(){
my $myvar = "Hello";
}
sub foo1(){
my $myvar1 = $myvar; # how can I get the "Hello" from $myvar.
}
我尝试使用包和全局变量，但失败了。
Package Bar;
our $bar;
谢谢。
【问题讨论】：
package 而不是Package。就像现在一样，perl 将其视为Bar->Package();（调用包Bar 的方法Package）
标签： perl global-variables subroutine
您可以在包含 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()) 可能不是一个好主意，除非您真的知道他们在做什么，但情况可能并非如此（有关原型的讨论，请参阅 The problem with prototypes）
【讨论】：
如何将子程序变量值转移到另一个子程序变量中，可以使用全局变量吗？
是的，您可以：
my $myvar;
sub foo(){
$myvar = "Hello";
}
sub foo1(){
my $myvar1 = $myvar; # how can I get the "Hello" from $myvar.
}
这甚至适用于“use strict;”和“使用警告；”。
我尝试使用包和全局变量，但失败了。
包变量用于您要在包外导出的变量，而不是您希望在同一包中的两个子例程之间共享的变量。
【讨论】：
只是不要使用my：
#!/usr/bin/perl
sub foo() {
$myvar = "Hello\n";
}
sub foo1() {
$myvar1 = $myvar;
print $myvar1;
}
print "here we go!\n";
foo();
foo1();
但是，我不推荐这种编程方式。
【讨论】：
你有几种方法。
最简单的就是不要用my声明变量。但这需要您避免使用use strict;，因此不推荐使用。
您可以在脚本顶部的函数外部声明变量。然后，该变量将可用于下面的所有函数。这是scope 的结果：在一组花括号外声明的变量通常在任何后续花括号内都可用。
您可以使用use vars qw/$myvar/; pragma 声明您的变量。这本质上使您的变量在以下代码中可用。
【讨论】：
以下代码可能演示了您所描述的解决方案：
#!/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
【讨论】：