Jak używać stałych z modułu Perla?

Question

Jeśli zdefiniuję stałą w module Perla, w jaki sposób mogę użyć tej stałej w moim głównym programie? (Lub jak mogę wywołać tę stałą w programie głównym?)

Answer 1

Stałe można eksportować tak jak inne symbole paczek. Przy użyciu standardowego modułu Exporter można wyeksportować stałych z pakietu tak:

package Foo; 
use strict; 
use warnings; 

use base 'Exporter'; 

use constant CONST => 42; 

our @EXPORT_OK = ('CONST'); 

1; 

Następnie w skrypcie klienckim (lub innego modułu)

use Foo 'CONST'; 
print CONST; 

można użyć %EXPORT_TAGS hash (patrz Dokumentacja eksportera), aby zdefiniować grupy stałych, które można wyeksportować za pomocą pojedynczego argumentu importu.

Aktualizacja: Oto przykład użycia funkcji %EXPORT_TAGS, jeśli masz wiele stałych.

use constant LARRY => 42; 
use constant CURLY => 43; 
use constant MOE => 44; 

our @EXPORT_OK = ('LARRY', 'CURLY', 'MOE'); 
our %EXPORT_TAGS = (stooges => [ 'LARRY', 'CURLY', 'MOE' ]); 

Wtedy można powiedzieć

use Foo ':stooges'; 
print "$_\n" for LARRY, CURLY, MOE; 

Answer 2

Stałe są tylko kanapki z pustym prototyp, więc mogą być eksportowane jak każdy inny sub.

# file Foo.pm 
package Foo; 
use constant BAR => 123; 
use Exporter qw(import); 
our @EXPORT_OK = qw(BAR); 


# file main.pl: 
use Foo qw(BAR); 
print BAR; 

Answer 3

Aby rozwinąć na wcześniejszych odpowiedzi, ponieważ stałe są naprawdę tylko kanapki, można również nazywają je wprost:

use Foo; 
print Foo::BAR; 

Answer 4

Można rozważyć użycie Readonly zamiast stała.

Answer 5

package Foo; 
use Readonly; 
Readonly my $C1 => 'const1'; 
Readonly our $C2 => 'const2'; 
sub get_c1 { return $C1 } 
1; 

perl -MFoo -e 'print "$_\n" for Foo->get_c1, $Foo::C2' 

Answer 6

Aby dodać do sztuczek, ponieważ stała jest tylko podprogram można nawet nazwać jako metoda klasy.

package Foo; 
use constant PI => 3.14; 

print Foo->PI; 

Jeśli masz dużo stałych, to jest to dobry sposób na od czasu do czasu, bez konieczności eksportowania wszystkich. Jednak w przeciwieństwie do Foo::PI lub eksportu PI, Perl nie skompiluje się Foo->PI, więc poniesiesz koszt wywołania metody (co prawdopodobnie nie ma znaczenia).