Thread Textzeilen einer XML-Datei ersetzen
(17 answers)
Opened by pomaranc at 2011-05-11 20:02 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #!/usr/bin/perl use strict; use warnings; my $file=shift(@ARGV) or die("NO FILE!\n"); my $bak="$file.bak"; rename($file,$bak) or die("ERROR REMANE $file => $bak ($!)\n"); open(my $fhin, '<', $bak) or die("ERROR OPEN $bak ($!)\n"); open(my $fhout, '>', $file) or die("ERROR OPEN $file ($!)\n"); while(my $line=<$fhin>) { $line=~s{(<ChapterFlagEnabled>1</ChapterFlagEnabled>)}{$1\n <ChapterSegmentUID format="hex">\n bcffc7fe80230cf7beb6e08bc38ca5d6\n </ChapterSegmentUID>}g; print $fhout $line; } close($fhout); close($fhin); unlink($bak); modedit Editiert von GwenDragon: Tippfehler in Programm verbessert Last edited: 2011-05-12 17:56:46 +0200 (CEST) |