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


New MessageReply tn thisReply on topicDeleteOverviewPreviousNext Mail this Mail topic Mail all
New messageReply to this messageEntry to this topicDelete entryAll entries Previous Entry Next EntryMail this message Mail this topic Mail all messages

Script written by
Wolfgang Wiese, feedback welcome.