Hallo Leute ich bin Anfänger kann Bitte jemand Helfen.

[M.Wolfram]

Hallo Leute ich bin Anfänger kann mir Bitte Bitte jemand Helfen.

Ich bin euch wirklich sehr dankbar bekomme es aber nicht hin.

Habe mal mehr aus dem script hier reingeschrieben.

Versuche schon 3 Tage es zu schaffen, bekomme es aber nicht hin.

Bitte Bitte helft mir, habe abschnitt mit # makiert. Wenn das script gestartet ist kann ich mit approve bestätigen und es wird die datei $_.dat in verzeichnis vote/data angelegt wo für $_ eine Name steht Bsp. Michael.dat die datei befindet sich auch in diesen verzeichnis habe ich kontrolliert.

Ich suche nun eine möglichkeit das in diese datei untereinander sehr gut, mittel und schlecht geschrieben wird

Danke für deine Hilfe
------------------------------------------------------------

sub rejectEdit {
  for( split(/,/, $FRM{id}) ) {
    dbdelete("$DDIR/dbs/edit.db", $_);
  }
  displayRevEdit("Selected edits have been rejected");
}

sub approveNew {
  for( split(/,/, $FRM{id}) ) {
    my $md = dbselect("$DDIR/dbs/review.db", $_);
    next if( !$md );
    shift @{ $md };

fjoin  ("$DDIR/members/$_.dat",  @{ $md }                                          );
    fjoin  ("$DDIR/members/$_.cnt",  0, 0, 0, 0, '-', $$md[12], $$md[8], 0, $$md[10], 0);
    fcreate("$DDIR/members/$_.sts"                                                     );
    fjoin  ("vote/data/$_.dat",                                                        );
    fjoin  ("vote/data/$_.ip"                                                          );

#    $votefile = "./vote/data/$_.dat";
#    open (VOTEFILE, ">>$votefile");
#    print VOTEFILE  "sehr gut \n";
#    print VOTEFILE  "mittel \n";
#    print VOTEFILE  "schlecht \n";
#    close (VOTEFILE);

dbdelete("$DDIR/dbs/review.db", $_);

$TPL{ADMIN_EMAIL} = $ADMIN_EMAIL;

memberTemplate($_);
    mail($SENDMAIL, freadalls("$TDIR/_email_approved.etmpl"), %TPL) if( $USE_MEM_EMAIL );
  }

displayRevNew("Selected Accounts Have Been Approved");
}

sub rejectNew {
  for( split(/