Objektorientierte Perl-Konstruktor-syntax, die auch benannte Parameter

.1. In Perl der Konstruktor ist einfach eine Unterroutine namens neue.

Ja, durch Konvention new ist ein Konstruktor. Es kann auch eine Initialisierung durchzuführen oder nicht. new sollte ein Objekt zurückgeben, auf Erfolg oder wirft eine exception (die/croak) wenn ein Fehler aufgetreten ist, der verhindert, dass der Objekterstellung.

Können Sie den Namen Ihres Konstruktors, was Sie wollen, haben wie viele Konstruktoren, wie Sie möchten, und sogar bauen segnen Objekte in beliebiger name, Raum, den Sie wünschen (nicht, dass das eine gute Idee ist).

.2. Ich verstehe nicht, was my $type = shift; nicht an alle, aber ich sehe es immer. Brauche ich es?

shift mit keine Argumente ein argument aus dem Kopf @_ aus und ordnet Sie $type. Die -> Betreiber leitet die invocant (linke Seite) als erstes argument an das Unterprogramm. Also diese Zeile wird der name der Klasse aus der Liste der Argumente. Und, ja, Sie müssen es.

.3. Wie funktioniert ein array von Eingaben werden die %params hash? my %params = @_;

Zuweisung in eine hash erfolgt in Listen-Kontext-Paare-Liste, die Elemente gruppiert, die als Schlüssel/Wert-Paaren. So %foo = 1, 2, 3, 4;, erstellt einen hash, so dass $foo{1} == 2 und $foo{3} == 4. Dies erfolgt in der Regel zu erstellen, die benannte Parameter für ein Unterprogramm. Wenn die sub übergeben, eine ungerade Anzahl von Argumenten, eine Warnung generiert wird, wenn Warnungen aktiviert sind.

.4. Was bedeutet " my $self = {};` tun?

Diese Zeile erstellt eine anonyme hash-Referenz und weist es der lexikalisch scoped variable $self. Die hash-Referenz werden die Daten gespeichert, die für das Objekt. In der Regel die Schlüssel in der hash haben eine eins-zu-eins-mapping auf die Attribute des Objekts. Also wenn eine Klasse Foo die Attribute "Größe" und "Farbe", wenn Sie überprüfen Sie den Inhalt der ein Foo-Objekt, Sie sehen etwas wie $foo = { size => 'm', color => 'black' };.

.5. Angesichts $self->{'High'} = $params{'High'}; wo kommt $params{'High'} kommen?

Dieser code stützt sich auf die Argumente zu übergeben new. Wenn new genannt wurde wie Foo->new( High => 46 ), dann wird der hash erstellt, da pro Frage 3 wird ein Wert für den Schlüssel High (46). In diesem Fall ist es das gleiche wie zu sagen $self->{High} = 46. Aber wenn die Methode aufgerufen wird, wie Foo->new() dann kein Wert verfügbar sein wird, und wir haben $self->{High} = undef.

.6. Was bedeutet bless tun?

bless nimmt eine Referenz und ein Mitarbeiter mit einer bestimmten Paket, so dass Sie können es verwenden, um Methodenaufrufe. Mit einem argument, der Verweis assoicated mit dem aktuellen Paket. Mit zwei Argumenten, das zweite argument gibt das Paket ordnen Sie die Referenz mit. Am besten ist es, immer die beiden argument-form, so dass Ihre Konstruktoren vererbt werden können, die durch eine sub-Klasse und noch einwandfrei funktionieren.

Endlich, ich werde schreiben Sie Ihre hash-basierte object-accessor als würde ich schreiben, es mit der klassischen OO-Perl.

package Foo;

use strict;
use warnings;
use Carp qw(croak);

sub new {
    my $class = shift;

    croak "Illegal parameter list has odd number of values" 
        if @_ % 2;

    my %params = @_;

    my $self = {};
    bless $self, $class;

    # This could be abstracted out into a method call if you 
    # expect to need to override this check.
    for my $required (qw{ name rank serial_number  });
        croak "Required parameter '$required' not passed to '$class' constructor"
            unless exists $params{$required};  
    }

    # initialize all attributes by passing arguments to accessor methods.
    for my $attrib ( keys %params ) {

        croak "Invalid parameter '$attrib' passed to '$class' constructor"
            unless $self->can( $attrib );

        $self->$attrib( $params{$attrib} );
    }

    return $self;
}

Einige Punkte wurden noch nicht behandelt noch:

In Perl der Konstruktor ist einfach ein
Unterroutine namens new.

Nicht ganz. Beim aufrufen des Konstruktors new ist nur eine Konvention. Sie können es nennen, was Sie wollen. Es ist nichts besonderes über diesen Namen aus perl-Sicht.

bless $self, $type;

Beide deine Beispiele nicht zurückkehren, das Ergebnis segnen ausdrücklich. Ich hoffe, dass Sie wissen, dass Sie damit implizit sowieso.

In Perl, alle Argumente an Unterprogramme übergeben werden, über das vordefinierte array @_.

Den shift entfernt und liefert das erste Element aus der @_ array. In Perl OO, das ist die Methode invocant-in der Regel der name einer Klasse für Konstruktoren und ein Objekt für andere Methoden.

Hashes reduzieren und kann initialisiert werden, indem Listen. Es ist eine gemeinsame trick, um zu emulieren benannte Argumente an Unterprogramme. z.B.

Employee->new(name => 'Fred Flintstone', occupation => 'quarry worker');

Ignorieren den Namen der Klasse (die ist verschoben aus) die ungeraden Elemente werden hash-Schlüssel und sogar Elemente werden die entsprechenden Werte.

Den my $self = {} erzeugt eine neue hash - Referenz zu halten, die Instanz-Daten. Die bless Funktion ist, was macht die normale hash-Referenz $self in ein Objekt. Alle es tut, ist hinzuzufügen, einige Metadaten, die die Referenz als die Zugehörigkeit zu der Klasse.