
The CGI-Forum
Here you can read all entries on the board and/or make own entries. Have fun!
ERBITTE HILFE!: Wer hilft mir beim Script weiter??? - xwolf (xwolf@xwolf.com), 6.10.97 - 21:25:01- Hallo,
- Ich hab bei mir was aehnliches in einem Skript so geloest:
- (Dabei hab ich die Eintraege in der Datei auf 30 Zeilen begrenzt. Ich lese
- zuerst aus der Datei die vorhandenen Eintraege aus, dann ersetzte ich das
- aelteste, falls die Zahl der Eintraege die 30 erreicht hat. Der neue
- Eintrag ist in der Variable $kurz. Ausserdem frag ich ganz am Anfang ab,
- ob ich diesen Eintrag nicht bereits als ersten Eintrag hab..)
-
-
-
- $i=0;
- open(f2,'$CONTROL_FILE') || die('Cannot open CONTROL!');
- while(<f2>) {
- chop($_);
- if (length($_) > 1) {$conline[$i]=$_;
- $i++; }
- }
- close f2;
- if ($conline[0] ne $kurz) {
- if ($i<29) {$bis=$i;} else {$bis=30;}
- for ($l=$bis;$l>=1;$l--) {
- $conline[$l]=$conline[$l-1];
- }
- $conline[0]=$kurz;
- open(f2,'>$CONTROL_FILE') || die('Cannot open CONTROL!');
- for($i=0;$i<=$bis;$i++) {
- print f2 '$conline[$i]\n';
- }
- close f2;
- }
-
-
-
- Ciao,
-
- Wolfgang
-
-
-
Script written by Wolfgang Wiese, feedback welcome.