Perl Klasse in Script einbinden

Question

Ich habe eine Klasse in Perl

package Person;

sub new {
    my ($class, $name, $age) = @_;
    my $self = {
        name => $name,
        age  => $age,
    };
    bless $self, $class;
    return $self;
}

sub get_name {
    my ($self) = @_;
    return $self->{name};
}

sub get_age {
    my ($self) = @_;
    return $self->{age};
};

Wie kann ich diese in ein Script einbinden?

Answer 1

Speichere die Klasse in einer Datei mit dem Namen "Person.pm". Dann erstelle eine neue Datei im selben Verzeichnis und binde die Klasse ein.

#!/usr/bin/perl

# Laden der Person-Klasse
use Person;

# Erstellen eines neuen Person-Objekts
my $person = Person->new("John", 30);

# Verwendung von Methoden des Person-Objekts
my $name = $person->get_name();
my $age = $person->get_age();

# Ausgabe der Daten
print "Name: $name\n";
print "Age: $age\n";