EasyReportGenerator: New CPAN module in development (solved) (Projekte)

[thread]18281[/thread]

EasyReportGenerator: New CPAN module in development [solved]

Tags: perl5 modul module Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+17 replies
jpr65

2013-04-18 08:30
User since
2013-04-18
10 articles
BenutzerIn
Zum Schnuppern:

EasyReportGenerator: Webseite mit ersten Infos/Downloads unter http://www.jupiter-programs.de/prj_public/erg/inde...

Einsatz: Schnelle Massendaten-Verarbeitung und Generierung in beliebigen Formaten.

Die SW ist noch nicht funktionsfähig, aber es wird bald soweit sein!

Und so wird man die Spalten definieren können:
Code (perl): (dl )

1 2 3 4 5

$report->StoreExportColumn({-header => 'Count', -value => sub { return $_[0]->[0]; } }); $report->StoreExportColumn({-header => 'TimeStamp', -w => 10, -value => sub { return $_[0]->[4]; } }); $report->StoreExportColumn({-h => 'Age', -w => 7, -value => sub { return $_[0]->[3]; } }); $report->StoreExportColumn({-h => 'Prename', -w => 11, -v => sub { return $_[0]->[1]; } }); $report->StoreExportColumn({-h => 'Surname', -width => 8, -v => '$_[0]->[2]' });
Ich warte auf Eure Kommentare!

