Community  »  Perl: Allgemeines Forum

Text durchsuchen	Seitenanfang
Hallo, ich habe einen String den ich durchsuchen lassen müßte mit werten aus einem Array. Bzw. nur prüfen ob irgendein Wert aus dem Array in dem String vorkommt. Hat dafür jemand eine Idee ? Danke + Gruß Datum: 11.08.2005-19:54
re: Text durchsuchen	Seitenanfang
#!/usr/bin/perl -w use strict; # Array mit den Suchbegriffen: my @aSuchbegriffe = ('Hallo','Du','Ralf'); # zu durchsuchender String my $szString = 'Du Ralf, kannst Du mal..'; # Ergebnisliste: my @aTreffer; foreach my $szDummy ( @aSuchbegriffe ) { if ($szString =~ /$szDummy/ ) { push @aTreffer,$szDummy; } # end if }# end foreach alle Suchbegriffe # Wenn Treffer, dann hat @aTreffer die Elemente... print "".join("\n",@aTreffer); Datum: 12.08.2005-07:09
re: Text durchsuchen	Seitenanfang
#!/usr/bin/perl -w use strict; # Array mit den Suchbegriffen: my @aSuchbegriffe = ('Hallo','Du','Ralf'); # zu durchsuchender String my $szString = 'Du Ralf, kannst Du mal..'; my $re = join("|",@aSuchbegriffe); print "mind. 1 Treffer\n" if($szString =~ $re); Datum: 12.08.2005-08:52
re: Text durchsuchen	Seitenanfang
Hallo renee, echt clever ! Gruß Ralf Datum: 12.08.2005-09:11
re: Text durchsuchen	Seitenanfang
Noch nicht ganz. my $re = join("|", map {quotemeta} @aSuchbegriffe); Dann klappt's auch mit Punkten und Klammern... Datum: 13.08.2005-12:39
re: Text durchsuchen	Seitenanfang
Hallo my $found = () = grep { $string =~ m/$_/ } map { quotemeta } qw(foo bar baz) Gruß Kristian Datum: 13.08.2005-15:39