Perl Factory Design Pattern (Allgemeines zu Perl)

[thread]19066[/thread]

Perl Factory Design Pattern

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+20 replies
rosti

2014-05-04 12:17

User since
2011-03-19
3470 Artikel
BenutzerIn

Wie wärs damit: http://rolfrost.de/perlfactory.html
Vor- und Nachteile aus meiner Sicht, nun möchte ich Eure Meinung.
- +2 replies
- lichtkind
  
  2014-05-04 18:17
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  naja im artikel fehlt noch der eigentliche Grund warum man das zeug unterrichtet. Das kommt erst bei größeren strukturen zum tragen.
  
  ich mag diese ganze design patterns schiene nur bedingt weil nichts ersetzt das eigene nachdenken und letztlich gehts jedes mal um abstraktion. aber manchmal helfen halt denkschablonen um die ersten möglichkeiten zu sehen.
  
  ich hätte halt ein beispiel mit mehreren ähnlichen klassen aufgezogen und die factory method entscheided dann intelligent zwischen klassen die das gleiche interface erfüllen oder bietet vereinfaches interface wie bei Wx::Perl::Smart::WidgetFactory.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - rosti
    
    2014-05-04 18:46
    
    User since
    2011-03-19
    3470 Artikel
    BenutzerIn
    
    Hi danke für Dein Feedback!
    
    Mein kleiner Artikel ist nur mal eben "laut gedacht", mehr nicht. Es ist eher eine Studie zum Thema require;
    
    Wie das Muster heißt, ist mir auch egal, ich bin eh ein Fan von AUTOLOAD, da werden Methoden einfach aufgerufen über die eigene Instanz. In den .pm-Dateien ist dann klar definiert, welche zusätzlichen Klassen per useeingebunden werden, da funktioniert der Import (falls notwendig) und die Arumentenübergabe sowieso.
    
    Andererseits lohnt es sich immer, übern Tellerrand zu gucken und wie die Anderen bestimmte Dinge lösen ;)
- +3 replies
- hlubenow
  
  2014-05-04 18:28
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Ich bleibe bei
  
  Code (perl): (dl )
  
  my $object = Class->new();
  
  Scheint mir am einfachsten zu sein und auch mit den OOP-Konzepten anderer Sprachen (z.B. C++, Python) am besten übereinzustimmen.
  
  Mir ist es immer wichtig, in der jeweiligen Sprache nicht ein "eigenes Süppchen" zu kochen, sondern wenn möglich allgemein gebräuchliche Konstrukte zu verwenden, die dann auch leicht in andere Sprachen übertragen werden können. Meist orientiere ich mich dabei an C. Mir gefällt, wenn man etwas so ähnlich auch in C formulieren würde. Bei OOP geht das natürlich schlecht. Da wäre dann eben C++ der Maßstab. Wenn ich mich nicht irre, würde man in C++ z.B. schreiben:
  
  Code (C): (dl )
  
  Class *object = new Class();
  
  Also würde ich auch in Perl dafür keine eigene Funktion "erzeuge_instanz()" oder dergleichen verwenden.
  - rosti
    
    2014-05-04 19:01
    
    User since
    2011-03-19
    3470 Artikel
    BenutzerIn
    
    In Teamarbeit ist wichtig, dass der Eine versteht, was der Andere macht, das auch umgekehrt und full meshed. Warum PL-Specials nicht nutzen, wenn es die Arbeit erleichtert, den Code vereinfacht, überschaubarer, skalierbarer und wartungsfreundlicher macht?
    
    Selbst wenn Du mit mehreren PLs genau Dasselbe erreichen willst, ist es nicht in jedem Fall auf die gleiche Art und Weise machbar ;)
    
    Unpragmatische Grüße ;)
  - Raubtier
    
    2014-05-04 22:00
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    2014-05-04T16:28:51 hlubenow
    Da wäre dann eben C++ der Maßstab. Wenn ich mich nicht irre, würde man in C++ z.B. schreiben:
    
    Code (C): (dl )
    
    Class *object = new Class();
    
    Also würde ich auch in Perl dafür keine eigene Funktion "erzeuge_instanz()" oder dergleichen verwenden.
    
    Auch wenn es hier off-topic ist, in modernem C++ würde man eher folgendes schreiben, da new/delete nach Speicherleks rufen:
    
    Code: (dl )
    
    auto object = std::make_shared<Class>();
    
    (oder make_unique, wenn man sich das in C++11 vergessene template selbst macht)
    
    Alernativ auch ohne Pointer:
    
    Code: (dl )
    
    Class object;
