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!)
Javascript ist toll (Perl auch!)