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??? - Konstantin (bh1006@fen.baynet.de), 7.10.97 - 01:20:50
so gehts auch:
 
$i=0;
open(f2,'$CONTROL_FILE') || die('Cannot open CONTROL!'); # $CONTROL_FILE in ' '!!!
while( )
{
chop($_);
if (length($_) > 1)
{
$conline[$i++]=$_;
}
if($i>28)
{ # Genug nichtleere Zeilen gelesen
last;
}
}
close f2;
if ($conline[0] ne $kurz)
{
open(f2,'>$CONTROL_FILE') || die('Cannot open CONTROL!');
print f2 '$kurz\n';
$i = 0;
foreach $line (@conline)
{
print f2 '$line\n';
}
close f2;
}


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.