Thread Noch eine Frage zu Regulären Ausdrücken (20 answers)
Opened by jan999 at 2009-11-27 18:23

havi
 2009-11-28 10:44
#128707 #128707
User since
2003-08-04
2036 articles
BenutzerIn
[Homepage]
user image
2009-11-27T17:51:29 Linuxer
Hi, alternativ zur Regex-Lösung:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#! /usr/bin/perl
use strict;
use warnings;
my $text = 'abc;def;ghi';
my $such = 'DEF';

# finde string $such in $text ohne Ruecksicht auf gross/KLEIN 
if ( index( lc($text), lc($such), 0 ) >= 0 ) {
  print "Treffer";
}
else {
  print "kein Treffer";
}


perldoc -f index
perldoc -f lc


... noch mehr zu index/rindex gibts in der Perl-Zeitung Ausgabe 3 ;)

View full thread Noch eine Frage zu Regulären Ausdrücken