Matt@Ikonboard — Mon, 15 Jan 2001 21:48:18 +0000

my $member_name;
open MEMBERS, "<$data_path/members.txt" or die "Cannot open $data_path/members.txt to read: $!";
open TEMP, ">$data_path/members.tmp";
flock MEMBERS, 2 if $flock eq 'y';
flock TEMP, 2 if $flock eq 'y';
select (TEMP);
while (<MEMBERS>) {
    chomp;
    @_ = split /\|/;
    if ($_[0] eq $FORM{'user'}) { 
        $member_name = $_[1];
        unlink($data_path/$_[0]/info.txt) or die $!;
		      rmdir($data_path/$_[0]) or die $!;
    } else {
    print TEMP $_,"\n";
    }
}
close MEMBERS;
close TEMP;
rename ("$data_path/members.tmp", "$data_path/members.txt");
select (STDOUT);

print "<FONT FACE=\"Verdana\">User $member_name has been deleted.</FONT><BR>\n";

This assumes that the line to be deleted is in the file you are opening and checking for a match.