如何范围变量保留所有子程序

Question

我想创建一个模块，它是这样

package MyModule; 

use strict; 
use Exporter; 
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 

$VERSION = 1.00; 
@ISA = qw(Exporter); 
@EXPORT = qw(func1); 

sub func1 {  
    my x = shift;  
    print x;  
    func2();  
} 

sub func2 {  
    print x;  
} 

和Perl脚本，我打电话模块的FUNC1和传递变量x。如何让这个变量对这两个子程序可见或者说出该模块内的所有功能。 请帮忙。

Answer 1

中声明的文件的范围$x最大的词法范围，因此该变量对于其余代码将可见（除非您使用my在一些内部范围中重新声明它）。

Answer 2

让$x词法到 包 文件，而不是一个单一的子程序：

package MyModule; 

use strict; 
use Exporter; 
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 

$VERSION = 1.00; 
@ISA = qw(Exporter); 
@EXPORT = qw(func1); 

my $x; 

sub func1 { 

    $x = shift; 
    print $x; 

    func2(); 
} 

sub func2 { 

    print $x; 
} 

---

但是这个例子并没有真正意义。一个更明智的例子是，以限定的词汇文件句柄，所述包装内的多个子程序打印到：

my $x; 

# subroutines definition 

文件具有：使用my或our

package PoorManLogger; 

my $fileHandle; 

sub initialize { open $fileHandle, '<', +shift } 

sub alert { print $fileHandle 'ALERT: ', @_, "\n"; } 

sub debug { print $fileHandle 'DEBUG: ', @_, "\n"; } 

sub close { close $fileHandle; } # Though this isn't technically needed. 

1; 

Answer 3

看到 our

（评论我的建议是正确的，我的建议是不是）

Answer 4

一个OO的主要好处是封装：

#!/usr/bin/perl 

package MyModule; 

use strict; use warnings; 

sub new { 
    my $class = shift; 
    bless { x => shift } => $class; 
} 

sub x { 
    my $self = shift; 
    $self->{x} = shift if @_; 
    return $self->{x}; 
} 

sub func2 { 
    my $self = shift; 
    print $self->x, "\n"; 
} 

package main; 

use strict; use warnings; 

my $m = MyModule->new(5); 

$m->func2; 

$m->x(7); 

$m->func2;