WCM Forum - Perl: HTML Dateien bearbeiten

So, versprochen ist versprochen. Aber da ich von Natur aus so faul bin, hab ich nur ein Skript aus dem Internet kopiert und dieses angepasst.

Quelle Skript: http://www.perl-archiv.de/perl/forum...d_013605.shtml

Code:

#!/usr/bin/perl -w



use strict;



my @dir =  ('D:/Webserver/WebServer-Daten/Chili-it.at/temp/');



my $ext = '.html'; 

my $nosearch = 'c:/System Volume Information;c:/Recycler;c:/Temp';

my $dir = '';



for $dir (@dir){

        if (opendir(DIR, $dir)) {

                for (readdir(DIR)) {

                        next if (/^\./) || ($nosearch =~ /\Q$_\E/i);

                        push @dir ,"$dir$_/" if (-d "$dir$_");

                        &file($dir,$_) if (-f "$dir$_") && $ext eq  (/.*(\..*)/)[0];

                }

                closedir DIR;

        } 

        else {

                print "Fehler in $dir  $!";

        }

}



print "Fertig!\n";



sub file {

        my ($path , $file) = @_;

        print "$path/$file\n";



        open(EIN, "<".$path.$file)      or die "Kann html-Datei nicht oeffnen.\n";

        open(AUS, ">".$path."n_".$file) or die "Kann Ausgabedatei nicht oeffnen.\n";



        while(<EIN> ) {

                chomp($_);

                next if ($_ =~ /\<META name\=generator .+\>/);

                print AUS $_, "\n";

        }

        close(AUS);

        close(EIN);

}

Grüße,
Hussl