Frank Seitz - Developer Logbuch - Perl

Mojolicious: Formularvalidierung in Webanwendung

nospam@example.com (Frank Seitz) — Sun, 15 Feb 2026 22:20:57 +0100

In einer Webanwendung, die Daten über Formulare pflegt/verwaltet, ist es essentiell, die Eingabedaten vor der Speicherung akribisch zu prüfen.

Im Falle einer Regelverletzung wird mit einer aussagekräftigen Fehlermeldung zum ausgefüllten Formular zurückgekehrt und auf das betreffende Eingabefeld positioniert (also der Eingabefokus gesetzt).

Wie lässt sich dies effektiv erreichen?

Die Prüfmethoden sind in der Klasse Quiq::Assert enthalten
Wir führen die Tests in einem eval-Block durch
Im Falle einer Regelverletzung wird eine Exception ausgelöst, der Prüfblock sofort verlassen und mit Fehlermeldung zum Formular zurückgekehrt

if ($aktion eq 'Speichern') {
    my $field;
    eval {
        my $val;

        my $a = Quiq::Assert->new;

        $field = 'NAME1';
        $val = $self->param($field)
        if (!$a->METHOD1($val)) {
            die "FEHLER: $field verletzt METHOD1\n";
        }
        if (!$a->METHOD2($val)) {
            die "FEHLER: $field verletzt METHOD2\n";
        }
        ...
        $field = 'NAME2';
        $val = $self->param($field);
        if (!$a->METHOD3($val)) {
            die "FEHLER: $field verletzt METHOD3\n";
        }
    };
    if ($@) {
        $@ =~ s/\n$//;
        my $url = '/FORMULAR?'."navMsg=$@&navFocus=$field&".
            $self->req->params->to_string;
        $self->redirect_to($url);
        return;
    }
    ...
}

Perl: XML-Template mit XML::Compile generieren

nospam@example.com (Frank Seitz) — Sun, 11 Jan 2026 15:54:35 +0100

Mit der Methode $sch->template() der Klasse XML::Compile::Schema kann ein XML-Template zu einer gegebenen Schemadefinition generiert werden (Anwendungsfall s. XML: Erzeugung von komplexem XML).

Beispiel:

$ perl -MQuiq::Zugferd -E 'say Quiq::Zugferd->createTemplate("ZF24_DE/Schema/3_Factur-X_1.08_EN16931")'

Die aktuelle Implementierung von XML::Compile hat jedoch leider das Defizit, dass mehrfach auftretende XML-Konstrukte <ELEMENT>...</ELEMENT> ab dem zweiten Auftreten abgekürzt werden zu <ELEMENT/>. Dies macht die Nutzung des Templates leider weitgehend unbrauchbar.

Mit einem kleinen Patch lässt sich dies jedoch beheben. Das unerwünschte Verhalten unterbleibt, wenn in Compile/Translate/Template.pm die Zeile

$reuse_type{$type}++;   $reuse_tag{$tag}++;

auskommentiert wird.

XML: Erzeugung von komplexem XML

nospam@example.com (Frank Seitz) — Sun, 11 Jan 2026 18:52:00 +0100

Ausgangslage: Wir möchten hochstrukturierte XML-Dateien erzeugen, beispielsweise E-Rechnungen nach den Standards ZUGFeRD und XRechnung.

Ablauf

Einlesen des betreffenden XML-Templates mit Platzhaltern
Wandlung des XML-Templates in eine hierarchische Datenstruktur der Programmiersprache (XML-Baum)
Ersetzen der Platzhalter im XML-Baum durch konrete Werte
Entfernen aller unersetzten Platzhalter
Entfernen aller leeren Knoten des Baums (rekursiv)
Wandeln des resultierenden Baums in XML-Code

XML::Compile

Als wichtigstes Hilfsmittel zur Durchführung der Aufgabe verwenden wir das Perl-Package XML::Compile. Es leistet (unter Rückgriff auf die betreffende XML Schemadefinition) Folgendes: