Opened by Gast at 2009-02-18 13:54
vielen Dank auch von dieser Stelle -- hatte ein ähnliches Probl. zu lösen (ein eigentlich alltägliches ..) - mehrere Dutzend HTML Seiten einfach nach String durchsuchen & ersetzen.
Tie::File hatte das Debian glücklicherweise schon mitgebracht, auf dem ich gearbeitet hatte. Ohne mich mit TIE näher zu beschäftigen (wir arbeiten hier sonst ausschl. mit PHP) hatte ich das Probl. in Minuten gelöst :) man braucht sowas immer wieder. vielen Dank
Tie::File hatte das Debian glücklicherweise schon mitgebracht, auf dem ich gearbeitet hatte. Ohne mich mit TIE näher zu beschäftigen (wir arbeiten hier sonst ausschl. mit PHP) hatte ich das Probl. in Minuten gelöst :) man braucht sowas immer wieder. vielen Dank
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl -w use Tie::File; # die HTML Seiten my @files = ("1.html", "2.html", ...); $vor = "string zu suchen"; $nach = "string zu ersetzen"; for my $file (@files) { tie my @lines, 'Tie::File', $file or die $!; for my $line ( @lines ) { $line =~ s/$vor/$nach/g; } untie @lines; print "datei".$file."fertig \n"; }