Ist kein awk / sed - Konstrukt sondern mal wieder was PERLiges aber den Job tuts allemal.
Code:
#!/usr/bin/perl
use strict;
undef $/;
my $config_file = "./pfad/zur/config.cfg";
my $new_conf = <<EOC;
hier die neuen config-zeilen
hier die neuen config-zeilen
hier die neuen config-zeilen
EOC
open IN, "<$config_file";
my $file_content = <IN>;
close IN;
$file_content =~ s/(#### lgweb ####).*?(\1)/\1\n$new_conf\1/s;
open OUT, ">$config_file";
print OUT $file_content;
close OUT;
Ohne Sicherheitsüberprüfungen ob öffnen oder schreiben erfolgreich waren.
HTH,
phate
Lesezeichen