Perl-Systeme warten. Schritt für Schritt modernisieren.

1987 · Perl 1.0

Gebaut für

Berichte, Textextraktion und Systemverknüpfung

Läuft auf

Unix-Systemen mit Shell und C-Compiler

Das Web

existiert noch nicht

Hier gibt es noch keine Webanfrage. 1987 liegt der Vorschlag für das Web noch zwei Jahre in der Zukunft. Perl wurde für Text und Systemverknüpfung gebaut. Deshalb war die Sprache bereits auf vielen Rechnern vorhanden, als das Web entstand.

1997 · CGI.pm wird Teil des Perl-Kerns

#!/usr/bin/perl
use CGI;
my $q    = CGI->new;
my $name = $q->param('name');

print $q->header('text/html');
print "<h1>Hello, $name</h1>";← nicht maskiert

Das Web wird beschreibbar. Der Server startet für jede Anfrage einen Prozess, führt Perl aus, liest die Antwort von der Standardausgabe und beendet den Prozess. Zeile 7 schreibt den Parameter unmaskiert ins Markup – ein typisches Risiko dieser Zeit.

ca. 2009 · PSGI und Plack

use Plack::Request;

my $app = sub {
    my $req  = Plack::Request->new(shift);
    my $name = $req->parameters->{name} // 'world';

    return [ 200, ['Content-Type' => 'text/plain'], ["Hello, $name\n"] ];← die ganze Schnittstelle
};

Hashref hinein, Arrayref heraus. Der Rückgabewert in Zeile 7 enthält Status, Header und Body. Mehr verlangt die Schnittstelle nicht. Die Anwendung ist damit vom ausführenden Server getrennt – genau das fehlte im CGI-Modell.

Heute · Mojolicious::Lite auf PSGI

use Mojolicious::Lite -signatures;

get '/hello' => sub ($c) {
    my $name = $c->param('name') // 'world';
    $c->render(json => { hello => $name });← kodiert statt zusammengesetzt
};

app->start;

Gleiche Anfrage, gleicher Parameter, acht Zeilen. Entscheidend ist nicht die Syntax: Der Interpreter bleibt zwischen Anfragen geladen, die Antwort wird kodiert statt als String zusammengesetzt, und dieselbe Datei läuft unter jedem PSGI-Server.