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

renee

2007-10-25 21:23

User since
2003-08-04
14371 Artikel
ModeratorIn

ungetestet:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use HTML::Template::Compiled; # musst du wahrscheinlich noch installieren
use File::Find;

my @files;
find( \&wanted, '.' );

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>

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/