AI-MicroStructure

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  File::Basename: '0'
  File::Glob: '0'
  File::HomeDir: '0'
  File::Spec: '0'
  Getopt::Long: '0'
  HTML::SimpleLinkExtor: '0'
  HTML::Strip: '0'
  HTTP::Request::Common: '0'
  IO::Async::Loop: '0'
  IO::File: '0'
  JSON: '0'
  JSON::XS: '0'
  LWP::UserAgent: '0'
  Lingua::StopWords: '0'
  List::Util: '0'
  Mojolicious: '0'
  Net::Async::WebSocket::Server: '0'
  Parallel::Iterator: '0'
  Params::Validate: '0'
  Search::ContextGraph: '0'
  Statistics::Basic: '0'
  Statistics::Contingency: '0'

Makefile.PL  view on Meta::CPAN

    "File::Basename" => 0,
    "File::Glob" => 0,
    "File::HomeDir" => 0,
    "File::Spec" => 0,
    "Getopt::Long" => 0,
    "HTML::SimpleLinkExtor" => 0,
    "HTML::Strip" => 0,
    "HTTP::Request::Common" => 0,
    "IO::Async::Loop" => 0,
    "IO::File" => 0,
    "JSON" => 0,
    "JSON::XS" => 0,
    "LWP::UserAgent" => 0,
    "Lingua::StopWords" => 0,
    "List::Util" => 0,
    "Mojolicious" => 0,
    "Net::Async::WebSocket::Server" => 0,
    "Parallel::Iterator" => 0,
    "Params::Validate" => 0,
    "Search::ContextGraph" => 0,
    "Statistics::Basic" => 0,
    "Statistics::Contingency" => 0,

Makefile.PL  view on Meta::CPAN

  "File::Basename" => 0,
  "File::Glob" => 0,
  "File::HomeDir" => 0,
  "File::Spec" => 0,
  "Getopt::Long" => 0,
  "HTML::SimpleLinkExtor" => 0,
  "HTML::Strip" => 0,
  "HTTP::Request::Common" => 0,
  "IO::Async::Loop" => 0,
  "IO::File" => 0,
  "JSON" => 0,
  "JSON::XS" => 0,
  "LWP::UserAgent" => 0,
  "Lingua::StopWords" => 0,
  "List::Util" => 0,
  "Mojolicious" => 0,
  "Net::Async::WebSocket::Server" => 0,
  "Parallel::Iterator" => 0,
  "Params::Validate" => 0,
  "Search::ContextGraph" => 0,
  "Statistics::Basic" => 0,
  "Statistics::Contingency" => 0,

bin/chrono  view on Meta::CPAN

#!/usr/bin/env perl
use warnings;
use Data::Printer;
use JSON;
use Try::Tiny;
use File::Copy;
use Data::Dumper;

my $file = shift;
my $encoder = JSON->new->allow_blessed->pretty(0);

