Opened by Benjamin at 2014-07-16 14:08
QuoteDer Operator heisst qw(); nicht w(). Oder hier eben qw// anstatt w//; Tippfehler im Code.
Danke für den Hinweis!
@pg: Sorry, wie gesagt bin ich absoluter Neuling und kenne mich noch gar nicht aus. Ich habe hier ein Perl-Script vorliegen, welches ich nun einigermaßen anpassen muss. Insofern sind mir regex u.ä. fremd.
Auch deine Vereinfachung ist natürlich super und habe ich jetzt auch umgesetzt, war von meinem Vorgänger aber wohl nicht so schön gebaut worden.
Mit dem folgenden Versuch bekomme ich jetzt leider wieder "Syntax error [...] near ") ||"
Wenn ihr mir nochmal helfen mögt, freue ich mich sehr!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my @list = qw/ 12 11 10 08 07 04 00 94 91 90 87 67 24 /;
if (grep $a =~ /_($_)$/, @list) {
if ($a =~ m/^(16, 24, 25, 34)$/ && ($tbvartyp || 2003) != 2003) ||
($a =~ m/^(43, 44, 63, 64)$/ && ($tbvartyp || 2002) != 2002) ||
($a =~ m/^(56)$/ && ($tbvartyp || 2004) != 2004) ||
($a =~ m/^(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";
}
}
}
Last edited: 2014-07-19 18:03:35 +0200 (CEST)