comment on

Hello rad_144, and welcome to the Monastery!

For finding the longest common substring, see the thread finding longest common substring which I referenced in my recent post Re^13: partial match between 2 files.

Update (1^st January, 2013): After the comedy of errors documented in the updates to Re^13: partial match between 2 files, I finally came up with a solution using my own advice:

#! perl
use Modern::Perl;

my @paths = (
                '/home/instance/domains/abcd/xyz/1.txt',
                '/a1234/domains/abcd/xyz/1.txt',
                '/a1234/topfolder/instance/domains/abcd/xyz/1.txt',
#               '/a1234/topfolder/instance/domains/abcd/xyz/2.txt',
            );
my $lcss  = lcss($paths[0],  $paths[1]);
my $found = defined $lcss && $paths[0] =~ / \Q$lcss\E $ /x
                          && $paths[1] =~ / \Q$lcss\E $ /x;

if ($found)
{
    for (@paths[2 .. $#paths])
    {
        $lcss = lcss($lcss, $_);

        unless ($lcss && / \Q$lcss\E $ /x)
        {
            $found = 0;
            last;
        }
    }
}

say $found ? 'Found common path+file: ' . $lcss :
             'No common path+file found';

#   lcss() was written by BrowserUk, see [id://308451]
sub lcss
{
    my $strings = join "\0", @_;
    my $lcss;

    for my $n (1 .. length $strings)
    {
        my $re = "(.{$n})" . '.*\0.*\1' x (@_ - 1);
        last unless $strings =~ $re;
        $lcss = $1;
    }

    return $lcss;
}
[download]

Uncomment the 4^th path, and the match fails, as it should.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

In reply to Re: Is there any API available in perl to find longest common substring from two strings by Athanasius
in thread Is there any API available in perl to find longest common substring from two strings by rad_144

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


The stupid question is the question not asked
	PerlMonks