Tagging in perl - #72372 (Allgemeines zu Perl)

topeg

2006-12-07 21:36

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Warum suchst du Streng nach 10 Kriterien?
Das splitten kannst du auch mit "\W" machen das bedeutet alles was nicht nicht in Worten vorkommt.
versuch es mal so:

Code: (dl )

1
2

@tags=split(/\W/, $$arr[0] );
$jobbezeichnung = $$arr[0] if( $#tags == grep{ $_ eq 'in' or $headline=~/$_/i }@tags);

etwas auseinandergezogen:

Code: (dl )

1
2
3

my @tags=split(/\W/, $$arr[0] );
my $anzahlpositiv=grep{ $_ eq 'in' or $headline=~/$_/i }@tags;
$jobbezeichnung = $$arr[0] if( $#tags == $anzahlpositiv)

\n\n