- +4 replies
- Muffi
  
  2014-05-04 20:11
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Wie heissts so schön: Pattern sind der Versuch Unzulänglichkeiten der Sprache, meist Java, zu umschiffen.
  
  Ich hatte noch nie in Perl das Bedürfnis Factories zu benutzen. Ich glaub es gibt auch keinen Sinnvollen Anwendungsfall
  
  edit: ich hab grad die Seite durchgelesen. Das hat mit einem factory pattern nicht wirklich was zu tun
  Last edited: 2014-05-04 20:38:48 +0200 (CEST)
  1 + 1 = 10
  - +3 replies
  - rosti
    
    2014-05-04 22:47
    
    User since
    2011-03-19
    3470 Artikel
    BenutzerIn
    
    Quote
    edit: ich hab grad die Seite durchgelesen. Das hat mit einem factory pattern nicht wirklich was zu tun
    
    Wir kochen alle nur mit Wasser. Ob wir das "Topf aus der Anrichte nehmen, Wasserhahn aufdrehen, Wasser einfüllen, Wasserhahn wieder zudrehen, Topf aufsetzen" als Factory bezeichnen oder als Manufaktur, ist uns überlassen.
    
    Als kleiner Junge wollte ich jedoch mal von meiner Oma wissen, warum sie kaltes Wasser einfüllt, wo wir doch einen Warmwasserboiler haben!?
    
    Bei meinem nächsten Waschgang war mir klar: Das Wasser aus dem Hahn mit dem kalten Wasser läuft viel schneller, als das Warmwasser aus dem Boiler.
    
    Vergleiche hinken. Die Moral bleibt jedoch dieselbe ;)
    - +2 replies
    - Muffi
      
      2014-05-04 22:53
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Was immer du damit sagen wolltest
      1 + 1 = 10
      - rosti
        
        2014-05-05 10:35
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        2014-05-04T20:53:53 Muffi
        Was immer du damit sagen wolltest
        
        Ok, ich präzisiere das mal ;)
        
        Du hast eine Anwendung entwickelt, die macht was sie soll, aber nicht besonders performant. Ein Kunde weist Dich darauf hin und führt Dir eine Anwendung vor, die dasselbe macht, aber sehr viel performanter, programmiert von der Konkurrenz.
        
        Wenn Dir der Kunde nicht weglaufen soll, wirst Du Deine Arbeit selbstkritisch in Augenschein nehmen und vielleicht auch mal gucken, wie die Konkurrenz das Problem gelöst hat. Oftmals ist die Lösung nicht gleich sichtbar, oft nur eine Kleinigkeit.
        
        Oder ein systematischer Fehler: Du nimmst an, dass das Wasser schneller kocht, wenn Du den Topf mit Warmwasser aus dem Boiler befüllst, anstelle kaltes Wasser zu nehmen. Bei der Konkurrenz jedoch nehmen die kaltes Wasser und haben den Tee schneller fertig als Du ;)
