perl case sensitivity

cmontr · 10-09-2009, 04:50 PM

Hi Guys,

When use this liner code, anyway to print "TeSt" in case insentive?

ie. it should print all "test, Test, TEST etc..."

Code:

perl -s -ne '($user,$ou) = /.*uid=(.*?), ou=(.*?),.*/ if /^dn/; print "$user\n" if /^stat: 2/ && $ou eq "test";' infile

Thanks

ghostdog74 · 10-09-2009, 06:51 PM

please read perldoc perlre (from now on). There is a modifier to do case insensitivity in Perl's regex.

Telemachos · 10-09-2009, 07:35 PM

Instead of testing for string equality ($string eq 'test'), you should use a regular expression with the i flag.

Code:

telemachus ~ $ cat file 
test
TeSt
TEst
tesT
TEsT
TEST
gotcha
telemachus ~ $ perl -nle 'print if $_ =~ /test/i' file
test
TeSt
TEst
tesT
TEsT
TEST

See perldoc perlrequick for a good introduction to regular expressions.