Readers: 6
|< 1 2 3 4 5 6 >| | 54 entries, 6 pages |
find( \&wanted, '.' );
1
2
3
4
5
#unbedingt kompletten Pfad angeben!
my $cgih = new CGI;
my $suchpfad = $cgih->param("pfad") || $ENV{HOME};
find( \&wanted, $suchpfad ); # im Homeverzeichnis suchen!
print $cgih->header();
push @files, $_ if /\.pdf$/;
push @files, "$File::Find::dir/$_" if /\.pdf$/;
<%LOOP LINKS %><li><a href="<%= HREF ESCAPE=URL %>"><%= TITLE ESCAPE=HTML %></a></li>
<%LOOP LINKS %><li><a href="file://localhost/<%= HREF ESCAPE=URL %>"><%= TITLE ESCAPE=HTML %></a></li>
<%LOOP LINKS %><li><a href="file://<%= HREF ESCAPE=URL %>"><%= TITLE ESCAPE=HTML %></a></li>
|< 1 2 3 4 5 6 >| | 54 entries, 6 pages |