You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
553 B
Perl
25 lines
553 B
Perl
10 years ago
|
#!/usr/bin/perl -w
|
||
|
|
||
|
use File::Find;
|
||
|
use Encode;
|
||
|
|
||
|
find(\&filehandler, "de");
|
||
|
|
||
|
sub filehandler {
|
||
|
if(-f $_ and $_ !~ /links\.list/) { #damit keine link.list dateien zerstört werden
|
||
|
open(BLUB, "$_");
|
||
|
@lines = <BLUB>;
|
||
|
close(BLUB);
|
||
|
|
||
|
#Lazy...
|
||
|
$lines[$#lines] =~ s/<div id=\"catlinks\">.*//;
|
||
|
|
||
|
#änderungen speichern
|
||
|
open(FILE, ">$_") or print "can't write to $File::Find::name\n";
|
||
|
print FILE @lines;
|
||
|
close(FILE);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#DONE: richtiges umbenennen der files - siehe mediawiki/trunk/phase3/maintenance/dumpHTML.inc -> function getFriendlyName
|