Opened by Gast at 2005-07-19 01:24
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
hmm; neustarten ist nie gut; dann geht dir die laufzeit flöten
und wenn man es richtig machen will, liest man nicht alle Zeilen auf einmal ein, sondern nur die, die man braucht
HTH\n\n
<!--EDIT|esskar|1121836832-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $idx = 0;
my $size = scalar @fileIn;
my $matching = 0;
while($idx < $size) {
if($fileIn[$idx] =~ /"(.*)","(.*)"/) {
if($1 eq $suchen) {
$matching = 1; # "true" finde ich hier doof
# du willst doch nur eine Zeile loeschen, oder?
splice @fileIn, $idx, 1;
$size--;
} else {
$idx++;
}
und wenn man es richtig machen will, liest man nicht alle Zeilen auf einmal ein, sondern nur die, die man braucht
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my @fileIn = ();
if(open(INPUTFILE,"defs.cfg")) {
while(<INPUTFILE>) {
next unless /"(.*)","(.*)"/;
push @fileIn, $_;
}
close(FILE);
}
if(scalar @fileIn) { # ersetzt $matching eq 'true'
} else {
}
HTH\n\n
<!--EDIT|esskar|1121836832-->