imported>Aka: /* Beispiele */ typografische Anführungszeichen korrigiert

2025-11-28T16:06:13Z

Beispiele: typografische Anführungszeichen korrigiert

Neue Seite

[[Datei:Perl module.png|mini|Mechanismus der Einbindung und Verwendung von Perl-Modulen]]
Ein '''Perl-Modul''' ist eine separate [[Komponente (Software)|Komponente]] eines [[Computerprogramm]]s, das in [[Perl (Programmiersprache)|Perl]] geschrieben wurde.

Ein Modul besitzt seinen [[Quellcode]] in einer Moduldatei der Endung <code>.pm</code>, die wiederum ein <code>package</code> beinhaltet, also einen eigenen Namensraum (was allerdings nicht zwingend erforderlich ist); die Struktur des Paketnamens (und damit des Namensraumnamens) spiegelt das Dateisystem wider (sodass das Modul ''Net::FTP'' in der Datei <code>Net/FTP.pm</code> liegt). Darüber hinaus ist ein Perl-Modul mit Namensraum als Klasse zu verwenden, falls [[objektorientierte Programmierung]] angewandt wird (in Perl sind Namensräume äquivalent mit Klassen, müssen jedoch nicht als solche verwendet werden).

Eine Sammlung von Modulen mit zugehöriger Dokumentation, Build-Skripten etc. bildet eine '''[[Distribution (Software)|Distribution]]'''. Die Perl-Community pflegt eine große Sammlung an Paketen etc. auf [[CPAN]].

Perl als Programmiersprache erlaubt vielfältige Programmierstile. Man kann sowohl ein Modul finden, das prozedural („herkömmlich“, ähnlich wie [[C (Programmiersprache)|C]]) geschrieben ist (z. B. ''Test-Simple''), als auch Module mit objektorientierten Schnittstellen (z. B. ''XML::Parser''), und sowohl das eine als auch das andere können ihre Aufgaben effizient erfüllen, da es u. a. auf den Kontext ankommt: In Verbindung mit [[Extensible Markup Language|XML]] ist eine objektorientierte Modulschnittstelle sehr viel sinnvoller als z. B. bei einer mathematischen Funktionsbibliothek. Module können auch als [[Mixin]]-Methoden genutzt werden oder ein [[Compiler-Anweisung|Pragma]] sein (z. B. ''strict''), was dann einen unmittelbaren Effekt auf das Programm hat. Außerdem können Module genutzt werden, um die Syntax der Sprache selbst zu ändern. Module haben meist nur einen Effekt auf den Sichtbarkeitsbereich, in dem sie geladen wurden (meist eine Datei).

Perl-Modulen ist es gemein, eingebettete Dokumentation als [[Plain Old Documentation]] zu besitzen. POD ist flexibel genug, Artikel, Webseiten oder gar Bücher zu schreiben (z. B. ''Programming Perl''), im Gegensatz zu [[javadoc]], das auf die Dokumentation von Klassen spezialisiert ist. Normalerweise folgen die Dokumentationen der Struktur einer ''[[manpage]]''.

Der Code auf dieser Seite basiert auf Perl 5.10.0 und sollte somit auch mit Perl > 5.10.0 ausgeführt werden können. Mit beispielsweise Perl 5.6 können insbesondere die Namensraumbeispiele nicht ausgeführt werden. Es wird (Ausnahmen sind gekennzeichnet) das Benutzen des Pragmas <code>strict</code> vorausgesetzt, was saubereren Code zur Folge hat.

== Beispiele ==
Eine „Hello-World“-Funktion kann auf verschiedene Weise mit Modulen realisiert werden, wobei es nicht zwingend ist, die Funktion in ein Modul (In Perl eher Namensraum; <code>package</code>) zu packen (im Gegensatz zu [[Java (Programmiersprache)|Java]]); vielmehr kann eine Funktion überall definiert und genutzt werden (in Modulen ebenfalls über Einbindung mit <code>use</code>). Trotzdem ist es aus Gründen der Übersichtlichkeit üblich, die Elemente eines Perl-Moduls in einen Namensraum (<code>package</code>) zu stecken. Eine ''Hello-World''-Funktion sähe so aus:
<syntaxhighlight lang="perl">
package module1;
sub hello(){ print "Hello, World!\n"; }
</syntaxhighlight>

=== Prozeduraler Ansatz ===
In <span style="font-family:monospace;">hello.pm</span> wird die Funktion <code>hello()</code> definiert und implementiert, die im Hauptscript <span style="font-family:monospace;">main.pl</span> ausgeführt wird.

''main.pl'':
<syntaxhighlight lang="perl">
#!/usr/bin/perl -w
use strict; # Pragma strict wird genutzt, sodass eine besonders strenge Prüfung durchgeführt wird
use world::hello; # hello.pm world/hello.pm, wobei die Basis-Verzeichnisse, also die Verzeichnis, in denen
# world/ liegen könnte, in einer Pfadvariable namens @INC angegeben sind, die auch das
# aktuelle Verzeichnis enthält

# entweder
hello::hallo();
# oder
hello->hallo("Erde");
</syntaxhighlight>
----
''hello.pm'':
<syntaxhighlight lang="perl">
package hello;

# Zeilen mit einem "=" kennzeichnen integrierte PO-Dokumentation.
# Ein POD-Abschnitt endet mit "=cut" und kann an beliebiger Stelle stehen.

=head1 NAME
Hello:World -- DIE Hello-World-Implementierung.

=head1 ZUSAMMENFASSUNG

use Hello::World;
hallo();
hallo("Erde");

