Hallo, Am Fri, 08 Nov 2013, David Haller schrieb

Quick & dirty:

perl -w -p -i.orig -e ' BEGIN { our $i=0; our $fmt = q{<navPoint id="navPoint-%d" playOrder="%d">}; } if(/

Leider setzt das alle navPoint und playOrder auf 0 :-( Beste Grüße Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org

Hallo, Am Fri, 08 Nov 2013, David Haller schrieb

Seltsam. Hier klappt das im Test einwandfrei mit perl 5.14 unter oS 12.1 und 5.16 unter oS 12.3.

Hast du sicher du das '$i++;' drin hast?

Absolut sicher. Zum einen habe ich es per Copy and Paste in der Kommandozeile und zum anderen ebenfalls per Copy and Paste in eine ausführbare Datei versucht. Vor allem aber habe ich es eben noch einmal überprüft :-( Allerdings ist die Perl-Version mit 5.10.0 schon ziemlich betagt. Beste Grüße Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org

Hallo David, Am Sat, 09 Nov 2013, David Haller schrieb

Hmmm. Probier's mal mit 'my $i = 0;' statt mit 'our' im BEGIN.

Es ist mir ja sehr peinlich, aber in einem Anfall geistiger Umnachtung habe ich beim Copy and Paste beide Male nicht sauber gearbeitet und eine Zeile doppelt dringehabt. Und ein testweise hinzugefügtes -c hat es leider auch nicht an den Tag gebracht. Auf gut Deutsch, dein Code funktioniert natürlich auch auf meinem PC. Vielen Dank für deine Hilfe und besonders auch deine Geduld Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org

Am 8. November 2013 23:06 schrieb Heinz W. Pahlke :

Am Fri, 08 Nov 2013, Martin Schröder schrieb

...

Das ist XML. Dafür gibt's XSLT. :-)

XSLT soll aber nicht die XML-Datei verändern, sondern zielt auf die Ausgabe.

<quote src="https://en.wikipedia.org/wiki/XSLT"> XSLT (Extensible Stylesheet Language Transformations) is a language for transforming XML documents into other XML documents, </quote> BTDT.

Nach den Epub-Spezifikationen ist sie aber invalide und lässt sich deshalb nicht weiterverarbeiten.

? AFAIK ist ePuB auch XHTML, also gültiges XML. Gruß Martin -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org

Hallo Wolfgang, Am Sat, 09 Nov 2013, hamann.w@t-online.de schrieb

ich w?rde hier zu Perl tendieren

$lfdnr = 1; while(<>) { if(m#<navPoint id="navPoint-\d+" playOrder="\d+">#) { print "\n"; $lfdnr++; } else { print; } }

Wenn das funktioniert (also perl Datei | less ein sinnvolles Ergebnis anzeigt), gibt es dann noch die M?glichkeit, ?ber Aufrufparameter alle Dateien zu bearbeiten und dabei eine Originalname.bak anzulegen

Diese Variante werde ich mir auch noch mal anschauen. Vielen Dank Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org

Hallo, Am Mon, 11 Nov 2013, Christian Brabandt schrieb

Hier noch die obligatorische Vim Lösung: 1) Startwert festlegen: :let g:MyNav=1 2) Suchen und ersetzen: g/^" durch die neue Variable g:MyNav ersetze und diese hinterher noch inkrementiere.

Lösungen innerhalb des vim finde ich natürlich ;-) immer am besten, weil ich manchmal in die Verlegenheit komme, unter Windows arbeiten zu müssen, ich dort aber kein perl zur Verfügung habe. Vielen Dank Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org