Re: Re: [opensuse-programming-de] Großkleinschreibung per Skript in html Dateien umwandeln

Am Mittwoch, den 02.05.2007, 21:24 +0200 schrieb Sven Hoexter:
> On Wed, May 02, 2007 at 09:11:18PM +0200, Sven Hoexter wrote:
> > On Wed, May 02, 2007 at 08:48:19PM +0200, Sven Hoexter wrote:
> > > On Tue, May 01, 2007 at 11:50:52PM +0200, Malte Gell wrote:
> > > > Hallo,
> > > > 
> > > > ich suche ein nützliches Skript, das der ein oder andere vielleicht 
> > > > schon zur Hand hat. Habe hier Webseiten, die auf einem Windows 
> > > > entwickelt wurden und demnach sind im Code etliche Werte a la 
> > > > <img src="images/InformationIcon.GIF>
> > > > 
> > > > Dieses Gif wird dann unter Linux nicht gefunden, weil der Dateiname des 
> > > > Gifs lower case ist... Ich will also alle *.gif *.jpg *.png u.ä. 
> > > > Einträge in den html-Datein lower case machen, die entsprechenden 
> > > > verlinkten Dateien sind schon alle lower case.
> > > > 
> > > > Hat jemand ein Skript, das ähnliches tut und das ich evt. modifizieren 
> > > > könnte?
> > > 
> > > echo "BlaH BluB"|tr [:upper:] [:lower:]
> > > 
> > > Mal so als meine erste Idee zum Thema.
> > Aeh ok ich gebe zu das meine erste Idee dazu nicht ganz so clever ist.
> > Ich haette da drum rum jetzt immer auf Zeilen gematcht die mit
> > <img starten. Dass das aber nur bei meinem selbstgeschrieben html
> > geschreibsel hin haut wo sowas eine eigene Zeile bekommt ist mir jetzt
> > auch irgendwie klar geworden. Ok spaeter dann ein naechster Versuch dazu.
> > Ausserdem versaut es einem natuerlich die Gross und Klein schreibung im
> > alt="" des Image tags.
> 
> Weil es so schoen ist noch ein Versuch.
> 
> echo "<p>Text der bleiben soll<img src=\"/Gross/und/klein/Geschrieben.png\">Das ist GROSS.</p>"|sed -e 's/<img src=\".*\">/\L&/g'
> 
> Da muss man aber ggf. noch an dem img pattern feilen.
> 
> Sven

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/(<img.*src=\")(.*)(\")/$1\L$2\E$3/g;
print $temp;


Gruß,
Michael


---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]