CGI und Inhalte wie bei PHP austauschen? (gelöst) (Perl/CGI) - Perl-Community.de

Start · Board · Webprogrammierung mit Perl · Perl/CGI

2025-07-03 16:09:50
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
38 Gäste

[thread]16400[/thread]

submit to reddit

CGI und Inhalte wie bei PHP austauschen? [gelöst]

[gelöst]

Tags: CGI Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

Teilbaum:
Begriff Boxmodell? (6 Artikel) 2011-06-10 14:06

+16 replies
demonking

2011-06-08 20:49

User since
2011-05-25
13 Artikel
BenutzerIn

Guten Abend Perl-Community,

also ich wollte mal fragen ob ein Boxmodell in Perl möglich ist.
Hatt es früher in verbindung mit html/php benutzt und wollte dies oder etwas ähnliches das ginge umsetzen.

es geht darum eine Homepage in 2 Teile zu teilen.

Die eine hat das Navi(linke spalte) und rechts den Inhalt.

Es soll folgend ablaufen:

Ich drücke im linken Menü einen Button,durch den Button wird die Url verändert und ein GET Variable drangehängt.
Wenn die GET eine bestimmten Wert hat, wird je nach Wert ein Modul mit bestimmten Parametern aufgerufen (so wie auf der Konsole perlprogram.pl -h).
geht das irgendwie, das ich je nachdem was GET hat den Inhalt der rechten Spalte ändere?

greetz Demonking

modedit Editiert von GwenDragon: Titel geändert
Last edited: 2011-06-10 10:48:39 +0200 (CEST)
- +8 replies
- pq
  
  2011-06-08 21:32
  User since
  2003-08-04
  12209 Artikel
  Admin1
  also wenn du verhindern willst, dass die ganze seite neu geladen wird, musst du entweder frames verwenden, dann kannst du dem formular im linken frame ein "target" geben mit dem namen des rechten frames, oder du benutzt ajax, das setzt dann aber bei allen javascript voraus. wenn du eine alternative ohne javascript anbietest, ist das aber ok.
  
  GET- und POST-parameter liest man in perl mit dem CGI-modul aus.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use CGI; use Mein::Modul; my $cgi = CGI->new; my $param = $cgi->param('key') || 'default'; if ($param eq 'gewuenschter wert') { Main::Modul::funktion(...); }
  
  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
  - +7 replies
  - demonking
    
    2011-06-08 21:41
    
    User since
    2011-05-25
    13 Artikel
    BenutzerIn
    
    Hallo pg,
    
    danke für die schnelle Antwort.
    
    geht das irgendwie das man ein eigenes PerlModul in eine Tabellenspalte laden kann?
    Das z.b. in der rechten Spalte ein Modul laden kann.
    Würde dort dann die GET abfragen und je nachdem die Funktion aufrufen.
    - topeg
      
      2011-06-08 22:53
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Du hängst noch zu sehr in PHP-Formen.
      Man kann mit Perl alles was man auch mit PHP machen kann. Es sieht nur ein klein wenig anders aus:
      
      main.pl :
      
      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
      
      use strict; use warnings; use CGI; # selbst geschrieben use frames::inside; my $cgi = CGI->new(); my $inside=''; $inside=frames::inside->render($cgi) if($cgi->param('inside')); print $cgi->header(); print <<HTML; <html> <head><title>TEST</title></head> <body> <table> <tr> <td> </td> <td>TOP</td> <td> </td> </tr> <tr> <td>LEFT</td> <td>$inside</td> <td>RIGHT</td> </tr> <tr> <td> </td> <td>BOTTOM</td> <td> </td> </tr> </table> </body> </html> HTML
      
      frames/inside.pm :
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      package frames::inside; use strict; use warnings; sub render { my $class=shift; my $cgi=shift; my $aktion=$cgi->param('inside'); my $text='MIDDLE'; $text='<b>Hier ist der Text!</b>' if($aktion && $aktion eq 'text'); return $text; }
      
      Das ist nicht getestet, es kann Tippfehler enthalten.
    - pq
      
      2011-06-08 22:55
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      man kann ein perl-modul nicht in die tabelle einer html-seite laden. aber wenn ich dich richtig verstehe, wie du das meinst, habe ich das oben schon beschrieben.
      man ruft mittels eines buttons ein cgi-skript auf, und in diesem fragt man wie beschrieben den parameter ab und ruft abhängig davon die gewünschte funktion aus einem modul auf.
      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
    - +4 replies
    - GwenDragon
      
      2011-06-09 10:05
      
      User since
      2005-01-17
      14848 Artikel
      Admin1
      
      PHP wird ja oft als nix anders wie eine große Templatemaschine für HTML verwendet.
      Klappt mit Perl auch.
      
      Du verwendest HTML::Template oder HTML::Template::Compiled oder EmbPerl oder HTML::Mason um Inhalte mit Perl dynamisch zu ändern.
      
      Ungetestetes Beispiel (HTML::Template::Compiled):
      
      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
      
      use strict; use warnings; use HTML::Template::Compiled; use CGI; my $cgi = CGI->new(); my $time = localtime(time); my $template = <<HTML; <html> <body> <table> <tr> <td>Blah ist $time</td> <td><?if k ?>Key ist <?= k ?><?/if k ?></td> <td>Blubb</td> </tr> </table> </body> </html> HTML my $htc = HTML::Template::Compiled->new( tagstyle => [qw/+php/], scalarref => \$template, cache => 0, ); $htc->param( k => $cgi->param('key'), ); print $htc->output;
      
      Editiert von GwenDragon: Code getestet + getauscht
      Last edited: 2011-06-09 10:35:01 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - pq
        
        2011-06-09 10:28
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        nur eine kleine anmerkung zu diesem template-beispiel:
        scalarrefs sollten in HTML::Template::Compiled nicht gecached werden, weil sie sich typischerweise ständig ändern, wie auch hier ($time). entweder die option 'cache' auf 0 setzen oder $time auch über einen template-parameter übergeben statt interpoliert; und das template dann am besten in eine datei auslagern.
        musste ich als autorin nur mal anmerken =)
        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
        
        +2 replies
        
        GwenDragon
        
        2011-06-09 10:40
        
        User since
        2005-01-17
        14848 Artikel
        Admin1
        
        Ja, sinnvollerweise sollte das Template extern gespeichert werden (Trennung Code und Inhalt).
        Das Abschalten des Cache habe ichdoch glatt vergessen. :(
        
        Ich wollte ja nur zeigen, dass in Perl so manches auch wie PHP geht, da ist ja auch alles im Quellcode.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        pq
        
        2011-06-09 10:46
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ich hab überlegt, ob ich den cache bei scalarrefs standardmässig abschalten sollte. wer es braucht, kann es ja anschalten.
        dann müsste ich nicht mehr davor warnen, wenn man die option weglässt. es ist eigentlich nur "gefährlich", wenn man unbewusst in einer persistenten umgebung arbeitet und bei jedem aufruf ein neues template in den RAM kommt, weil sich der string jedesmal ändert. und die meisten, die scalarref benutzen, weil sie grad erst ins templating einsteigen, werden darauf nicht aufpassen.
        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
- GwenDragon
  
  2011-06-09 10:47
  
  Subtree with 7 replies: Begriff Boxmodell?
  
  User since
  2005-01-17
  14848 Artikel
  Admin1
  
  So ganz verstehe ich den Begriff Boxmodell nicht. Der kommt eigentlich aus dem Bereich Stylesheets (CSS).
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-06-08 20:49.