Eingebaute Funktionen

PetaPerl implementiert die eingebaute Funktionsbibliothek von Perl 5. Dieses Dokument listet alle implementierten Funktionen auf, nach Kategorien geordnet.

Legende:

• ✅ Vollständig implementiert
• ⚠️ Teilweise implementiert
• ❌ Noch nicht implementiert

E/A-Funktionen

Ausgabeoperationen

print "Hello\n";
print $fh "data\n";
say "Hello";                    # Fuegt Zeilenumbruch hinzu
printf "%d Elemente\n", $count;
my $str = sprintf "%05d", $num;

Dateioperationen

open my $fh, '<', $filename or die $!;
my $data;
read $fh, $data, 1024;          # 1024 Bytes lesen
my $line = readline($fh);       # oder <$fh>
my $char = getc($fh);
seek $fh, 0, 0;                 # Zum Anfang zurueckspulen
my $pos = tell $fh;
close $fh;

Verzeichnisoperationen

opendir my $dh, $dir or die $!;
my @entries = readdir $dh;
closedir $dh;

mkdir "newdir", 0755 or die $!;
rmdir "olddir";
chdir "/tmp";

Dateisystemoperationen

unlink "file.txt" or die $!;
rename "old.txt", "new.txt";
link "source", "link";
symlink "target", "symlink";
my $target = readlink "symlink";
chmod 0644, @files;
chown $uid, $gid, @files;
utime $atime, $mtime, @files;
truncate $fh, $length;
my @info = stat $file;
my @info = lstat $symlink;      # Folgt keinem Symlink
my @files = glob "*.txt";

Zeichenkettenfunktionen

my $len = length $str;
my $sub = substr $str, 0, 5;    # Erste 5 Zeichen
substr($str, 7, 5) = "replace";  # Lvalue-substr
my $pos = index $str, "find";
my $rpos = rindex $str, "last";

my $char = chr(65);              # "A"
my $code = ord("A");             # 65

my $lower = lc "HELLO";          # "hello"
my $upper = uc "hello";          # "HELLO"
my $cap = ucfirst "hello";       # "Hello"

chomp $line;                     # Entfernt \n falls vorhanden
chop $str;                       # Entfernt letztes Zeichen
my $quoted = quotemeta '.*';     # '\\.\\\*'

my $num = hex "FF";              # 255
my $num = oct "377";             # 255

Lvalue-substr: substr kann als Zuweisungsziel verwendet werden.

substr($str, 0, 3) = "New";      # Ersetzt die ersten 3 Zeichen

Array-Funktionen

push @arr, $val;
push @arr, @more;
my $last = pop @arr;
my $first = shift @arr;
unshift @arr, $val;

splice @arr, $offset, $length, @replacement;
my $str = join ",", @arr;
my @parts = split /,/, $str;
my @reversed = reverse @arr;
my @sorted = sort @arr;
my @sorted = sort { $a <=> $b } @numbers;
my @filtered = grep { $_ > 10 } @numbers;
my @doubled = map { $_ * 2 } @numbers;

Parallele Ausfuehrung: map, grep und einfache for-Schleifen koennen bei Unbedenklichkeit parallel ausgefuehrt werden.

Hash-Funktionen

my @keys = keys %hash;
my @vals = values %hash;
while (my ($k, $v) = each %hash) { ... }
if (exists $hash{key}) { ... }
my $removed = delete $hash{key};

Kontextsensitivitaet: keys und values geben im Listenkontext eine Liste zurueck, im skalaren Kontext die Anzahl.

my $count = keys %hash;          # Anzahl der Schluessel
my @all_keys = keys %hash;       # Alle Schluessel

Mathematische Funktionen

my $abs = abs -5;                # 5
my $int = int 3.7;               # 3
my $sqrt = sqrt 16;              # 4
my $sin = sin $angle;
my $cos = cos $angle;
my $exp = exp 1;                 # e
my $log = log 10;
my $atan = atan2 $y, $x;
my $rand = rand 10;              # 0 bis <10
srand 42;                        # Mit bestimmtem Wert initialisieren

Typ- und Referenzfunktionen

my $type = ref $value;           # 'ARRAY', 'HASH', 'CODE' usw.
my $obj = bless {}, 'MyClass';
my $obj = bless $ref, 'MyClass';
if (defined $var) { ... }
undef $var;                      # Auf undef setzen
my $count = scalar @arr;         # Skalaren Kontext erzwingen

