RegExp: mehrere RexExp prüfen - #83144 (Allgemeines zu Perl)

havi

2003-09-03 15:13

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=tryit,03.09.2003, 13:09]Hier mein sub

Code: (dl )

sub SearchAdresse {
    my $obj = shift;
    my $name = shift;
    my $vorname = shift;
    my @searchAdressen;
    my $adrNr;
    my $feldName;
    my $feldVorname;
    
   
    $name =~ s/\*/\.\*/g;
    $name =~ s/\?/\.\?/g;
    $vorname =~ s/\*/\.\*/g;
    $vorname =~ s/\?/\.\?/g;
    
    foreach $adrNr (keys %adresse) {
        $feldName = $adresse{$adrNr}{'txtNameFirma'};
        $feldVorname = $adresse{$adrNr}{'txtNameVorname'};
        if (($feldName =~ /^$name\b/i) && ($feldVorname=~ /^$vorname\b/i)) {
            push(@searchAdressen,$adrNr);
        }
    }
    if (@searchAdressen) {
        return @searchAdressen;
    }
    return;
}

[/quote]

Code: (dl )

sub SearchAdresse {
   my $obj = "test1";
   my $name = "test2";
   my $vorname = "test3";
   my @searchAdressen;
   my $adrNr;
   my $feldName;
   my $feldVorname;
   
  
   $name =~ s/\*/\.\*/g;
   $name =~ s/\?/\.\?/g;
   $vorname =~ s/\*/\.\*/g;
   $vorname =~ s/\?/\.\?/g;
   
   foreach $adrNr (keys %adresse) {
       $feldName = $adresse{$adrNr}{'txtNameFirma'};
       $feldVorname = $adresse{$adrNr}{'txtNameVorname'};
       if (($feldName =~ /^$name\b/i) && ($feldVorname=~ /^$vorname\b/i)) {
           push(@searchAdressen,$adrNr);
       }
   }
   if (@searchAdressen) {
       return @searchAdressen;
   }
   return;
}

Wenn ich es so ausführe bekomm ich keine Fehlermeldung mehr!

mfg havi

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/