Support wrote:
> Hi all
> I have a little bit of code you may be able to help with.
> I load a file into an array with
>
> foreach $lines(@database_array) {
> @edit_array = split(/\:/,$lines);
> push(@member_array,[EMAIL PROTECTED]);
> $x++;
> } #loop
>
> and then play around with the array a bit, then I would
> like to load it back into the file with
>
> while($count<$x){
> $newline = join('\:',@{$member_array[$count]});
> chomp($newline);
> print DAT "$newline\n";
> $count++;
> }
See if that is closer to what you want.
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
