Wie kann ich ein Perl-Skript erhalten, um Variablen in einem anderen Perl-Skript zu sehen?

Question

Ich habe ein Perl-Skript, das sehr groß wird, also möchte ich es in mehrere Skripte aufteilen. Ich möchte nämlich einige große Hash-Deklarationen herausnehmen und sie in eine andere Datei einfügen. Wie bekomme ich das ursprüngliche Skript, um die Variablen zu sehen und zu verwenden, die jetzt im anderen Skript deklariert werden?

Das treibt mich verrückt, weil ich nicht Perl in eine Zeit lang und für das Leben von mir herausfinden kann dies nicht aus

Answer 1

Verwenden Sie ein Modul:

package Literature; 

our %Sidekick = (
    Batman => "Robin", 
    Bert => "Ernie", 
    Don => "Sancho", 
); 

1; 

Zum Beispiel:

#! /usr/bin/perl 

use Literature; 

foreach my $name (keys %Literature::Sidekick) { 
    print "$name => $Literature::Sidekick{$name}\n"; 
} 

Ausgang:

$ ./prog 
Bert => Ernie 
Batman => Robin 
Don => Sancho 

Answer 2

Sie verwenden modules verwendet haben. Oder modulinos.

Machen Sie es zu einem Modul, das (optional!) Einige Variablen oder Funktionen exportiert. Sehen Sie nach, wie Sie das Modul Exporter verwenden.

Answer 3

Als Ergänzung zu den anderen Vorschlägen "ein Modul verwenden", wenn Sie planen, Wenn Sie das Modul häufig wiederverwenden, sollten Sie es entweder in Ihre Site-Bibliothek (normalerweise unter) installieren 210.

Wenn nicht (vielleicht hat es außerhalb des Skripts beschränkt Wiederverwertbarkeit), können Sie es in das Verzeichnis mit Ihrem Skript halten und es wie so importieren:

use lib './lib'; # where ./lib is replaced with wherever the module actually is. 
use MyModule; 

Answer 4

noch einen anderen Vorschlag, ein Modul zu verwenden.

Module sind nicht schwer zu schreiben oder zu verwenden. Sie scheinen nur hart zu sein, bis Sie einen schreiben. Nach dem ersten Mal wird es einfach sein. Viele, viele gute Dinge kommen von der Verwendung von Modulen - Kapselung, einfache Prüfung und einfache Wiederverwendung von Code, um nur einige zu nennen.

Siehe my answer to a similar question für ein Beispielmodul mit exportierten Funktionen.

Auch some very smart people in der Perl-Community wie Module so viel, dass they advocate writing apps as modules - they call them modulinos. Die Technik funktioniert gut.

Also, abschließend, versuchen, ein Modul schreiben heute!