Hello, On Wed, 02 May 2007, Michael Beuten wrote:
Ich habe auch noch einen...
====== use strict;
my $file; my $temp;
# Filename des HTML-Files $file = shift();
# File als Ganzes in String lesen open (FH,"<$file"); { local $/; $temp = <FH>; } close (FH);
# Dateinamen in lowercase konvertieren $temp =~ s/(
Das geht auch einfacher. perl -pi.bak -e 's/(]*src=)"([^"]+)"/$1"\L$2"/g' *.html Und wenn man wissen will was das macht: perl -MO=Deparse -pi.bak -e '...' HTH, -dnh -- Wenn schon, dann höchstens Homo Sapiens Sapiens XEmacensis, die Entwicklungs- linie, die im Laufe der Evolution sieben Finger an jeder Hand entwickelt hat. Und das alles nur um alle Tastenkürzel zur Bedienung von XEmacs nutzen zu können. -- T. Templin über mich --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-programming-de+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-programming-de+help@opensuse.org