regulärer ausdruck will nicht - #65918 (Allgemeines zu Perl)

shaihulud

2006-05-10 14:18

User since
2006-04-12
76 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

  foreach (@Zeilen){
    if (defined $dokuart && defined $zahl1){
    print "test1";
      if (/$dokuart\;$zahl1\;(\d+)/){
        print "test2";
        $zahl1 =  $1;

die Zeilen sehen so aus:
B2DOK;63;41;1; 0 0 ;;;;0;0
B2DOK;62;40;1; 0 0 ;;;;0;0
B2DOK;19;19;1; 0 0 ;;;;0;0
etc....

Er gibt mir test1 aus aber komischerweise nie test2. Was stimmt an dem regulären ausdruck nicht???
Ich erkenne da einfach den Fehler nicht!...