Larry Ratlos:
Hochverfügbarkeit mit Solaris?

Folgendes Kommando hätte Larry die Blamage vor seinem Chef in letzter Sekunde erspart:
perl -00pi -e ‘s!(]*>)!lc($1)!gsie;rename $ARGV,lc($ARGV)’*

Was passiert hier?

Der Stern (*) am Ende des Kommandos sorgt dafür, dass unser Programm eine Liste der Dateien im aktuellen Verzeichnis als Parameter übergeben bekommt. Die Option "-p" wiederum besagt, dass jeder dieser Parameter eine Datei darstellt und erzeugt implizit eine Schleife der folgenden Art um das komplette Programm:

foreach $ARGV (@ARGV) {
  open(FILEHANDLE,$ARGV);
    while(<FILEHANDLE>) {
      # Programmcode
      print;
    }
  close(FILEHANDLE);
}

Die Option "-i" sorgt nun dafür, dass der Inhalt der Dateien nicht an die Standardausgabe übergeben wird, sondern die gerade bearbeitete Datei "on-the-fly" editiert wird.

Der eigentliche Programmcode folgt nach dem Schalter "-e" und besteht aus zwei Anweisungen:

1. Alle HTML-Links werden mit dem Substitute-Kommando in Kleinschreibung umgewandelt:

s!(]*>)!lc($1)!gsie;

Die vier Schalter (gsie) bewirken folgendes:

g: *Alle* Vorkommnisse des Suchmusters werden ersetzt
s: Zeilenumbrüche im zu durchsuchenden String werden ignoriert
i: Groß-/Kleinschreibung wird ignoriert
e: Die Ersetzung ist keine Zeichenkette, sondern die Ausgabe eines Kommandos

2. Der Dateiname wird ebenfalls in Kleinschreibung gesetzt:

rename $ARGV, lc($ARGV);

Zu guter Letzt bewirkt der Schalter "-00", dass Dateien nicht zeilenweise eingelesen werden, sondern "in einem Rutsch". Das ist notwendig, falls sich die Links über mehrere Zeilen erstrecken.

Lösungen der Leser:

1. Albrecht Bischoff:
Die Lösung von Herrn Bischoff geht in die gleiche Richtung. Diese Variante funktioniert sogar auch dann noch, falls sich im fraglichen Verzeichnis neben den HTML-Seiten noch weitere Dateien befinden (Bilder, etc.). Zu beachten ist lediglich, dass mit dem regulären Ausdruck "\w+.html?" auch Textstellen geändert werden, bei denen es sich nicht notwendigerweise um Links handeln muss.

perl -pi -e ‘s!\w+.html?!lc($&)!gie;rename $ARGV, lc($ARGV)’
*.[Hh][Tt][Mm][Ll] *.[Hh][Tt][Mm]

2. Andreas Mayer:
Einen komplett anderen Ansatz verfolgt Herr Mayer mit seiner Lösung. Hier werden nicht einfach alle Links und Dateinamen klein- oder großgeschrieben sondern die Links an die existierenden Dateinamen angepasst:

a=‘ls|egrep -i "*.html"’;for i in $a;
do perl -pi -e ‘s/’$i’/’$i’/gi’ $a;
done

Lediglich der reguläre Ausdruck ist nicht ganz korrekt, sondern sollte lauten: "\.html?$". Andernfalls würden auch Dateien wie "meinhtmlbild.jpg" bearbeitet.

Unter der Voraussetzung, dass sich in dem Verzeichnis ausschließlich HTML Seiten befinden, lässt sich diese Lösung sogar auf 50 Zeichen reduzieren:

for i in ‘ls’; do perl -pi -e s/$i/$i/i ‘ls’; done

Allerdings ist zu beachten, dass bei dieser Variante sehr häufig Dateien geöffnet und geschlossen werden (n² Zugriffe) und auch der Perl-Interpreter bei jedem Schleifendurchlauf neu gestartet werden muss. Bei 100 zu bearbeitenden HTML Seiten ist die zuerst genannte Lösung bereits mehr als 100 mal so schnell ... und die Geschwindigkeit war es ja, die zählt! ;-)