Sachin has asked for the wisdom of the Perl Monks concerning the following question:

Anybody can tell me any method to match Case Sensitive String. I wouldnot like to convert the $test1 in lowercase. I want to match as it is.

#! /usr/bin/perl
my $test = "abc";
my $test1 = "AbC";
 
if($test =~ m#$test1#i){
    print "\n Both are Same";
}
else{
  print "\n Both are not Same";
}

[download]

Replies are listed 'Best First'.
Re: How to match String with Case Sensitive??
by moritz (Cardinal) on Oct 30, 2009 at 11:46 UTC

    If you want case sensitive matching, just remove the i at the end.

    In any case your test will return true if $test1 is a substring of $test, and if it contains special regex syntax it's something else completely. So you could do 

    if ($test =~ m/^\Q$test1\E\z/) { ... }

    [download]
    instead to avoid that.
    Perl 6 - links to (nearly) everything that is Perl 6.
[reply]
[d/l]
[select]

      Thansk for Reply. I removed the i at the end. But it is not matching. 

      #! /usr/bin/perl
my $test = "abc";
my $test1 = <STDIN>; # Suppose test1 = "AbC"

if($test =~ m#$test1#){
    print "\n Both are Same";
}
else{
  print "\n Both are not Same";
}

      [download]
[reply]
[d/l]
        That's because the line terminator, "\n" is at the end of $test1.
        chomp($test1);

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom