Lägg till nummer.

Fick en kod av dig FlashX för ett tag sedan som räknar filer i en katalog och skapar en ny, den funkar kanon, men vill jag lägga till id't även i textfilen som skapas så går det inte,
så här ser det ut,

$txtDir = "filer";
$number = 0;
if (-d "$txtDir") {
opendir(TEXTFILER, "$txtDir") or die "Kan inte öppna filen\n";
@txtfiler = grep { /\.txt$/i } readdir TEXTFILER;
closedir(TEXTFILER);
$number = @txtfiler;
chmod (0777, "$number.txt");
}

open(FILE, ">filen/$number\.txt") or die "Kan inte öppna filen\n";
print FILE "$number::$FORM{'namn'}\n";
close(FILE);

vad kan det bero på.?

chmod (0777, "$number.txt"); var tänkt att ligga under close(FILE); eftersom det var nya filer som skapades varje gång.
Fast det kanske inte ens behövs i ditt fall.

Vad fungerar inte. Skrivs det andra värdet till filen eller skapas filen inte ö.h.t.

Det funkar bra att skapa en ny nummer fil, 1.txt 2.txt osv. men om jag även vill lägga till numret i filen som skapas ex,
1::namn
så läggs inte numret till,
det blir ex,
::namn

Använd

$txtDir = "filer";
$number = 0;
if (-d "$txtDir") {
opendir(TEXTFILER, "$txtDir") or die "Kan inte öppna mappen\n";
@txtfiler = grep { /\.txt$/i } readdir TEXTFILER;
closedir(TEXTFILER);
$number = @txtfiler;
}

open(FILE, ">filen/$number.txt");
print FILE "$number\:\:$FORM{'namn'}\n";
close(FILE);

så tror jag det löser sig.

Nu verkar det funka perfekt.!
Tack för hjälpen FlashX.!!