Wie funktioniert die Perl 'verwenden' - syntax arbeiten?

Beispielcode:

m1.pm

my $a;
my $b;
sub init {
    $a = shift;
    $b = shift;
}

sub printab {
    print "a = -$a-\n";
    print "b = -$b-\n";
}

1;

m2.pm

my $a;
my $b;
sub init {
    $a = shift;
    $b = shift;
}

1;

test.pl

use strict;
use warnings;

use m1;
use m2;

init('hello', 'world');
printab();

Run:

$ perl test.pl
a = --
b = --
$

Was passiert, ist, dass die init('hello', 'world') Anruf zugeordnet ist m2.pm und initialisiert die Variablen ($a und $b) gibt.

Diese Art von Sinn macht, aber was ich nicht verstehe ist, warum diese Werte nicht verfügbar sind, in test.pl.

  • Ist es etwas grundlegend falsch, dass ich versuche, hier zu tun? Was ist der richtige Weg, um zwei Module mit gleichen namens Subroutinen und Variablen?

  • Wie genau funktioniert ein Perl - use Arbeit? Es würde helfen, wenn jemand könnte es dagegen mit C #include Richtlinie.

  • Warum brauche ich das, bitte siehe diese SO-thread.
  • Ist das dein vollständiger code? Sie haben, um Ihre Module zu definieren, die eine import routine oder Erben von Exporter. Wenn nicht, sind Sie nicht exportieren, werden die Unterprogramme in test.pl
  • ja, das ist alles.
  • Ok, siehe meine Antwort, warum es nicht funktioniert.
  • Da m1 und m2 sagen, Sie sind die ihrigen, und dass andere Bereiche sollten Ihre Handschuhe aus von Ihnen.
InformationsquelleAutor Lazer | 2010-11-10
  1. 8

    Zuerst Lesen perldoc perlmod.

    Sie nicht deklarieren einen namespace in entweder-Modul, so ist alles in der main namespace. Erklären package m1; im m1.pm und package m2; im m2.pm.

    Zumindest, sollten Sie implementieren eine import - Methode (oder die Erben eines Exporter bietet), so dass Programme, die Module verwenden, können entscheiden, was Sie importieren, von wo.

    Es scheint mir auch, dass Sie erkunden, um die Kanten von OO.

    Weiter:

    • Vermeiden Sie die Verwendung $a und $b als Variablennamen, da es leicht zu verwechseln mit dem Paket-Variablen $a und $b verwendet sort.

    • Nicht verwenden Kleinbuchstaben Modul Namen: Sie sind reserviert für pragmata.

    Einer minimalen Implementierung (alles in einer Datei zum testen Bequemlichkeit) sieht wie folgt aus:

    package My::M1;

use strict; use warnings;

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

sub a {
    my $self = shift;
    my ($v) = @_;
    $self->{a} = $v if @_;
    return $self->{a};
}

sub b {
    my $self = shift;
    my ($v) = @_;
    $self->{b} = $v if @_;
    return $self->{b};
}

package My::M2;

use strict; use warnings;
use base 'My::M1';

sub printtab {
    my $self = shift;
    for my $x (qw(a b)) {
        printf "%s = -%s-\n", $x, $self->$x;
    }
}

package main;

my $m = My::M2->new(a => 'hello', 'b' => 'world');
$m->printtab;
    • Tut package-name muss derselbe sein wie der name des Moduls? (I dont think so).
    • Es muss nicht sein, aber per Konvention ist.
    • Nein, das tun Sie nicht technisch müssen identisch sein. Die Exporte funktionieren nicht korrekt, wenn Sie anders, denn als Eric Strom, sagte, use Module; implizit tut Module->import() nach dem laden. Wenn das Paket in Module benannt ist etwas anderes als Module, dann Module->import() suchen das falsche Paket und nicht importiert nichts. Wenn Sie nicht exportieren, dann gibt es keinen Grund (außer Abkommen), warum der name des Pakets und Modul-name müssen identisch sein.
    InformationsquelleAutor Sinan Ünür
  2. 13

    In Perl, die use Schlüsselwort ist genau äquivalent zu den folgenden:

    use Mymodule;

#is the same as

BEGIN {
   require Mymodule;
   Mymodule->import();
}

    Also, wenn Sie nicht der Definition eines import-routine im code (oder Erben von Exporter), dann sind deine Module nicht importieren, alles in test.pl

    Als Sinan gefangen, die Sie nicht deklarieren, ein Paket in Ihren Modulen, so sind Sie standardmäßig auf der main Paket. In diesem Fall werden alle Unterprogramme sind in main, aber die lexikalische Variablen (deklariert mit my) sind nur eingeschränkt auf die Datei, in der Sie deklariert wurden.

    So m1 definiert sub init und sub printab zu denen die lexikale $a und $b sind im Umfang enthalten. Aber dann, wenn test.pl Lasten m2, die init routine ist überschrieben mit der neuen definition, die nicht geschlossen wird, um die zwei lexikale mehr. So ist es beim schreiben in das Paket Variablen $main::a und $main::b statt der lexikale die printab gebunden ist.

    Wenn Sie Warnungen aktiviert (die solltest du immer beim lernen), Sie hätten davor gewarnt, über die Unterroutine Neudefinition.

    Sollten Sie beginnen jedes Ihrer Module mit:

    package Some::Package::Name;
use warnings;
use strict;

    und dann endet jedes Modul mit:

    1;

    Dies ist, weil, wenn Sie use/require einem Modul, zu der es zurückkehren muss einen wahren Wert an das Ende, so dass Perl weiß, dass es richtig geladen wird.

    InformationsquelleAutor Eric Strom
  3. 2

    printab() in der Datei definiert ist m1.pm und hat nur Zugriff auf die $a und $b Variablen, die im Gültigkeitsbereich dieser Datei. Die Variablen $a und $b im m2.pm sind, eingeschränkt auf die Datei, und Sie sind verschiedenen Variablen als die $a und $b im m1.pm.

    init() setzt die Variablen Gültigkeitsbereich in m2.pm (denn das ist der Letzte Ort, den &init Funktion definiert wurde), so ist es nicht die Einstellung die gleichen Variablen, die printab() werden Sie versuchen, zu drucken.

    • Nein, ich meinte, was ich sagte. Hinzufügen eines package Foo am Anfang jeder Datei in der OP nicht das lexikalische Variablen aus einer Datei sichtbar, in einer anderen Datei.
    • Regel - wird der Umfang bestehen über package-Grenzen innerhalb der gleichen Datei? E. g. package A; my $var1 = "x"; 1; package B; print $var1; - wird die print $var1 siehe die variable delcared "in" - Paket?
    • ein my variable block-Gültigkeitsbereich (wo das Ende der Datei handelt es sich um eine end-of-block), also in deinem Beispiel $var1 sichtbar ist in beiden Paketen. Wenn ich mit mehr als ein Paket in einer Datei, die ich in der Regel setzen Sie den gesamten Paket-Deklaration in einem block: {package ...; ....} so, dass die lexikale nicht austreten
    • dann stehe ich korrigiert, es ist in der Tat der Datei ein, die nicht das Paket Rahmen. Für einige Grund ich war unter Eindruck, dass Sie eine enw-Paket auferlegt, die neue block-scope.
    • Nein, Sie müssen explizit einen neuen Bereich erstellen um einen package Erklärung abgeben, wenn Sie das brauchen.
    InformationsquelleAutor mob
Schreibe einen Kommentar