- +10 replies
- pq
  
  2014-05-05 11:29
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Quote
  Vorteile
  
  ich vermisse den gegenpart. vorteile gegenüber was? ich vermute jetzt einfach mal,
  
  Code (perl): (dl )
  
  my $object = require 'Class';
  
  gegenüber
  
  Code (perl): (dl )
  
  1 2
  
  use Class; my $object = Class->new;
  
  zunächst:
  
  Code: (dl )
  
  1 2 3
  
  $ touch Class.pm $ perl -wE'require "Class"' Can't locate Class in @INC
  
  Quote
  Der lokale Pfad zur Datei liegt im @INC-Array und muss nicht extra angegeben sein
  
  der pfad muss bei beiden nicht extra angegeben sein. kein vorteil.
  
  Quote
  beides in einer einzigen Zeile.
  
  man spart also ein "use". hat man mehrere aufrufe im code, spart man nicht jedesmal eine zeile, sondern das use braucht man auch nur einmal. finde ich kaum erwähnenswert, diesen vorteil.
  
  Quote
  Der Name der Klasse kann in einer Variablen stehen: my $obj = require "$class.pm";
  
  trugschluss. geht nur bei klassen, die aus einem wort bestehen. also sowas wie ConstantContainerFactoryProvider.
  hat man Constant::Container::Factory::Provider, geht das anhängen von ".pm" nicht mehr so einfach, denn die :: müssen zunächst noch in / umgewandelt werden.
  der vorteil wird hier zum echten nachteil.
  
  die nachteile, die du auflistest, sprechen wiederum für sich.
  
  zum schluss hätte ich noch gerne code in einer beliebigen sprache gesehen, bei dem man wirklich nur einen funktionsaufruf hat und *keine* bibiliothek vorher einbinden muss. ansonsten kapiere ich dein ganzes unterfangen nicht.
  Last edited: 2014-05-05 11:33:10 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - rosti
    
    2014-05-05 12:27
    User since
    2011-03-19
    3470 Artikel
    BenutzerIn
    
    Quote
    zum schluss hätte ich noch gerne code in einer beliebigen sprache gesehen, bei dem man wirklich nur einen funktionsaufruf hat
    
    Bleiben wir bei Perl:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $self = shift; # meine Klasseninstanz my $variable_for_own_use = $self->foo($variable_aus_eigener_Verwendung);
    
    foo() ist eine Methode der Klasse FooBar, die in keinem Verwandschaftsverhältnis zu meiner Klasse steht. Zum Aufruf der Methode foo() ist eine Instanz der Klasse FooBar notwendig, was obenstehehder Code verbirgt, weil einfach nur eine Methode aufgerufen wird.
    
    PS/Edit: Etwas ausführlicher hier: http://rolfrost.de/fwdemofact.html
    Last edited: 2014-05-05 19:00:27 +0200 (CEST)
  - +8 replies
  - Muffi
    
    2014-05-05 20:50
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Factory pattern sind ja gar nicht dafür da irgend etwas kurz zu schreiben. Und ich bezweifel auch, dass rosti wirklich verstanden hat für was das Pattern benutzt wird.
    Das ist gut für statische Sprachen mit strikten Typen. Bei Perl macht sowas meiner Meinung nach keinen Sinn.
    1 + 1 = 10
    - +7 replies
    - rosti
      
      2014-05-05 22:19
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Wie würdest Du folgendes Problem lösen:
      
      Eine Website hat 'zig URLs, die meisten davon sind Anwendungen und eine main soll die Antwortseiten ausliefern sowie Benutzeraktionen validieren. Es kommt noch eine Subdomäne hinzu, ein paar Seiten sollten mehrsprachig sein und eine Policy muss implementiert werden, wo die Zugänge zu Inhalten und Anwendungen unter Kontrolle hat. Ein Staging soll über die Policy eingerichtet werden, so dass Benutzer der Gruppe Stagin-User den Shop auf dem Life-URL so testen können, dass Testbestellungen nicht in der produktiven Datenbank landen.
      
      Klarer Fall: Jede Menge Code ;)
      
      Auch klar: Bei jedem Request den ganzen Haufen Code zu kompilieren, wo für eine Response oder eine Benutzeraktion nur ein Bruchteil davon gebraucht wird, wäre eine DoS-Attack. Dass der Code nun sinnvoll aufgeteilt werden muss erscheint logisch, wie würdest Du vorgehen?
      - Gast wer
        
        2014-05-05 23:02
        
        ich sehe das problem nicht
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
        
        use strict; use warnings; use FindBin q($Bin); use CGI; use lib "$Bin/path/to/webside/code"; use sys::Config; use sys::Core; my $cgi=CGI->new(); my $conf=sys::Config->new(); my $core=sys::Core->new($cgi,$conf); my $uri=$core->get_uri(); my @allowed=( [qr/sub1\.seite\.de/,'sites::Sub1'], [qr/sub2\.seite\.de/,'sites::Sub2'], [qr/www\.seite\.de/,'sites::Main'], [qr//,'sites::Error'], ); @allowed=@{$conf->get('websites')}; my $run; for(@allowed) { my ($r,$m)=@$_; if($uri=~$r and $m and eval("require $m") ) { $run=$m; last; } } die("NO WEBSITE") unless $run; my $site=$run->new($cgi,$conf); die($run->error()) unless $site; print $site->generate();
        
        alle module in "sites::" erben von "sys::Core" und überschreiben das was sie anders brauchen
      - pq
        
        2014-05-05 23:06
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2014-05-05T20:19:40 rosti
        Auch klar: Bei jedem Request den ganzen Haufen Code zu kompilieren [...]
        
        ich hab mal gehört, dafür gibt es z.B. FastCGI oder mod_perl.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - GwenDragon
        
        2014-05-06 08:40
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        2014-05-05T20:19:40 rosti
        Auch klar: Bei jedem Request den ganzen Haufen Code zu kompilieren, wo für eine Response oder eine Benutzeraktion nur ein Bruchteil davon gebraucht wird, wäre eine DoS-Attack.
        Wenn du damit meinst, dass durch jeden Request der Brontosaurus CGI und dessen behäbige Kinder geladen werden müssen magst du Recht haben, dass sowas dauert und nicht gerade Tausende Requests/Sekunde zulässt.
        
        Webserver wie NGinx lachen über sowas wie dein "DoS". FCGI läuft auf NGinx, das ist fix.
        FastCGI und mod_perl bei Apache brauchen nicht für jeden Request eine Compile-Phase.
        
        Echten DoS fängt man in der Praxis durch Programmierung ab sondern durch geeignete Firewalls und Webserver samt Modulen.
        
        So ganz verstehe ich nicht, was du unter DoS meinst.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        rosti
        
        2014-05-06 11:56
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        DoS ist DoS. Wenn der CODE den Service lahmlegt: keine Attacke aber auch DoS.
        
        Code (perl): (dl )
        
        1 2
        
        use KleineKlasse; use GroßeKlasse;
        
        muss nicht sein, wenn GroßeKlasse nur für /echtklasse.html gebraucht, jedoch /kleineklasse.html requested wird. Darin sehe ich den Sinn und Zweck einer Factory mit dem hübschen Nebeneffekt, dass der Code überschaubar bleibt und einer Teamarbeit förderlich ist.
        
        Viele Grüße,
        Rosti
        
        Raubtier
        
        2014-05-06 12:04
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        es ist doch wirklich sch...egal, ob da noch eine große Klasse mehr dazugeladen wird oder nicht.
        
        Es ist doch die Zeit interessant, in der eine Seite ausgeliefert wird, nicht in der der Server startet.
      - Muffi
        
        2014-05-06 10:19
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ach, du willst damit Module zwecks Performance nach Bedarf laden?
        Aah! Aber nenns wirklich nicht factory pattern.
        
        Und dann glaub ich würd ich mir den Stress nicht antun. Wenn die Performance von gutem alten CGI reicht gut, wenn nicht, dann nicht nehmen.
        Nimm dann lieber was was Performance hat und wo du schon beim Start alles einladen kannst.
        Alle anderen Versuche find ich blockieren und verkomplizieren Weiterentwicklungen mehr als sie bringen.
        1 + 1 = 10

View all threads created 2014-05-04 12:17.