Mammals

Monkeys

##



[% title %]


Mammals
[% animal %]



##

##

#!/usr/bin/perl

use strict;
use warnings;

use ExtractDiff;
use File::Slurp;

my $template = read_file('template.html');
my $document = read_file('document.html');
my $resultRef = ExtractDiff::getValues(\$template, \$document);
foreach (keys %$resultRef)
{
        print "$_: $$resultRef{$_}\n";
}

##

##

myidentifier: 1
animal: Monkeys
title: Mammals

##

##

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;