#!/usr/bin/perl-l.-l../perllib ## PERL CODE TO DETECT PER CENT MATCHES BETWEEN TWO TEXTS(Original & matching): ## Test files: ## Original text: Poet Blake had a milky white cat. ## Matching text: Poet Blake had a white cat. use warnings; use strict; ## Input: my $original_text="Poet Blake had a milky white cat."; my $new="Poet Blake had a white cat."; # Line 10 ## Line 11 ???????? ### Code starts here: my $text=Text::Plagiarized->new; # Line 13 $text->original($original_text); foreach my $comparison (my @comparison_texts) { $text->comparison($comparison); $text->analyze; print $text->percent, $/; # percent of matching sentences if ($text->percent > my $some_threshold) { # Line 19 [my $sentence,my $possible_match] print Dumper($text->matches); } } exit; # Line 24