Thread Tagging in perl (5 answers)
Opened by J-jayz-Z at 2006-12-07 21:12

J-jayz-Z
 2006-12-07 21:12
#72371 #72371
User since
2005-04-13
625 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hi,

ich hab ein kleines Problem mit regulären ausdrücken. Und zwar hab ich einen begriff an mehreren Stellen gesplittet und will dann schauen, ob alle dieser Ergebnisse in einem Text vorkommen.
Allerdings ist ein Text zum Beispiel "Praktikant in München" oder so. Einer der texte, die gesplittet werden lautet "Praktikant/in". Nun findet er Praktikant oben allerdings nicht. Das "in" wird ignoriert. Hier mal etwas Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my @tags = split(/\s|\/|-|\(|\)/, $$arr[0]);
my @new = map { $tags[$_] ? $tags[$_] eq "in" ? "" : $tags[$_] : "" } (0..9); #mit "" auffüllen, bis es 10 Tags sind
if(
($headline =~ m/.*$new[0].*/i) &&
($headline =~ m/.*$new[1].*/i) &&
($headline =~ m/.*$new[2].*/i) &&
($headline =~ m/.*$new[3].*/i) &&
($headline =~ m/.*$new[4].*/i) &&
($headline =~ m/.*$new[5].*/i) &&
($headline =~ m/.*$new[6].*/i) &&
($headline =~ m/.*$new[7].*/i) &&
($headline =~ m/.*$new[8].*/i) &&
($headline =~ m/.*$new[9].*/i))
{
$jobbezeichnung = $$arr[0];
}
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

View full thread Tagging in perl