VG Ralf
Last edited: 2013-04-18 09:09:23 +0200 (CEST)
- +10 replies
- Raubtier
  
  2013-04-18 11:11
  
  User since
  2012-05-04
  1052 articles
  BenutzerIn
  
  Kennst du perlform?
  
  Habe nur ganz schnell rüber geguckt und mir sind 2 Dinge aufgefallen.
  
  1. Das Modul beginnt mit $| = 1;. Warum? Wenn du es brauchst, würde ich es nur an der entsprechenden Stelle mit local $|=1; setzen, damit es nicht für den Rest Auswirkungen hat.
  
  2. Ich mal kein eval { $string }. Ich finde den entsprechenden Code höchst fragwürdig, auch wenn das hier natürlich by Design so sein soll. Warum die Übergabe eines Strings erlauben, der dann als sub ge-eval-t wird, wenn noch alternativ gleich eine anonyme sub übergeben werden kann - wo ist der Mehrwert des Strings? Dass man sich "sub" und die beiden Klammern spart? Und wer weiß, vielleicht kommt jemand auf die Idee, die Breite einer Spalte vom Benutzer festlegen zu lassen, und der Benutzer meint, die Spalte sei "1,'');unlink(q(dateiname));" (oder ähnlich, müsste ich jetzt genauer schauen) breit? Toll, oder?
  - Muffi
    
    2013-04-18 13:29
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Quote
    1. Das Modul beginnt mit $| = 1;. Warum? Wenn du es brauchst, würde ich es nur an der entsprechenden Stelle mit local $|=1; setzen, damit es nicht für den Rest Auswirkungen hat.
    
    Ich glaube man kann an der Stelle nicht mal sagen was die Anweisung tut. Afair tut die nämlich NICHT das Buffering von stdout ausschalten, sondern den des zuletzt selecteten Handles.
    Evtl. wird das irgendwie in einem eigenen Package resettet oder ist lokal, aber ich würd da mal Zweifel anmelden.
    
    [EDIT] Halt, Denkfehler meinerseits. print geht ja aufs Gleiche, dann passts ja wieder.
    
    [EDI2] Allerdings find ichs komisch, dass ein Modul direkt mit prints arbeitet.
    Last edited: 2013-04-18 13:47:30 +0200 (CEST)
    1 + 1 = 10
  - +8 replies
  - jpr65
    
    2013-04-18 22:25
    
    User since
    2013-04-18
    10 articles
    BenutzerIn
    
    2013-04-18T09:11:56 Raubtier
    Kennst du perlform?
    
    Habe nur ganz schnell rüber geguckt und mir sind 2 Dinge aufgefallen.
    
    1. Das Modul beginnt mit $| = 1;.
    
    Danke für den Hinweis. Das ist ein Copy-Paste Fehler. $| hat da nichts zu suchen, ich werde es entfernen.
    
    Quote
    2. Ich mal kein eval { $string }.
    
    Das ist der einzige Parameter, für den die String-Variante überflüssig ist, weil hier die Referenz auf eine Sub (anonym oder nicht, macht keinen Unterschied) zwingend erforderlich ist. Sonst kann man den Wert nicht auslesen, denn der ist erst in der Run-Phase bekannt. Aber die startet erst später.
    
    Bei den anderen Parametern kann man durch einen String den Aufruf einer Sub einsparen, das sind bei Zellen 1 Mio. calls bei einer Liste von 10 Spalten und 100.000 Zeilen pro Parameter, der auf eine Zelle angewendet wird.
    
    Aber ob man nun einen String übergibt oder eine Sub-Ref startet, darin kann alles passieren. Dieser Part kann und darf nur vom Entwickler gefüllt werden, da sehe ich kein Problem.
    
    Usereingaben verbieten sich natürlich für eval und auch für dynamisches SQL.
    
    Perlform habe ich mir gerade angesehen, das ist eine etwas andere Zielrichtung. Mir geht es um die Verarbeitung von Massendaten, die in Tabellenform mit Über- und Unterschriften ausgegeben werden sollen. D.h. EFG verhält sich zu Perlform wie Excel (Tabellenkalkulation) zu Word oder einer Formular-Engine.
    
    Ich sollte das alles noch genauer in einer Doku erläutern.
    
    VG Ralf
    - Muffi
      
      2013-04-18 23:22
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      das klingt jetzt negativer als es gemeint ist, aber ich hab noch nie einen perlprogrammierer gesehn der freiwillig so viel tippt.
      1 + 1 = 10
    - +6 replies
    - Raubtier
      
      2013-04-19 01:03
      
      User since
      2012-05-04
      1052 articles
      BenutzerIn
      
      2013-04-18T20:25:04 jpr65
      2013-04-18T09:11:56 Raubtier
      2. Ich mal kein eval { $string }.
      
      Das ist der einzige Parameter, für den die String-Variante überflüssig ist, weil hier die Referenz auf eine Sub (anonym oder nicht, macht keinen Unterschied) zwingend erforderlich ist. Sonst kann man den Wert nicht auslesen, denn der ist erst in der Run-Phase bekannt. Aber die startet erst später.
      
      Habe ich nicht verstanden. Was geht mit dem String, das mit einer sub nicht ginge?
      
      Quote
      Bei den anderen Parametern kann man durch einen String den Aufruf einer Sub einsparen, das sind bei Zellen 1 Mio. calls bei einer Liste von 10 Spalten und 100.000 Zeilen pro Parameter, der auf eine Zelle angewendet wird.
      
      Sind es also Performancegründe? Sind die gebenchmarkt?
      
      Quote
      Aber ob man nun einen String übergibt oder eine Sub-Ref startet, darin kann alles passieren. Dieser Part kann und darf nur vom Entwickler gefüllt werden, da sehe ich kein Problem.
      
      Mein Punkt war hier, dass es auch an unerwarteten Stellen, wie eben beim Setzen einer Größe (wie hier einer Spaltenbreite), die eigentlich eine Zahl sein sollte, zu Problemen kommen kann, wenn man nicht sehr genau aufpasst und diese eben von außen kommen lässt. Niemand vermutet, dass man damit Code ausführen kann. Daher sollte es auch nicht gehen.
      
      Zusätzlich hast du auch die drei subs
      
      Code: (dl )
      
      1 2 3
      
      sub const_length_L sub const_length_R sub const_length_C
      
      und dann werden solche Dinge getrieben wie $left = "const_length$align($width, ".$left;, was dann später geevalt wird. Ich halte das für extrem schlechten Stil.
      
      Ebenso übrigens in deinem Example das my $report = new Report::EasyReportGenerator(); - dieser indirekte Funktionsaufruf ist unschön und ich würde das besser als my $report = Report::EasyReportGenerator->new(); schreiben.
      - +5 replies
      - jpr65
        
        2013-04-19 08:01
        
        User since
        2013-04-18
        10 articles
        BenutzerIn
        
        2013-04-18T23:03:30 Raubtier
        Habe ich nicht verstanden. Was geht mit dem String, das mit einer sub nicht ginge?
        
        Andersrum: Ich benötige hier die sub, weil ich sonst nicht mehr auf die Daten zugreifen kann. Daher muss ich den String in eine anonyme sub umwandeln. Aber nur in diesem Fall.
        
        2013-04-18T23:03:30 Raubtier
        Sind es also Performancegründe? Sind die gebenchmarkt?
        
        Das Benchmarking habe ich vor. Man hat viel gehört, was langsam und schnell sein soll, aber das muss man immer austesten, wenn man es wirklich wissen will. Ich mache das aber nur in ausgesuchten Fällen oder falls Performance-Probleme auffallen.
        
        2013-04-18T23:03:30 Raubtier
        2013-04-18T23:03:30 jpr65
        Aber ob man nun einen String übergibt oder eine Sub-Ref startet, darin kann alles passieren. Dieser Part kann und darf nur vom Entwickler gefüllt werden, da sehe ich kein Problem.
        
        Mein Punkt war hier, dass es auch an unerwarteten Stellen, wie eben beim Setzen einer Größe (wie hier einer Spaltenbreite), die eigentlich eine Zahl sein sollte, zu Problemen kommen kann, wenn man nicht sehr genau aufpasst und diese eben von außen kommen lässt. Niemand vermutet, dass man damit Code ausführen kann. Daher sollte es auch nicht gehen.
        
        Zusätzlich hast du auch die drei subs
        
        Code: (dl )
        
        1 2 3
        
        sub const_length_L sub const_length_R sub const_length_C
        
        und dann werden solche Dinge getrieben wie $left = "const_length$align($width, ".$left;, was dann später geevalt wird. Ich halte das für extrem schlechten Stil.
        
        Ja, wenn ich nicht sowieso schon eval("string") durchführen würde, dann würde ich das auch nicht machen.
        
        2013-04-18T23:03:30 Raubtier
        Ebenso übrigens in deinem Example das my $report = new Report::EasyReportGenerator(); - dieser indirekte Funktionsaufruf ist unschön und ich würde das besser als my $report = Report::EasyReportGenerator->new(); schreiben.
        
        Interessant, ich wusste gar nicht, dass das möglich ist. Sieht besser aus.
        
        +4 replies
        
        Muffi
        
        2013-04-19 08:48
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Versteh ich das richtig, ein sub-aufruf soll langsamer sein als ein string-eval?
        Das glaub ich erst nach einem benchmark.
        1 + 1 = 10
        
        +3 replies
        
        jpr65
        
        2013-04-19 09:13
        
        User since
        2013-04-18
        10 articles
        BenutzerIn
        
        2013-04-19T06:48:16 Muffi
        Versteh ich das richtig, ein sub-aufruf soll langsamer sein als ein string-eval?
        Das glaub ich erst nach einem benchmark.
        
        Nein, der Sub-Aufruf ist natürlich (wahrscheinlich) langsamer. Aber es gibt hier zwei Subs: Die innere, die den Wert ermittelt, und die äussere, die den "dekorierten Wert", d.h. den Inhalt der Zelle, ermittelt. Die Wertermittlung klappt leider ohne Sub nicht. Habe ich jedenfalls nicht anders hinbekommen.
        
        +2 replies
        
        guest wer
        
        2013-04-19 09:59
        
        Du kannst herausfinden was übergeben wurde.
        
        Code (perl): (dl )
        
        ref($str)
        
        Mach darauf eine Fallunterscheidung. Und wenn du schon dabei bist, mach eine Warnung, wenn keine Coderef oder Zahl übergeben wurde. das hilft beim debuggen.
        Last edited: 2013-04-19 10:00:08 +0200 (CEST)
        
        jpr65
        
        2013-04-19 17:18
        
        User since
        2013-04-18
        10 articles
        BenutzerIn
        
        Das mache ich zum Teil schon. Weil es aber noch nicht überall umgesetzt ist, ist das Modul ja auch noch nicht auf CPAN...
