Re: Testing if a string is a substring

[monarch]

#!/usr/bin/perl -w
use strict;

my $super = 'AAAAATT';
my $sub   =  'AT';     # Returns 1 (True)
#my $sub  =  'AAA';    # Returns 1 (True)
#my $sub  =  'GGG';    # Returns 0 (False)

print "1\n" if ( $super =~ m/\Q$sub\E/ );

[reasonablekeith]

I wouldn't use a regex for this, there aren't any patterns, just plain old string matching

my $super = 'AAAAATT';
my $sub   =  'AT';

print "1\n" if (index($super, $sub) != -1);