Struppi: Suchen und ersetzen in Datei: Speicherzugriffsfehler

Beitrag lesen

local $/ = '); ';

open IN, $source;
open OUT, ">$target";
while(<IN>) {
  $_ =~ s/); /);\n/;
  print OUT $_;
}
close(IN);
close(OUT);


>   
> Das dürfte m.E. die mit Abstand schnellste Script-Variante werden.  
  
Die RegEx brauchst du nicht, da das Zeilentrennzeichen ja mit eingelesen wird (du  kannst es aber mit chomp() entfernen).  
  
~~~perl
local $/ = '); ';  
open IN, $source;  
open OUT, ">$target";  
while(<IN>)  
{  
   print OUT "$_\n";  
}  
close(IN);  
close(OUT);

Das dürfte nochmal eine ganze Menge bringen, da RegExen langsam sind

Struppi.

--
Javascript ist toll (Perl auch!)