hallo zusammen und hier ist mein Problem:Ich habe einen Verzeichnisbaum(z.B. Fahzeug, Flugzeug, Haus etc.) den ich ducrlaufen möchte um nach PDF-Dateien zu suchen, die eine bestimmte Muster(*-*.pdf z.B. Fahrzeug-Auto-Diesel.pdf) entahlten. nachdem ich die Dateien gefunden habe soll das Skript neue Verzeichnisse erzeugen, die den Namen der Unterverzeichnisse im Baum beibehalten, in unserem Beispiel heißen die neue Verzeichnisse also Fahzeug, Flugzeug, Haus in denen die zugehörigen PDF-dateien mit der Muster enthaltend sind und alle andere Dateien weglässt. Anschließend soll das Skript die neu erzeugten Verzeichnissen auf einer HTML Seite laden, die als Linksliste dargestellt wird sodass wenn ich auf z.B. Fahrzeug klicke alle zugehörige PDF-Dateien ansehen kann.
Das Teil des Skriptes zum durchlaufen des Verzeichnisbaum habe ich mit find2perl erstellt:
#! /usr/bin/perl -w
02: eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
03: if 0; #$running_under_some_shell
04:
05: use strict;
06: use File::Find ();
07:
08: # Set the variable $File::Find::dont_use_nlink if you're using AFS,
09: # since AFS cheats.
10:
11: # for the convenience of &wanted calls, including -eval statements:
12: use vars qw/*name *dir *prune/;
13: *name = *File::Find::name;
14: *dir = *File::Find::dir;
15: *prune = *File::Find::prune;
16:
17: sub wanted;
18:
19:
20:
21: # Traverse desired filesystems
22: File::Find::find({wanted => \&wanted}, '/home/james/gbt');
23: exit;
24:
25:
26: sub wanted {
27: /^.*-.*\.pdf\z/s &&
28: print("$name\n");
29: }
Ab da bin ich überfordert.
P.S.: Ich bin blutiger Anfänger und brauche deswegen eine ausführliche Hilfe.
Vielen Dank im voraus
Datum: 12.10.2007-21:57
Verzeichnisbaum durchsuchen und Ergebnisse auf HTML Seite legen
