Brauche ich zum Datenaustausch zwischen HTML-Seiten einen Webserver? (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]16092[/thread]

Brauche ich zum Datenaustausch zwischen HTML-Seiten einen Webserver? [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+4 replies

Kuerbis

2011-03-20 11:49

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

<html>
<body>
<p>
<a href="table.html">Table-Auswahl</a>
</p>
</body>
</html>

Wenn ich mit dieser Seite die nächste mit HTML::Template erzeugte Seite aufrufen möchte - brauche ich dazu einen Webserver?

Code (perl): (dl )

use DBI;
use HTML::Template;

my $dbh = DBI->connect( "DBI:SQLite:sqlite_db" );
my $sth = $dbh->prepare( "SELECT name FROM sqlite_master ORDER BY name" );
$sth->execute();
my @tbls;
while ( ( my $row ) = $sth->fetchrow_array ) {
        push @tbls, $row;
}
$dbh->disconnect;

# table.html
my $html = qq{
<html>
<body>
<form name="input" action="column.html" method="get"> # nächste Seite aufrufen
<TMPL_LOOP TABLES>
<input type="radio" name="table" value="<TMPL_VAR TABLE>" /> <TMPL_VAR TABLE><br />
</TMPL_LOOP>
<br />
<input type="submit" value="Submit" />
</form> 
</body>
</html>
};

my $tmpl = HTML::Template->new( scalarref => \$html );
my @tables;
for my $t ( @tbls ) { push @tables, { TABLE => $t } }
$tmpl->param( TABLES => \@tables );
open my $fh, '>', 'tables.html' or die $!;
$tmpl->output( print_to => $fh );
close $fh;

Code (perl): (dl )

use DBI;
use HTML::Template;

my $dbh = DBI->connect( "DBI:SQLite:sqlite_db" );
my $table = 'my_sqlite_table'; # vorher ausgewählter table
my $sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
my @col = @{$sth->{NAME}};
$dbh->disconnect;

# column.html
my $html = qq{<html>
<body>
<form name="input" action="where.html" method="get">
<TMPL_LOOP COLUMNS>
<input type="checkbox" name="column" value="<TMPL_VAR COLUMN>" /> <TMPL_VAR COLUMN><br />
</TMPL_LOOP>
<br />
<input type="submit" value="Submit" />
</form> 
</body>
</html>};

my $tmpl = HTML::Template->new( scalarref => \$html );
my @columns;
for my $c ( @col ) { push @columns, { COLUMN => $c } }
$tmpl->param( COLUMNS => \@columns );
open my $fh, '>', 'columns.html' or die $!;
$tmpl->output( print_to => $fh );
close $fh;

Last edited: 2011-03-20 12:41:12 +0100 (CET)

+3 replies
bianca

2011-03-20 12:58

User since
2009-09-13
7016 Artikel
BenutzerIn

2011-03-20T10:49:34 Kuerbis
Wenn ich mit dieser Seite die nächste mit HTML::Template erzeugte Seite aufrufen möchte - brauche ich dazu einen Webserver?

Nö. Aber wer oder was soll das nächste Script starten, wenn es nicht der Webserver tut? Im Normalfall startet man Scripte auf der Konsole, zeigesteuert z.B. via CRON, per PIPE, über Socket oder per Webserver.
10 print "Hallo"
20 goto 10
- +2 replies
- Kuerbis
  
  2011-03-20 16:28
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Wie wurde das bei den Web-Administration-Tools von cups und samba gemacht?
  - GwenDragon
    
    2011-03-20 16:43
    
    User since
    2005-01-17
    14784 Artikel
    Admin1
    
    Sie stellen einen eigenen Server zur Administration zur Verfügung.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-03-20 11:49.