Suche HILFE HILFE HILFE HILFE HILFE WICHTIG!!!!!!!!!

[Michael]

Hallo
Ich möchte  das 4 zeilen untereinander mit Test in die Datei Michael.dat geschrieben werden.
Aber dieses script zeigt mir  test auf dem Bildschirm. (aber nur einmal)

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"                                                          );

open(FILE, "vote/data/michael.dat");
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    close(FILE);

[Kai Lahmann]

<img src="/images/05.gif" width=158 height=119 border=0 alt="Jetzt reicht's aber!">

[NAPALM]

Hallo
Ich möchte  das 4 zeilen untereinander mit Test in die Datei Michael.dat geschrieben werden.
Aber dieses script zeigt mir  test auf dem Bildschirm. (aber nur einmal)

open(FILE, "vote/data/michael.dat");
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    close(FILE);

LOL !!!

wie wärs damit was anderes als test auszugeben? evtl sogar den inhalt von michael.dat? soll in einzelfällen sogar funktionieren :P

[zwei zeichen]

Hallo
Ich möchte  das 4 zeilen untereinander mit Test in die Datei Michael.dat geschrieben werden.
Aber dieses script zeigt mir  test auf dem Bildschirm. (aber nur einmal)

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"                                                          );

open(FILE, "vote/data/michael.dat");
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    print "test\n\n";
    close(FILE);

[Stonie]

<?m=29994&t=5370>