David Vd Geer Inhuur Tbv Iplib wrote at Mon, 27 May 2002 16:59:24 +0200:
> open(FH, "<$file"); > while <FH> { > 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 does it faster, but at least I >tried :) > That won't be the only problem. There are at least two ';' missing and it could be better to mention the $_ in the push command. # Don't forget to check for errors open FH, "<$file" or die "Can't open $file"; while (<FH>) { s%\(%\(\n %g; s%\n\)%\)%g; push @newoutput, $_; } close FH; ... (I also changed the s/// statement to s%%% to increase the readability). Greetings, Janek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]