Template::ReverseA detector of different parts between pair of text | |
Download |
Template::Reverse Ranking & Summary
Advertisement
- 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