in reply to doubt in string matching.

heidi,

ikegami++

You have not clearly given what you are going to achieve. The following works as per your logic. 

use strict;
use warnings;

my ($first, $last) = $find =~ /([A-Z])[A-Z]*([A-Z])/; #extract first a
+nd last character

if ($string =~ /$first/ && $string =~ /$last/) #check both character p
+resent in string
{
    my $out;

    for ($first..$last)   #increment inbetween characters
    {
        $out =  $out.$_ ;
    }

    print "'$find' string found" if ($string =~ /$out/); # if found pr
+int the string
}

[download]
or Simply
my $string = "ABCDEFGHIJKLMNOPCDEFQRST";

my $find="CDEF";

print "'$find' string found" if ($string =~ /$find/);

[download]

Prasad

Replies are listed 'Best First'.
Re^2: doubt in string matching.
by Mandrake (Chaplain) on Oct 17, 2006 at 05:39 UTC
    I am affraid your first solution does not seem to work. Pls correct me if I am wrong.
    Say , 
    my $find="CXYF";
my $string = "ABCDEFGHIJKLMNOPCDEFQRST";

    [download]
    In this case also, the output will be 
    'CDEF' string found
    Just to correct 
    #!/usr/bin/perl -w
use strict;

my $string= "ABCDEFGHIJKLMNOPCDEFQRST";
my $find="CDEF";

#extract first and last character
my ($first, $last) = $find =~ /([A-Z])[A-Z]*([A-Z])/;

#check both character present in string
if ($string =~ /$first/ && $string =~ /$last/) {
        
        print "'$find' string found" if ($string =~ /$find/);
}

    [download]
    This combines your first and second solution. Thanks..
[reply]
[d/l]
[select]

      Mandrake You are right, if the $find string is "CXYF". But my solution is based on the OP's logic. If the strings are "CDEF", "QRST" etc. it ll work perfectly. The OP has given,

      i keep incrementing first(after finding C)

      Prasad

[reply]
        Sorry but unless you perform a check at each increment, this incrementing does not prove good. Your implementation just checks the first and last characters only. This will return success if 
         $find = "CDED";
# or
$find = "CDEH";
# or
$find = "CDEJ";
#or even 
$find = "CDEC";

        [download]
        Also if you check the pattern closely,
        BCDEFGHIJKLMNOPCDEFQRST
        you can find a CDEF in-between the P and Q. So incrementing the string from $first..$last should not be the approach here.
        I believe by "incrementing" what OP meant was incrementing the search string from first to last position. Thanks..
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom