nicht angemeldet
guten Morgen,
$text = 'irgendein irgenwie eingelesener Text';
$text =~ s/(\r)?\n>/>\n/g;#alle > in einer neuen Zeile nach oben schieben
$qwer = 0;
while ($qwer < 30)#hab keine Ahnung warum das noetig ist, ich bin auch zu muede um "wirklich" nachzudenken, auf jedenfall werden Tags in mehreren Linien sonst nur zum Teil (Die erste neue Linie) wieder in ein Linie gebracht
{
$text =~ s/(<[^>]*)\r?\n/$1 /g; #Tags in mehreren Linien in eine Linie bringen
$qwer++;
}
$text =~ s/></>\n\r</g;#hintereinnanderfolgende Tags in mehrere Zelien bringen
$text =~ s/(<.*>)/lc($1)/eg;# Tags kleinschreiben
print $text;#beliebeige Ausgabeform
Das ist jetzt nur sehr schnell mal getippt, und nicht sonderlich verständlich
Doch, ist ganz gut verständlich. Hat jedenfalls methodisch durchaus Sinn, danke.
Ich werds mir heut mal anschauen uns umzusetzen versuchen.
Die beste Lösung wäre allerdings natürlich ein neues XSLT Script/Programm/wasauchimmer, wie heißt das jetzt korrekt? Ich denke allerdings das sowas nicht gerade vorhast ;-).
Naja, wenn mir sonst nix andres übrigbleiben würde ... Ich habe bloß mit XML bisher nicht so sehr viel Erfahrungen. HTML mit Hilfe von XML zu generieren, kriege ich hin, aber HTML mit Hilfe von XML bzw. XSLT "umzuwandeln" habe ich bisher nicht versucht. Aber man kann ja auch eine Kombination von XML und PERL probieren
Grüße aus Berlin
Christoph S.