Perl 5.10.0 und HTML Template (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]13692[/thread]

Perl 5.10.0 und HTML Template

Readers: 16

Articles: hide open all | hide show old branches

+7 replies
jan10001

2009-07-04 13:13
User since
2003-08-14
962 articles
BenutzerIn
Kann man HTML Template so anwenden oder nicht? Konkret geht es mir um die Zuweisung des Wertes in der Sub Routine. Mein aktueller Stand nach zig Versuchen mit my und our ist nein, aber wie geht es dann?
Code: (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 38 39 40 41

#!/usr/bin/perl use utf8; use strict; use DBI; use CGI; use Encode; use HTML::Template; #Templates einbinden my $template = HTML::Template->new(filename => 'spielplan.tmpl', encoding => ':encoding(UTF-8)'); #Werte einlesen my $daten = CGI::new(); my $view = $daten->param("view"); my $menue = $daten->param("menue"); my $submit = $daten->param("submit"); if ( $view eq "darsteller") { if ($menue eq "" and $submit eq "") { $template->param(DARSTELLER_MENUE => "1"); } } if ( $view eq "termin") { &termin; } print "Content-Type: text/html \n\n", $template->output; exit; sub termin { $template->param(DARSTELLER_TERMIN => "1"); }
- GwenDragon
  
  2009-07-04 13:34
  User since
  2005-01-17
  14939 articles
  Admin1
  Geht doch:
  
  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 38 39 40 41 42 43 44 45 46 47 48 49
  
  #!/usr/bin/perl $| = 1; use strict; use warnings; use utf8; use strict; use DBI; use CGI; use Encode; use HTML::Template; #Templates einbinden my $template = HTML::Template->new(filehandle => *DATA, encoding => ':encoding(UTF-8)'); #Werte einlesen my $daten = CGI::new(); my $view = $daten->param("view") || ''; my $menue = $daten->param("menue") || ''; my $submit = $daten->param("submit") || ''; if ( $view eq "darsteller") { if ($menue eq "" and $submit eq "") { $template->param(DARSTELLER_MENUE => "1"); } } if ( $view eq "termin") { &termin; } print "Content-Type: text/html \n\n", $template->output; exit; sub termin { $template->param(DARSTELLER_TERMIN => "1"); } __DATA__ Menü: <TMPL_VAR DARSTELLER_MENUE> Termin: <TMPL_VAR DARSTELLER_TERMIN>
  
  ~ t.pl view=darsteller Content-Type: text/html Men³: 1 Termin: ~ ~ t.pl" view=termin Content-Type: text/html Men³: Termin: 1 ~
  
  Quote
  Mein aktueller Stand nach zig Versuchen mit my und our ist nein, aber wie geht es dann?
  
  Oder wie willst du es genau?
  Was hast du denn probiert wo es nicht ging?
  
  Quote
  Konkret geht es mir um die Zuweisung des Wertes in der Sub Routine
  Die Zuweisung welches Wertes wohin?
  Du meinst die Subroutine termin?
  Welche Werte sollen denn überhaupt übergeben werden.
  
  Ich brauche bitte etwas mehr Info. Hellsehen kann ich nicht. ;)
  Erkläre doch einmal genauer, was du gern erreichen möchtest.
  Last edited: 2009-07-04 14:01:42 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- jan10001
  
  2009-07-04 15:42
  
  User since
  2003-08-14
  962 articles
  BenutzerIn
  
  Schreibe ich my $template ... wird in der Sub anscheinend kein Wert weitergegeben (ausgabe ist leer) und schreibe ich our $template dann geht es. Leider habe ich teilweise auch Script Ausgaben die es nie machen dürfte, daraufhin habe für die Diagnose im Hauptteil eine zusätzlich Ausgabe der übertragenen Werte eingebaut. Übertragen werden die Werte die ich anklicke, in der Sub Routine scheint das aber nicht zu zählen. Fazit: Mein Code läuft im Hauptteil auch nach zig Versuchen fehlerfrei, lager ich etwas in eine Sub Routine aus fangen die Probleme an.
  
  Ich bin mir nicht sicher wo mein Problem liegt Konfiguration Apache2 oder Perl 5.10.0 oder HTML Template oder weil 64bit?
  Last edited: 2009-07-04 15:43:23 +0200 (CEST)
  - pq
    
    2009-07-04 15:55
    User since
    2003-08-04
    12209 articles
    Admin1
    
    wenn die subroutine termin im selben script wie my $template steht, dann sollte es auch gefüllt sein.
    wenn die subroutine in einer anderen datei liegt, z.b. wenn du sie in ein modul ausgelagert hast, dann kann das natürlich nicht gehen.
    das sauberste wäre aber sowieso, wenn du $template einfach als parameter übergibst. dafür sind subroutinen schliesslich auch da, sonst könntest du dein skript auch mit vorsintflutlichen goto-anweisungen schreiben =)
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    my $template = ...; termin($template); # woanders sub termin { my ($template) = @_; ... }
    
    vielleicht einfach nochmal perlsub durchlesen.
    
    zwei weitere "kleinigkeiten":
    statt CGI::new() schreibt man CGI->new. dass es auch mit der ersten version geht, liegt daran, dass CGI.pm für den fall vorgesorgt hat; aber so sollte man konstruktoren nicht aufrufen.
    
    aufrufe wie &termin; stammen aus der steinzeit (perl 4). heute schreibt man termin();
    
    noch eine frage: wo ist die option 'encoding' für HTML::Template dokumentiert? ich sehe die weder in der doku noch im quelltext des moduls.
    Last edited: 2009-07-04 15:57:39 +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
  - +3 replies
  - jan10001
    
    2009-07-04 15:59
    
    User since
    2003-08-14
    962 articles
    BenutzerIn
    
    Ich habe mir gerade die Apache2 httpd.conf angeschaut und denke ich habe mein Problem gefunden. Hier steht ModPerl::Registry folglich wird das Script nur einmal kompiliert und im Cache gehalten, das erklärt einiges. Gibt es in Perl eine Anweisung die alle im Script definierten Werte automatisch löscht?
    - +2 replies
    - pq
      
      2009-07-04 16:06
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      wenn du mod_perl benutzt (solltest du immer dazusagen), dann solltest du dein skript sowieso anders schreiben. ich würde soviel wie möglich in ein modul auslagern.
      unter ModPerl::Registry wird der code des skripts von einer äusseren subroutine umklammert, und darin sollten der sauberkeit halber keine inneren subroutinen vorkommen. mod_perl nimmt also dein skript und schreibt im prinzip nur
      
      Code: (dl )
      
      1 2 3
      
      package scriptname...; sub handler { <DEIN SCRIPT> }
      
      drumherum.
      
      ansonsten ist hinzuzufügen, dass zwar das skript nur einmal kompiliert, aber der code doch jedesmal ausgeführt wird.
      
      ich würde empfehlen, wenn möglich "richtige" modperl handler zu benutzen, dann hast du mehr einfluss darauf, was in der handler-sub landet was aussen.
      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
      - jan10001
        
        2009-07-04 17:22
        
        User since
        2003-08-14
        962 articles
        BenutzerIn
        
        Ah, das macht einiges verständlich. Leider kann ich die handler Einträge nicht beeinflussen, da werde ich wohl ein Modul schreiben müssen.
        
        Zu deiner Frage zum Encoding Eintrag bei HTML Template, es gibt dafür einen Unicode Patch daher stammt der.
        
        Last edited: 2009-07-05 10:48:03 +0200 (CEST)

View all threads created 2009-07-04 13:13.