Thread HTML Seite mit Links mittels Perl-Module erstellen
(53 answers)
Opened by rooky at 2007-10-25 01:56
Hallo zusammen eine Frage: hier ist das Skript womit ich die Verzeichnisse duchsuche:
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 #! /usr/bin/perl -w eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; #$running_under_some_shell use strict; use File::Find (); # Set the variable $File::Find::dont_use_nlink if you're using AFS, # since AFS cheats. # for the convenience of &wanted calls, including -eval statements: use vars qw/*name *dir *prune/; *name = *File::Find::name; *dir = *File::Find::dir; *prune = *File::Find::prune; sub wanted; # Traverse desired filesystems File::Find::find({wanted => \&wanted}, '.'); exit; sub wanted { /^.*\.pdf\z/s && print("$name\n"); } wie rufe ich dieses Skript im Skript(oben) HTML::Templates::Compiled damit Code (perl): (dl
)
my @files = qw(file1 file2); Danke im Voraus |