package ExtractDiff;

use strict;
use warnings;
use Algorithm::Diff qw(sdiff);
use Data::Dumper;

sub getValues
{
        my $template = shift;
        my $document = shift;
        my %result;
        foreach my $item (sdiff(splitFile($template), splitFile($document)))
        {
                        if (($item->[0] eq 'c') && ($item->[1] =~ m/\[\%\s*(.+?)\s*\%\]/))
                        {
                                my $name = $1;
                                my $templateString = $item->[1];
                                my $documentString = $item->[2];
                                if ($templateString =~ m/^(.*?)\[\%.*?\%\](.*?)$/)
                                {
                                        my $prefix = $1;
                                        my $postfix = $2;
                                        if ($documentString =~ m/^\Q$prefix\E(.*)\Q$postfix\E$/)
                                        {
                                                #print "$name: $1\n";
                                                $result{$name} = $1;
                                        }
                                }
                        }
        }
        return \%result;
}

sub splitFile
{
        my $ref = shift;
        my @file;
        push (@file, grep { $_ } split(/\s*(<.+?>)\s*/, $$ref));
        return \@file;
}

1;