Array, Zeilennummer auslesen

[ritschmanhard]

Hi Max!

myReplaceString ~= s/(test)\n(darunter)/$1 derEinfügeString$2/

Also, da gibts jetzt folgende Möglichkeiten:
1. Du kannst das Array mittels join (mit trennzeichen \n)(perl befehl) zusammenfassen und dann suchen (nicht sehr performant).
2. Du kannst mittels regular expression "match" iterativ immer zwei aufeinanderfolgende Zeilen untersuchen, alla (Syntax ungeprüft...)
my $ arraylen = @filelines;
for ($count=0; $count<$arraylen-1; $count++)
{
   if ($filelines[count]~=m/test$/ && $filelines[count+1]~=m/^darunter/)
   {
      $filelines[count] = $filelines[count] . "derEinfügeString"
   }
}
3. Du nimmst nicht perl, sondern lex...

Grüsse,
Richard