如何在Perl的上部作用域中本地化变量？

在Perl中，要在上部作用域中本地化变量，可以使用our关键字。our关键字用于声明全局变量，允许在当前作用域中访问该变量。这样，您可以在子程序或其他作用域中修改全局变量的值，而不会影响到其他作用域中的变量。

以下是一个示例：

#!/usr/bin/perl
use strict;
use warnings;

our $global_var = "I am a global variable.";

sub change_global_var {
    our $global_var = "I have been changed.";
}

print "Before changing: $global_var\n";
change_global_var();
print "After changing: $global_var\n";

在这个示例中，我们使用our关键字声明了一个全局变量$global_var。然后，我们创建了一个名为change_global_var的子程序，用于修改全局变量的值。在主程序中，我们打印了在调用change_global_var之前和之后全局变量的值，以展示变量值已被更改。

这个示例演示了如何在Perl中在上部作用域中本地化变量。请注意，这个示例仅适用于Perl 5。在Perl 6中，变量声明和作用域处理方式有所不同。