Template::Reverse

A detector of different parts between pair of text
Download

Template::Reverse Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • HyeonSeung Kim
  • Publisher web site:
  • http://search.cpan.org/~khs/

Template::Reverse Tags


Template::Reverse Description

Template::Reverse is a Perl module that detects different parts between pair of similar text as merged texts from same template. And it can makes an output marked differences, encodes to TT2 format for being use by Template::Extract module.SYNOPSIS use Template::Reverse; my $rev = Template::Reverse->new({ spacers=>, # put spaces around Numbers. splitter=>'Template::Reverse::Splitter::Whitespace', # and splitting text by white spaces. }); my $parts = $rev->detect($output1, $output2); # returns ,], ... ] use Template::Reverse::Converter::TT2; my @templates = Template::Reverse::TT2Converter::Convert($parts); # named 'value1','value2',...more # try this!! use Template::Reverse; use Template::Reverse::Converter::TT2; use Data::Dumper; my $rev = Template::Reverse->new; # generating patterns automatically!! my $str1 = "I am perl and smart"; my $str2 = "I am khs and a perlmania"; my $parts = $rev->detect($str1, $str2); my $tt2 = Template::Reverse::Converter::TT2->new; my $temps = $tt2->Convert($parts); # equals and','and '] # spacing text for normalization. my $str3 = "I am king of the world and a richest man"; my $str3spaced = $rev->space($str3); # extract!! use Template::Extract; my $ext = Template::Extract->new; my $value = $ext->extract($temps->, $str3spaced); print Dumper($value); # output : {'value'=>'king of the world'} my $value = $ext->extract($temps->, $str3spaced); print Dumper($value); # output : {'value'=>'a richest man'}Product's homepage


Template::Reverse Related Software