David Vd Geer Inhuur Tbv Iplib wrote at Mon, 27 May 2002 16:59:24 +0200:
> open(FH, "<$file");
> while {
> s/(/(\n/g
> s/\n)/)/g
> push @newoutput
> }
> close FH;
>
> open(HH, ">$file");
> print HH @newoutput;
> close HH;
>
>
> It's untested, you might need to add some ba
open(FH, "<$file");
while {
s/(/(\n/g
s/\n)/)/g
push @newoutput
}
close FH;
open(HH, ">$file");
print HH @newoutput;
close HH;
It's untested, you might need to add some backslashes in front of the substitutions
but this should be it. There is probably someone else that doe