=head2 Funktionen

Folgende Funktionen stehen zur Verfügung:

=head3 hallo()

hallo()
hallo($etw_anderes)

=head1 Autor

Otto Normalhacker

=cut

sub hallo(;$)
{
my $etw_anderes = shift @_;
defined $etw_anderes ? print "Hello $etw_anderes !\n" : print "Hello world!\n";
}

return 1; # Jedes Perl-Modul muss einen wahren Wert an den Compiler liefern, sonst gibt es einen Error
</syntaxhighlight>

=== Objektorientierter Ansatz ===
Objektorientierte Lösungen erfordern in allen Sprachen mehr Code und besitzen eine geringere Effizienz in der Ausführung. Während der Entwicklung ist die Objektorientierung allerdings oft effizienter als eine prozedurale Lösung. In Perl ist die Objektorientierung durch Referenzen (Skalare mit einer Speicheradresse) auf Code und einen Hash realisiert.

''main.pl'':
<syntaxhighlight lang="perl">
#!/usr/bin/perl -w
use strict;
use Hello::World; # Modul liegt in Hello/World.pm

my $hello = new Hello::World; # Objekt erzeugen

$hello->gib_begr_aus; # "Hello world" ausgeben

$hello = $hello->aendere_ding("galaxis"); # Zu begrüßendes Objekt in "Galaxis" ändern und das geänderte Objekt zurückspeichern

my $begr = $hello->begr_in_string; # Begrüßung speichern...

print $begr; # und ausgeben
</syntaxhighlight>
----
''World.pm'':
<syntaxhighlight lang="perl">
package Hello::World; # Im objektorientierten Ansatz muss der Namensraum definiert sein, da in Perl jede Klasse ein Namensraum ist

use strict;
use warnings;

#
# Eventuelle
# POD-Inhalte
#

sub new($$) # Prototyp des Konstruktors
{
my $class = shift @_;
if ( exists $_[0] ) # Falls nicht anders angegeben, begrüße "world"
{
my $ding = $_[0];
} else
{
my $ding = "world";
}
my $self = { ding => $ding }; # Hash-Referenz mit Daten wird erzeugt...
bless($self, $class); # ... mit dem Klassennamen "abgesegnet"...
return $self; # ...und zurückgegeben
}

sub aendere_ding($$) # Das Ding ändern, das begrüßt wird
{
my $self = shift @_; # Objekt annehmen
my $ding = shift @_;
$self->{ding} = $ding; # Daten manipulieren...
return $self; # ...geändertes Objekt zurückgeben
}

sub gib_begr_aus($) # Die erzeugte Begrüßung auf STDOUT ausgeben
{
my $self = shift @_; # Objekt wird wieder angenommen...
print("Hello $self->{ding}!\n"); # ...und ausgegeben.
}

sub begr_in_string($) # Die erzeugte Begrüßung als String zurückgeben, z. B. bei Verwendung mit print()
{
my $self = shift @_;
return "Hello $self->{ding}!\n";
}
</syntaxhighlight>

== Namensräume und Geltungsbereiche ==
Ein Perl-Programm hat zur Laufzeit, sofern nicht anders deklariert, den Namensraum <code>main</code> – eine Funktion <code>func1()</code> kann sowohl als <code>func1()</code> als auch als <code>main::func1()</code> gerufen werden; der Wert von <code>$var</code> kann sowohl über <code>$var</code> als auch mit <code>$main::var</code> herausgefunden werden. Es können jederzeit neue Namensräume deklariert und genutzt werden. Variablen, die mit <code>my</code> deklariert wurden, verfügen über keine Namensraumzugehörigkeit und existieren global, jedoch nur innerhalb einer Datei. Variablen, die mit <code>our</code> deklariert werden, verfügen über eine Namensraumzugehörigkeit und existieren völlig global, also auch über Dateigrenzen hinweg, wobei sie allerdings in einer anderen Datei als der mit der Deklaration (also der einbindenden Datei) mit Scope-Resolution-Operator :: und dem Namensraum gerufen werden müssen. In ein und derselben Datei muss eine our-Variable aus fremdem Namensraum nur dann vollqualifiziert (mit :: und Namensraum) gerufen werden, falls im aufrufenden Namensraum bereits eine our- oder my-Variable desselben Namens existiert.
<syntaxhighlight lang="perl">
package namensraum1;
my $var = "foo"; # mit my deklarierte Variablen liegen in keinem Namensraum.
# Ein Rufen mittels $namensraum1::var hat keinen Erfolg, mit $var jedoch überall.
our $var2 = "bar"; # our deklariert eine an den Namensraum gebundene Variable (our ist nur nötig mit strict)

$namensraum2::var3 = 42; # Namensraum existiert noch nicht, wird dabei aber gleich erstellt. (nur, falls strict nicht genutzt wird)
our $namensraum2::var4 = 21; # Mit und ohne strict: Fehler
my $namensraum2::var5 = 23.11; # Fehler, da my nicht namensraumgebunden ist

sub namensraum2::hello_w() { print("Hello World!\n"); } # Geht sowohl mit als auch ohne strict
</syntaxhighlight>

== Siehe auch ==
* [[Java Archive]]
* [[Objektorientierte Programmierung]]
* [[Perl (Programmiersprache)|Perl]]

== Weblinks ==
* [https://www.cpan.org/ cpan.org]

[[Kategorie:Perl (Programmiersprache)]]

Perl-Modul - Versionsgeschichte

imported>Aka: /* Beispiele */ typografische Anführungszeichen korrigiert