Hi zusammen,ich muss in eine Reihe HTML Dateien einen bestimmten Code einfügen, die aber zu zahlreich und verteilt sind, um es manuell zu machen. Daher wollte ich einen Script schreiben, der durch alle Verzeichnisse geht und das für mich macht. Leider funktioniert es nur bedingt, er geht zwar durch den ersten Baum, aber nicht weiter. Ich hab z.B. im Verzeichnis "test" zwei Ordner, "test3" und "test4", die jeweils einen Unterordner "test2" haben. Das Script geht in test/test3/test2 und macht dort seine Arbeit, aber nicht mehr in test/test4...
Folgenden Code hab ich verwendet:
#!/usr/bin/perl -s
use Cwd; # module for finding the current working directory&ScanDirectory("N:/Scripts/test");
# This subroutine takes the name of a directory and recursively scans
# down the filesystem from that point looking for HTML files
sub ScanDirectory{
my ($workdir) = shift;
my ($startdir) = $workdir; # keep track of where we began
chdir($workdir) or die "Unable to enter dir $workdir:$!\n";
opendir(DIR, ".") or die "Unable to open $workdir:$!\n";
my @files = readdir(DIR) or die "Unable to read $workdir:$!\n";
closedir(DIR);
foreach my $file (@files){
if ((-d $file) and ($file ne ".") and ($file ne "..")) { # is this a directory?
&ScanDirectory(Cwd::realpath('.') . "/" . $file);
next;
}
if (($file =~ m/\.htm/) || ($file =~ m/\.php/)) {
$file2 = $file;
open (FILE, $file2);
local $/;
$content = <FILE>;
close FILE;
# Öffnet Template des einzufügenden Codes
open (CODE, "N:/Scripts/etrackercode.txt");
local $/;
$code = <CODE>;
close CODE;
@name = split(/\./, $file);
# Verzeichnisname
@path = split(/\//, Cwd::realpath('.'));
$code =~ "blablabla"; # Fügt variable Informationen ein
# Prüft, ob Code bereits in der Datei vorhanden ist
if ($content =~ m/etracker PARAMETER 2.4/) {
print "etracker Code schon vorhanden: ".Cwd::realpath('.')."\/$file2\n";
}
# Sonst: Füge Code in HTML ein und speichere neues HTML
else {
$content =~ s/\<\/body\>/$code\<\/body\>/g;
open (TEST, ">$file2");
print TEST $content;
close TEST;
}
} # End IF
chdir($startdir) or
die "Unable to change to dir $startdir:$!\n";
}
}
Kann mir jemand helfen, wo der Fehler ist?
Die Ausgabe des Ganzen ist:
etracker Code schon vorhanden: N:/Scripts/test/0198.htm
etracker Code schon vorhanden: N:/Scripts/test/0198.htm.bak
etracker Code schon vorhanden: N:/Scripts/test/0398.htm
etracker Code schon vorhanden: N:/Scripts/test/0498.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/0198.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/0198.htm.bak
etracker Code schon vorhanden: N:/Scripts/test/test3/0398.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/04982.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/test2/0198.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/test2/0398.htm
etracker Code schon vorhanden: N:/Scripts/test/test3/test2/0498.htm
TIA
SoWhy
Datum: 24.01.2008-09:26
Rekursives Bearbeiten von Dateien in Verzeichnissen
