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

topeg
 2006-12-08 00:57
#72375 #72375
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Am "in" kann es nicht liegen ... hmmm ich glaube ich weiß wo das Problem ist.
Nehmen wir mal an alle Wörter bis auf eines werden gefunden, und dieses eine, nicht gefundene, ist halt "Softwareentwickler", dann würde er dir auch den "Versicherungsdetektiv" auspucken. Ich habe da einen kleinen Denkfehler gemacht, denn "$#tags" ist der letzte Index im array, das ist aber eines weniger als Elemete Enthalten sind ($array[0] ist ja der erste Index). Richtig wäre hier "@tags" das im Scalarkontext die Anzahl der Elemete des Arrays ausgibt.
Der richtige Code müßte allso lauten:
Code: (dl )
1
2
my @tags=split(/\W/, $$arr[0] );
$jobbezeichnung = $$arr[0] if( @tags == grep{ $_ eq 'in' or $headline=~/$_/i }@tags);

Entschuldigung...\n\n

<!--EDIT|topeg|1165532289-->

View full thread Tagging in perl