vergleich - #75240 (Allgemeines zu Perl)

Strat

2003-12-10 12:34

User since
2003-08-04
5246 Artikel
ModeratorIn

index muesste eigentlich schneller sein:

Code: (dl )

# -1, falls nicht gefunden, sonst wird die position zurueckgegeben
if (index($t, 'wort') > -1) { 
  print "Wort ist enthalten";
}

wenn du es von gross-/kleinschreibung unabhaengig brauchst, wandle einfach alles in kleinschreibung um:

Code: (dl )

# -1, falls nicht gefunden, sonst wird die position zurueckgegeben
if (index(lc($t), lc('wort')) > -1) { 
  print "Wort ist enthalten";
}

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/