Steuerung und Introspektion

my ($package, $file, $line) = caller;
my ($pkg, $file, $line, $sub) = caller(1);
if (wantarray) {
    return @list;
} else {
    return $scalar;
}
my $proto = prototype \&mysub;
my $pos = pos $str;
study $str;                      # Fuer wiederholten Regex-Abgleich optimieren
reset;                           # ??-Suchen zuruecksetzen

Prozess und System

die "Fehler: $!" if $error;
warn "Warnmeldung";
exit 0;

my $status = system "ls", "-l";
exec "command", @args;           # Kehrt bei Erfolg nicht zurueck
my $pid = fork;
if ($pid == 0) {
    # Kindprozess
} else {
    # Elternprozess
}
wait;                            # Auf beliebigen Kindprozess warten
waitpid $pid, 0;                 # Auf bestimmten Kindprozess warten

sleep 5;                         # 5 Sekunden pausieren
my $now = time;
my @times = times;               # (user, system, cuser, csystem)
my @lt = localtime time;
my @gmt = gmtime time;
my $user = getlogin;

Benutzer- und Gruppendatenbank

Alle Benutzer-/Gruppendatenbankfunktionen sind implementiert:

my @pwinfo = getpwnam "username";
my @pwinfo = getpwuid $uid;
while (my @entry = getpwent) { ... }
endpwent;

my @grinfo = getgrnam "groupname";
my @grinfo = getgrgid $gid;

Netzwerkdatenbank

Alle Netzwerkdatenbankfunktionen sind implementiert:

my @host = gethostbyname "example.com";
my @net = getnetbyname "loopback";
my @proto = getprotobyname "tcp";
my @serv = getservbyname "http", "tcp";

Tie-Mechanismus

Die Funktionen werden erkannt und sind aufrufbar, leiten aber nicht an Tie-Klassenmethoden weiter. Module, die auf tie angewiesen sind (z.B. Tie::File), funktionieren nicht korrekt.

Formate (veraltet)

Perl-Formate sind ein veraltetes Feature. Die Funktionen existieren, aber das Formatausgabesystem ist nicht implementiert. Verwende stattdessen printf/sprintf.

Socket-Funktionen

Alle Socket-Operationen sind implementiert:

IPC-Funktionen

Bekannte Einschraenkungen

Regulaere Ausdruecke

• qr// ist vollstaendig implementiert einschliesslich Wiederverwendung vorkompilierter Muster
• (?{code}) eingebettete Codeausfuehrung ist implementiert
• Possessive Quantifizierer (*+, ++, ?+) sind implementiert
• Siehe Regulaere Ausdruecke fuer verbleibende Randfaelle (selbstreferenzierende Erfassungen, Mehrzeichenfaltung bei Gross-/Kleinschreibung)

Modulsystem

• use und require funktionieren fuer Pure-Perl-Module
• XS-Module werden nicht unterstuetzt (native Neuimplementierungen fuer gaengige Module vorhanden)
• Einige Pragma-Auswirkungen koennen von perl5 abweichen

Spezielle Variablen

• Die meisten speziellen Variablen werden befuellt ($^O, $^X, $], $^V usw.)
• Internals::SvREADONLY ist nicht implementiert

PetaPerl-spezifische Hinweise

Konstantenfaltung

PetaPerl fuehrt Konstantenfaltung zur Uebersetzungszeit durch fuer:

length("hello")      # Wird zur Uebersetzungszeit zu 5 gefaltet
substr("text", 0, 2) # Wird zu "te" gefaltet

Parallele Ausfuehrung

Diese Funktionen koennen bei Unbedenklichkeit parallel ausgefuehrt werden:

• map - Parallele Elementtransformation
• grep - Parallele Filterung
• sort mit reiner Vergleichsfunktion

Parallelisierung erfordert:

• Keine Seiteneffekte im Callback
• Keinen gemeinsam veraenderbaren Zustand
• Array-Groesse ueber der Parallelisierungsschwelle

Leistung

• Zeichenkettenfunktionen verwenden UTF-8-bewusste Operationen
• Array-Operationen minimieren Kopien
• Hash-Operationen verwenden optimierte Hashtabellen
• Mathematische Funktionen werden wenn moeglich auf CPU-Befehle abgebildet