HTML Seite mit Links mittels Perl-Module erstellen - #101353 (Perl/CGI)

rooky

2007-10-25 23:15

User since
2007-10-25
38 Artikel
BenutzerIn
[default_avatar]

Hallo Gwen und danke für die schnelle Antort. Also nach den Veränderungen wie folgt:

Code (perl): (dl )

#!/usr/bin/perl
 
use strict;
use warnings;
use HTML::Template::Compiled; # musst du wahrscheinlich noch installieren
use File::Find;
use CGI; 
my @files;
find( \&wanted, '.' );
my $cgih = new CGI;
print $cgih->header();
 
my $content = do{ local $/; <DATA> };
my $tmpl = HTML::Template::Compiled->new( scalarref => \$content );
my @links = map{ {HREF => $_, TITLE => $_ } }@files;
$tmpl->param( LINKS => \@links );
print $tmpl->output;

sub wanted{
    push @files, $_ if /\.pdf$/;
 }
 
 
 __DATA__
 <html>
  <body>
     <ul>
     <%LOOP LINKS %><li><a href="<%= HREF ESCAPE=URL %>"><%= TITLE ESCAPE=HTML %></a></li>    
     <%/LOOP %>
     </ul>
   </body>
 </html>

bekomme ich im Brwoser mit

Code: (dl )

http://localhost/~user/skript.pl

die Meldung, dass das Objekt nicht gefunden wurde. Ich weiss echt5 nicht wo das Problem liegt.

Danke im Voraus