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 ;)