These are the input to and outputs from my code somewhere above, for the 3 examples you;ve supplied so far:

{
    my %morphs = ( t => { d => 'd' }, );
    my @lex = qw[ cowboy cow boy cat do dog ];
    my $input = 'cowboycaddog';

    print "\n$input\n------------";
    deGlue{ print join '-', @_ } @lex, %morphs, $input;
}
{
    my %morphs = (
        aH => { o => 'dh', as => 't' },
        as => { aH => '' },
    );
    my @lex = qw[ krishnaH dhaavati naH dhaa namaH te ];
    my $input = 'Krishnodhaavatinamaste';

    print "\n$input\n----------";
    deGlue{ print join '-', @_ } @lex, %morphs, $input;
}
{
    my %morphs = (
        A => { a => 'a', A => 'a', a => 'A', A => 'A', '' => 'A', 'A' 
+=> '' },
        s => { H => '' },
    );
    my @lex = qw[ ziva Shiva azvas zivA Azvas ];
    my $input = 'zivAzvaH';

    print "\n$input\n-------------";
    deGlue{ print join '-', @_ } @lex, %morphs, $input;
}

__END__
c:\test>675520

cowboycaddog
------------
cowboy-cad-dog
cow-boy-cad-dog

Krishnodhaavatinamaste
----------
Krishno-dhaavati-namas-te

zivAzvaH
-------------
ziv-AzvaH
ziv-AzvaH-AzvaH                    ## I'M investigating this anomoly.
[download]

The main point of that code is that it constructs regexes to parse the data from the supplied lexicon and morpheme rules automatically.

Incomplete yet, and currently leave work still to be done, but a starting point? The more examples it is tried with, the better the code generation can be tailored.

salutations,

thank you for the answer. we will analyze your code, it seems to be a good starting point. of course, it will take some time for us because our Perl knowledge is not very advanced yet.

Your welcome, hope it helps. The code is fairly advanced, so if an explanation of any of it will help you, please ask.

The code could be improved by seeing a few more examples of the simple case. The consonant swapping type will take a different approach I think.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

salutations,

thank you for the attention.

the problem is that this problem seems difficult to explain without examples. but that examples we gave (the Sanskrit one and the abacAcaba one) are actually what we want to make. so, we thought it would be easier to formulate with several examples (of course, we were wrong, because several complex examples make it difficult to give only one solution that solves everything, right?).

trying to state the actual problem, what we want is to be able to take a string of words (any words) joined by whatever rules of combination we may want to create between words (vowel joining, additional euphonic phoneme, consonant swapping, assimilation...) and then separate this string into the possible combinations of words and rules that may have formed it. maybe, based on a lexicon of the isolated wordforms that may have formed the phrase.

do you have a solution for it?

ill provide it shortly. please stay tuned.

in the meanwhile, i recommend getting comfortable with Perl's regular expression variables, and the qr// operator (very useful!). Here is an excerpt from the Perl 5.10 documentation.

VARIABLES

   $_       Default variable for operators to use
   $`       Everything prior to matched string
   $&       Entire matched string
   $'       Everything after to matched string
   $1,$2... Hold the Xth captured expr
   $+       Last parenthesized pattern match
   $^N      Holds the most recently closed capture
   $^R      Holds the result of the last (?{...}) expr
   @-       Offsets of starts of groups.
   @+       Offsets of ends of groups.
[download]

Here is an application you will need:

use strict;
use Data::Dumper;

my $con = qr/[b-df-hj-np-tv-xz]/;
my $vow = qr/[aeiouy]/;

my $ncon = qr/[^b-df-hj-np-tv-xz]/;
my $nvow = qr/[^aeiouy]/;

my $x = 'battlestar galactica';
my $y = 'silly ahab';

($x,$y) = map{swap($_)}($x,$y);

print Dumper([$x,$y]);

sub swap {
    my $x = shift;
    if($x =~ /(${con})(${ncon}*?\b)(${ncon}*?)(${con})/){
        $x = $`.$4.$2.$3.$1.$';
    } $x
}
[download]

Produces:

$VAR1 = [
          'battlestag ralactica',
          'silhy alab'
        ];
[download]