
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;
- }
-
-
-
-
Script written by Wolfgang Wiese, feedback welcome.