sub soundex
{

    #my $dir = shift;
    my $file = shift;
    push @_,$file;
    local( @res ) = map {$_=$_}@_; local($i, $t,$_);
    for ( @res ) { tr/a-zA-Z//cd; tr/a-zA-Z/A-ZA-Z/s;
        ($i,$t) = /(.)(.*)/;

bin/getcat.pl  view on Meta::CPAN

#!/usr/bin/env perl
use File::Find::Rule;
use strict;
use warnings;
use JSON;
use Cache::Memcached::Fast;
use Try::Tiny;
use Data::Dumper;
use Digest::MD5 qw(md5 md5_hex md5_base64);

our $memd = new Cache::Memcached::Fast({
 servers => [ { address => 'localhost:11211', weight => 2.5 }],
 namespace => 'my:',
 connect_timeout => 0.2,
 io_timeout => 0.1,
 close_on_error => 1,
 compress_threshold => 100_000,
 compress_ratio => 0.9,
 max_failures => 1,
 max_size => 512 * 1024,
});



our $all = {};
our $json = JSON->new->allow_nonref;

sub mytry{
  my $cmd = shift;

try {

  #if($cmd){
  my @ret = split "\n",`$cmd`;

  return [@ret];

bin/localfiles  view on Meta::CPAN

#!/usr/bin/env perl
use File::Find::Rule;
use strict;
use warnings;
use JSON;
use Cache::Memcached::Fast; 
use AI::MicroStructure;
use Data::Dumper;

my $data={};


our $memd = new Cache::Memcached::Fast({
 servers => [ { address => 'localhost:11211', weight => 2.5 }],
 namespace => 'my:',

bin/micro  view on Meta::CPAN

#!/usr/bin/perl -X

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
use AI::MicroStructure::Util;
use Getopt::Long;
use AI::MicroStructure;
use Data::Printer;
use Data::Dumper;
use JSON::XS;
use Try::Tiny;
use Cache::Memcached::Fast;
my %conf = ( );
our $keys = {};
GetOptions( \%conf, "whitespace|ws!", "version","structures", "help", "remote","new",
                    "init", "export", "import",
                    "check", "category=s", "sources" ,"drop");

our ($new, $write,$drop,$all,$verbose) =(0,0,0,0,0);
our $kkey = sprintf "%s",join("_",@ARGV);

bin/micro-relation  view on Meta::CPAN

#!/usr/bin/perl -X

use JSON;
use JSON::XS;
use Data::Printer;
use Data::Dumper;
use WWW::Wikipedia;
use Try::Tiny;
my $lang =  $ENV{MICRO_LANG} || "en" ;

my $wiki = WWW::Wikipedia->new(language => $lang);

bin/micro-relation-test  view on Meta::CPAN

#!/usr/bin/perl -X

use JSON;
use JSON::XS;
use Data::Printer;
use Data::Dumper;
use WWW::Wikipedia;
use Try::Tiny;
my $lang =  $ENV{MICRO_LANG} || "en" ;

my $wiki = WWW::Wikipedia->new(language => $lang);


use Cache::Memcached::Fast;

bin/micro-sense  view on Meta::CPAN

#!/usr/bin/perl -X
use strict;
use AnyDBM_File;
use Fcntl;
use Data::Dumper;
use JSON;
use AI::MicroStructure::WordBlacklist;


my @set;
my $data = {};
my %structure;
my $fresh=1;
my $wn;
my $debug = 0;
my $words = 1;

bin/micro-wiki  view on Meta::CPAN

#!/usr/bin/perl -w
use utf8;
use File::Basename;
use Data::Printer;
use Data::Dumper;
use Parallel::Iterator qw( iterate );
use Env qw/PWD/;
use JSON::XS;
use HTML::Strip;
use AI::MicroStructure::Util;
use WWW::Wikipedia;
use LWP::UserAgent;
use HTML::SimpleLinkExtor;
use URI::Escape qw( uri_unescape );
our $e = HTML::SimpleLinkExtor->new;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

dist.ini  view on Meta::CPAN

Fcntl = 0
File::Basename = 0
File::Glob = 0
File::Spec = 0
Getopt::Long = 0
HTML::SimpleLinkExtor = 0
HTML::Strip = 0
HTTP::Request::Common = 0
IO::Async::Loop = 0
IO::File = 0
JSON = 0
JSON::XS = 0
LWP::UserAgent = 0
Lingua::StopWords = 0
List::Util = 0
Net::Async::WebSocket::Server = 0
Parallel::Iterator = 0
Params::Validate = 0
Statistics::Basic = 0
Statistics::Contingency = 0
Statistics::Descriptive = 0
Statistics::Distributions::Ancova = 0

lib/AI/MicroStructure.pm  view on Meta::CPAN

if($help) {
    printf(__PACKAGE__->help());
    exit(0);
}
if($drop == 1) {
   __PACKAGE__->drop($StructureName);
   exit 0;
}
if($new==1){
  use Term::ReadKey;
  use JSON;
  my $data = decode_json(lc`micro-sense $StructureName words`);
  my $char;
  my $line;
  my $senses=@{$data->{"senses"}};
   $senses= 0 unless($senses);
 if(!$verbose){
  printf("\n
  \033[0;34m
  %s
  Type: the number you choose 1..$senses