- +3 replies
- jpr65
  
  2013-04-18 22:27
  
  User since
  2013-04-18
  10 articles
  BenutzerIn
  
  Habe gerade den neuesten Code inkl. Beispiel online gestellt!
  
  VG Ralf
  - +2 replies
  - Muffi
    
    2013-04-19 14:07
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Und die API steht soweit?
    Wie kommt man auf die Idee, bei einem Modul, das zum erzeugen der gefühlten millionen Setter und Getter ein externes Programm braucht das "~~simple~~" "easy" zu nennen?
    Last edited: 2013-04-19 14:37:33 +0200 (CEST)
    1 + 1 = 10
    - jpr65
      
      2013-04-19 17:22
      
      User since
      2013-04-18
      10 articles
      BenutzerIn
      
      "Easy to use". Das heißt ja nicht, dass es trivial ist...
      Und die Setter sind ab der nächsten Version nicht mehr trivial.
      Wenns fertig ist, ist alles auch irgendwie sinnvoll vorbelegt, wenn man einen Listentyp gewählt hat. Morgen gibts ein Update, mit dem man dann Texte und HTML generieren kann.
- +2 replies
- jpr65
  
  2013-04-19 17:25
  User since
  2013-04-18
  10 articles
  BenutzerIn
  Code: (dl )
  
  StoreExportColumn({... })
  
  . Die geschweiften Klammern sind überflüssig und werden noch entfernt: Die Methode wird ja nur einmal pro Spalte aufgerufen, da kann man auch alles auf den Stack werfen...
  
  VG Ralf
  Last edited: 2013-04-19 17:50:35 +0200 (CEST)
  - jpr65
    
    2013-04-19 17:51
    
    User since
    2013-04-18
    10 articles
    BenutzerIn
    
    Der erste Tarball mit HTML-Generierung ist jetzt online unter http://www.jupiter-programs.de/prj_public/erg/inde...
- jpr65
  
  2013-05-06 12:09
  
  User since
  2013-04-18
  10 articles
  BenutzerIn
  
  Easy Report Generator wurde umbenannt in Perl Open Report Framework und ist jetzt verfügbar, siehe
  
  http://porf-jpr1965.blogspot.de/

View all threads created 2013-04-18 08:30.