Opened by Benjamin at 2014-07-16 14:08
Vielen Dank!
_12$ usw. sollte zum Beispiel bedeuten, dass die 12 am Ende des Strings zu suchen ist - so war die Idee. ;-)
Ich habe die obere Lösung probiert, leider bekomme ich jetzt den Fehler "number found where operator expected [...] near "12 11"" und als Hinweis "Missing operator before 11?". Das geht natürlich für die nächsten Werte weiter. Ich traue mich daher mal, nach deiner Antwort (danke!) noch etwas genauer zu werden:
Wenn also ein Eintrag der Liste getroffen wird, geht es in die nächste if-Anweisung. Tut mir schon jetzt leid, wenn das hier total trivial ist, aber wo ist jetzt der Syntax-Fehler?
Last edited: 2014-07-16 14:56:43 +0200 (CEST)
_12$ usw. sollte zum Beispiel bedeuten, dass die 12 am Ende des Strings zu suchen ist - so war die Idee. ;-)
Ich habe die obere Lösung probiert, leider bekomme ich jetzt den Fehler "number found where operator expected [...] near "12 11"" und als Hinweis "Missing operator before 11?". Das geht natürlich für die nächsten Werte weiter. Ich traue mich daher mal, nach deiner Antwort (danke!) noch etwas genauer zu werden:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my @list = w/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /;
if (grep $a =~ /_($_)$/, @list) {
if ((grep($a =~ /^$_/, (16, 24, 25, 34)) && ($tbvartyp || 2003) != 2003) ||
(grep($a =~ /^$_/, (43, 44, 63, 64)) && ($tbvartyp || 2002) != 2002) ||
(grep($a =~ /^$_/, (56)) && ($tbvartyp || 2004) != 2004) ||
(grep($a =~ /^$_/, (70, 75, 77, 78)) && ($tbvartyp || 2001) != 2001)) {
push @comments, "matched";
}
}
else {
if (($a =~ /^56/ && ($tbvartyp || 2004) != 2004) ||
($a !~ /^56/ && ($tbvartyp || 2003) != 2003)) {
push @comments, "matched";
}
}
}
Wenn also ein Eintrag der Liste getroffen wird, geht es in die nächste if-Anweisung. Tut mir schon jetzt leid, wenn das hier total trivial ist, aber wo ist jetzt der Syntax-Fehler?
Last edited: 2014-07-16 14:56:43 +0200 (CEST)