Wyszukiwanie wielowierszowe zastąpić Perlem
Wiem, że tego rodzaju pytania były już zadawane już wiele razy. Powodem, dla którego tu przyszedłem, jest to, że czuję, że przegapiłem coś prostego i podstawowego.
Czy jest możliwe, aby ten rodzaj rutynowego wyszukiwania był lepszy. Na przykład bez dwukrotnego otwarcia tego samego pliku. Również porady dotyczące prędkości są mile widziane.
Zauważ, że działa to z dopasowaniami wielowierszowymi i zastępuje również łańcuchy wielowierszowe.
#!/bin/perl -w -0777
local $/ = undef;
open INFILE, $full_file_path or die "Could not open file. $!";
$string = <INFILE>;
close INFILE;
$string =~ s/START.*STOP/$replace_string/sm;
open OUTFILE, ">", $full_file_path or die "Could not open file. $!";
print OUTFILE ($string);
close OUTFILE;