String Comparison , Common Part

Aryan

Greetings!

Is there in OOTB Perl module that will give me common part between two strings? I wanted to know this before spending time on coming up with a pattern match.

Ex: String 1: /default/main/test String 2: /default/main/test/dev Result: /default/main/test

Please let me know if you know of any funtion that can do this. Thanks!

Adam Stoller

Greetings! Is there in OOTB Perl module that will give me common part between two strings? I wanted to know this before spending time on coming up with a pattern match. Ex: String 1: /default/main/test String 2: /default/main/test/dev Result: /default/main/test Please let me know if you know of any funtion that can do this. Thanks!

If you're simply attempting to figure out is string-1 starts with string-2 (or vice-versa) it's a simple regex:[html]my $str1 = "/default/main/test";
my $str2 = "/default/main/test/dev";

if ($str1 =~ m|^$str2|){
print "$str2 is contained within $str1\n";
}
elsif ($str2 =~ m|^$str1|){
print "$str1 is contained within $str2\n";
}[/html]If you're trying to find arbitrary matching patterns between any two strings, it's going to be more complicated and a bit more questionable as to the value of the results you'll be getting - e.g.: given:

within string2 and vice-versa.