Perl 5.x: Gute Beispiele zum Lernen von MVC (Theorie+Praxis) (Allgemeines zu Perl)

[thread]21185[/thread]

Perl 5.x: Gute Beispiele zum Lernen von MVC (Theorie+Praxis)

Tags: perl5 MVC Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+4 replies

GwenDragon

2021-04-20 18:27

User since
2005-01-17
14830 Artikel
Admin1

Ein Bekannter hat mich gefragt ob es Tutorial/Website/PDFs gibt, wie MVC mit Perl erstellt werden kann.
Es geht aber nicht darum, ihm fertige Module zu bieten sondern wie das prinzipiell (Funktionsweise) läuft. Also auch nicht Moose, Moo, Mojolicious o.ä.

Wisst ihr da was?
Ich hätte gerne ein paar Links. Danke.
Last edited: 2021-04-20 19:24:39 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+3 replies

hlubenow

2021-04-26 02:16

User since
2009-02-22
877 Artikel
BenutzerIn
[default_avatar]

Tja, also das ist wohl eigentlich ein Konzept für große und sehr große Projekte. Den Begriff hab' ich wohl etwa vor 10 oder 15 Jahren das erste Mal gehört.
Ich arbeite aber (leider) nicht in der Softwarebranche, habe also nicht an einem solchen großen oder sehr großen Projekt mitgewirkt, so daß ich dazu nicht wirklich sagen kann, "So wird das gemacht!".
Allerdings hab' ich selbst einfach häufiger meine Klassen in die drei Bereiche (bzw. Klassen) "Model", "View" und "Controller" geteilt.
"Controller" wird zuerst instantiiert, so wie man in C "main();" aufruft.
"Controller" hat dann ein "Model" und ein "View" Objekt. In "Model" werden die harten Berechnungen vorgenommen, und die Ergebnisse dann an "Controller" "abgeliefert". "Controller" reicht die dann weiter an "View". Dort werden die Berechnungsergebnisse dann visualisiert.
Ich weiß wie gesagt nicht, ob das in Softwareunternehmen so gemacht wird, aber wenn ich das so versucht hab' (siehe auch Wikipedia), hatte ich das Gefühl, daß das so richtig ist.
Im Idealfall kann man "View" austauschen, ohne die anderen anzutasten. Man kann dann z.B. eine Qt- und eine GtK-Version von "View" haben, usw..

Als Grundlage kann ich nur (immer wieder) meine Seite zu OOP empfehlen. Das, was da steht, braucht man sicher, bevor man in Perl (ohne Moose) zu MVC schreitet.
Last edited: 2021-04-26 02:17:54 +0200 (CEST)

+2 replies

hlubenow

2021-04-26 02:32

User since
2009-02-22
877 Artikel
BenutzerIn
[default_avatar]

Hier gerade mal ein minimales Code-Beispiel:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

package Model {

    sub new {
        my $classname = shift;
        my $self = { controller => shift};
        return bless($self, $classname);
    }

    sub calculateThreePlusFour {
        my $self = shift;
        return 3 + 4;
    }
}

package View {

    sub new {
        my $classname = shift;
        my $self = { controller => shift};
        return bless($self, $classname);
    }

    sub showResult {
        my $self = shift;
        my $result = shift;
        print "$result\n";
    }
}

package Controller {

    sub new {
        my $classname = shift;
        my $self = {};
        $self->{model} = Model->new($self);
        $self->{view} = View->new($self);
        return bless($self, $classname);
    }

    sub run {
        my $self = shift;
        my $result = $self->{model}->calculateThreePlusFour();
        $self->{view}->showResult($result);
    }

}

my $controller = Controller->new();
$controller->run();

Edit: Wie gesagt, so mache ich das. Ob man das in der Industrie auch so macht, weiß ich leider nicht. Würde mich aber freuen, wenn jemand was dazu sagen könnte.
Last edited: 2021-04-26 02:35:36 +0200 (CEST)

hlubenow

2021-04-27 21:47

User since
2009-02-22
877 Artikel
BenutzerIn
[default_avatar]

Und hier noch schnell ein Beispiel, wie man eine andere "View"-Klasse einsetzen kann (hier mit Perl/Tk anstatt wie oben mit Ausgabe auf der Konsole durch "print"), ohne die anderen beiden Klassen zu verändern.

(Daß der MainLoop hier so spät startet, ist natürlich suboptimal und müßte in einer echten Anwendung vermieden werden.
Am besten sollte "Controller" "View" gesondert anweisen, den MainLoop zu starten.)

Code (perl): (dl )

package View {

    sub new {
        my $classname = shift;
        my $self = { controller => shift};
        $self->{mw} = MainWindow->new();
        $self->{mw}->optionAdd("*font", "Arial 18 normal");
        $self->{mw}->title("Result");
        $self->{tw} = $self->{mw}->Text(bg => "white",
                                        width => 20,
                                        height => 5);
        $self->{tw}->pack(-padx => 20, -pady => 20);
        $self->{btn_exit} = $self->{mw}->Button(-text => "Exit",
                                                -command => sub { $self->{mw}->destroy() });
        $self->{btn_exit}->pack(-side => "right", -padx => 5, -pady => 5);
        return bless($self, $classname);
    }

    sub showResult {
        my $self = shift;
        my $result = shift;
        $self->{tw}->insert("end", $result);
        $self->{mw}->MainLoop();
    }
}

Last edited: 2021-04-27 21:49:34 +0200 (CEST)

View all threads created 2021-04-20 18:27.