komplette Homepage: Links und Dateinamen auf Kleinschreibung umstellen.

komplette Homepage: Links und Dateinamen auf Kleinschreibung umstellen. (14 Beiträge, 266 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Ich muss für jemanden eine statische Homepage von Windows auf einen Linux-Server bei einem neuen Provider hochladen.
Die Webseite hat allerdings unterschiedliche Groß/Kleinschreibung.

zB heißt eine Datei Produkte.html und von dereinen HTML-Unterseite wird mit 'produkte.html' und andersmal mit 'Produkte.HTML' hingelinkt. Beim Windows-Server war das ohne Probleme.

Daher suche ich ein Tool, welches alle HTML-Dateien eines Ordners (rekursiv alle Unteordnder und Unterdateien) auf Kleinschreibung umbenennt, und alle Links in den HTML-Dateien auch auf Kleinschreibung mitumstellt.

Nur die Dateien umbenennen könnte ich mir selber skripten, aber den Rest?
Da gibt es ja sicher ein Tool für die Problematik Homepage von Windows auf Linux umstelln, oder??

LG, fleptin

ich würds lokal auf die platte geben... im salamander gibts ne option wo man alle markierten files auf kleinschreibung oder grossschreibung ändern kann und dann würd ichs aufn server laden

Geht mit Total Commander ebenfalls. Allerdings scheint das für ihn eh das kleinere Problem zu sein...

Hallo!

Also wenn du die Dateinamen alle umbenannt hast, dann kannst du die folgende Skripten verwenden, um dir die Arbeit zu erleichtern:

Zuerst replacer.pl:

#!/usr/bin/perl

#alle HTML-Dateien als Replacement verwenden:
open(DIR, "/usr/bin/find . -name \"*.html\" |" ) || die "$Verzeichnis: $!";
my @replacements = <DIR>;
close(DIR);

$index = 0;
foreach $key1 (@replacements){
  @array = split(/\//, $key1);
  $replacements[$index] = $array[$#array];
  $index++;
}

foreach (@ARGV){
  open(INFILE,$_);
  @inputbuf = <INFILE>;
  close(INFILE);

  open(OUTFILE,">$_");

  foreach $string1 (@inputbuf)  {
    foreach $key (@replacements){
      $string1 =~ s/($key)/\L\1/gi;
    }
    print OUTFILE $string1;
  }
  close(OUTFILE);
}

und dann noch ein drumherum gebasteltes Shell-Script:

replacerscript.sh:

#! /bin/sh
files=`find . -name "*.html"` #auf alle HTML-Dateien anwenden

for file in $files
do
perl replacer.pl $file;
done

Damit werden alle Dateinamen von .html-Dateien innerhalb von .html-Dateien auf Kleinschreibung gestutzt, egal ob im Link auftauchend oder nicht, aber vermutlich macht das für dich im Endergebnis eh keinen Unterschied. Die Replacements können vermutlich gleich alle Dateien unterhalb des Basisverzeichnis sein, dann reicht auch ein "find . |" im Perl-Script.

Jetzt bleibt nur zu hoffen, dass du auch eine bash und einen perl-Interpreter hast, aber auf einem Unix-Server ist ja Hoffnung gegeben.

Achja: Keine Haftung für unerwünschte Effekte! Benutzung auf eigene Gefahr

open(DIR, "/usr/bin/find . -name \"*.html\" |" ) || die "$Verzeichnis: $!";

werne', eckhard - die russen sin do!

Hoppla, da wird wohl noch als Überbleibsel "falsch gestorben"... Die Richtigstellung verbleibt dem geneigten Leser daher als Übungsaufgabe

Sei epsilon < 0...

auch das find is ein bissi.... naja, russisch halt.

opendir (DIR, "/path/to/.../") || die ($!);
my @replacements = grep { /\.html$/ } readdir (DIR);

is nur eine zeile mehr, dafuer wird's sofort plattform- und find-unabhaengig.

beim replacen hast du einen zwar eher unwahrscheinlichen, aber potentiellen supergau, und die perl 4 backtracking syntax is auch ein bisserl... aaaalt

$string1 =~ s/($key)/\L\1/gi;

besser:

$string1 =~ s/(\Q$key\E)/\L$1/gi;

wobei der /i modifier eventuell auch nicht ganz das ist was man sich wuenscht, aber darueber kann man in dem fall streiten.

Der Grund für "find" war halt, dass auch alle Unterverzeichnisse durchsucht werden, was meines Wissens bei opendir ja nicht mehr der Fall ist.

Und dafür, dass ich fast nie Perl verwende, hab ich mich imho wacker gehalten, Russen hin oder her

Sei epsilon < 0...

Und dafür, dass ich fast nie Perl verwende, hab ich mich imho wacker gehalten, Russen hin oder her

passt - moege putin mit dir sein.

So kann man sich dann wohl einen Russenpanzer in Perl vorstellen

Sei epsilon < 0...

genau - mit der find-und-regex-kanone schiesst auf harmlose HTML-spatzen, no, eventuell a bissi kollateralschaden, is a egal, und wenn dir das ding trotzdem mal wegbricht gehst zum naechsten ivan auf irgendeinem forum-schrottplatz, der schon unter breschnew gut sortiert war, und der sagt dir dann:

"towarisch! kenn ich, hab ich achse von perl4-lada, selbe modell, nimmst du und geht wieder. und, towarisch, machst du regelmaessig backup, kann dich nix schiefgehen!"

"towarisch! kenn ich, hab ich achse von perl4-lada, selbe modell, nimmst du und geht wieder. und, towarisch, machst du regelmaessig backup, kann dich nix schiefgehen!"

ROFLMAO

"Towarisch! Ohne Backup hast du größte Nervenkitzel wo gibt, brauchsta gar nix nehmen perl4-lada!"

Sei epsilon < 0...

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung