Thread CGI und Inhalte wie bei PHP austauschen? (13 answers)
Opened by demonking at 2011-06-08 20:49

topeg
 2011-06-08 22:53
#149528 #149528
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
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>&nbsp;</td>
        <td>TOP</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>LEFT</td>
        <td>$inside</td>
        <td>RIGHT</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>BOTTOM</td>
        <td>&nbsp;</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.

View full thread CGI und Inhalte wie bei PHP austauschen?