Help with appending text to file

[xavilee]

Hi,

I have a file which store my grouping follow by the group members.
My codes will read in the new member name and the group. Then i will search for the group, ensure that the new member is not under the group and append the new member under the group. The problem is how do i append the name to that line?

File Sample
------------------
GrpA:xavi,jon,gwen
GrpB:ben,edward
GrpC:mary,ashley

My codes:

$file='grouping';
open(GRP, '>>'.$file)
@lines=<INFO>;
foreach $line (@lines)
{
   $grp=substr($line,0,4);
   if($grp eq $grpinput)
   {
     seek(INFO,0,SEEK_CUR);
     print INFO $line.','.$nameinput;
   }
}

[eWish]

Have a look at Tie::File on CPAN.

--Kevin

[KevinADC]

Have a look at Tie::File on CPAN.

--Kevin

Excellent suggestion.