Es funktioniert jetzt so...

[$xNeT\/\/orKx]

Hallo,
Ich habe jetzt mal ein bisschen herumprobiert und es würde so funktionieren:

opendir(DIR,'users') or die "Cant open directory of users : $! \nPlease send a mail to $mailadmin to report this error\n";
        while (defined($_ = readdir(DIR)))   {
                   if ($_ =~ /^\d+?.cgi$/)   {
                  open(FILE,"users/$_") or die "An error occured with $_ : $!\nPlease contact $mailadmin to report this error.\n";
                   flock FILE, 2;
                   local $/;
                  my $input = <FILE>;
                    close FILE;
                    my $inputname = $1 if $input =~ /<name>(.+?)</name>/i;
                        if (lc $name eq lc $inputname)    {
                        $$error = 1;
                        $$nameerror = 'Der Name existiert bereits !';
                         }
                    }
         }
       closedir DIR;

$xNeTworKx.