Avatar billede nvr Nybegynder
20. juni 2000 - 10:16 Der er 2 kommentarer og
1 løsning

Tekstvedligeholdelse

hej!

jeg har denne simple kode, der tilføjer en linie til en tekstfil:

open (nyhed,">>/hotel/nyheder.txt");
    print nyhed "  |nyheder/$in{'Filename'}.shtml  |1B8DB9|ffffff|$in{'Headline'}\n";
        close NEWSFILE2;

Nu vil jeg gerne have det sådan, at den automatisk sletter den ØVERSTE linie i filen, når der er kommet 10 linier ind i tekstfilen. Hvordan gøres det?
Avatar billede erikjacobsen Ekspert
20. juni 2000 - 11:09 #1
if (open(F,"/hotel/nyheder.txt")) {
  @a = <F>;
  close(F);
}
push(@a,""  |nyheder/$in{'Filename'}.shtml  |1B8DB9|ffffff|$in{'Headline'}\n"");
open(F,">/hotel/nyheder.txt");
for ($i=$#a>=9?$#a-9:0; $i<=$#a; $i++) {
  print F $a[$i];
}
close(F);

Altså: læs filen ind i et array, tilføj en linie og skriv den ud igen. Du må selv lige sætte
det ind i din sammenhæng
Avatar billede nvr Nybegynder
20. juni 2000 - 11:26 #2
Virker perfekt! Takker! :)
Avatar billede erikjacobsen Ekspert
20. juni 2000 - 12:59 #3
Og du skal ikke også have det forklaret .... hehe ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester