Yet Another CPAN Grep

Text-Distill ( G/GR/GRIBUSER/Text-Distill-0.5.tar.gz, GRIBUSER, 2020; MetaCPAN )

Text-Distill/script/plagiarism_check.pl ( view source; MetaCPAN )

okFormat TextToGems GemsValidate ExtractSingleZipFile);
use Getopt::Long;
use LWP::UserAgent;
use JSON::XS;
use Data::Dumper;

binmode STDOUT, ":utf8";

my %OPT;
GetOptions(
	'help' => \$OPT{'help'},

ems = TextToGems($Text);

my $Result = GemsValidate($Gems, $Url);

if ($OPT{'fullinfo'}) {
	print JSON::XS->new->pretty(1)->encode($Result);
} else {
	print $Result->{'verdict'}."\n";
}

sub help {

Text-Distill ( G/GR/GRIBUSER/Text-Distill-0.5.tar.gz, GRIBUSER, 2020; MetaCPAN )

Text-Distill/lib/Text/Distill.pm ( view source; MetaCPAN )

ct;
use Encode;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Carp;
use LWP::UserAgent;
use JSON::XS;
use File::Temp;
use URI::Escape;

Archive::Zip::setErrorHandler(sub{});

our (@ISA, @EXPORT_

(5);
  my $Response = $ua->post( $Url, {gems => join ",",@$Gems});

  my $Result;
  return decode_json( $Response->decoded_content ) if $Response->is_success;
  die $Response->status_line;
}

# EXTRAC

 or later);
 Unicode::Normalize (v1.25 or later);
 Archive::Zip
 Encode;
 Carp;
 LWP::UserAgent;
 JSON::XS;
 File::Temp;

=head1 SCRIPTS

=head2 plagiarism_check.pl - checks your ebook againts known t