AI-MicroStructure
view release on metacpan or search on metacpan
AI::Categorizer::KnowledgeSet: '0'
AI::Categorizer::Learner::NaiveBayes: '0'
Algorithm::BaumWelch: '0'
AnyDBM_File: '0'
AnyEvent::Subprocess::Easy: '0'
Cache::Memcached::Fast: '0'
Carp: '0'
Class::Container: '0'
Config::Auto: '0'
Cwd: '0'
Data::Dumper: '0'
Data::Printer: '0'
Digest::MD5: '0'
Digest::SHA1: '0'
Exporter: '0'
Fcntl: '0'
File::Basename: '0'
File::Glob: '0'
File::HomeDir: '0'
File::Spec: '0'
Getopt::Long: '0'
Makefile.PL view on Meta::CPAN
"AI::Categorizer::KnowledgeSet" => 0,
"AI::Categorizer::Learner::NaiveBayes" => 0,
"Algorithm::BaumWelch" => 0,
"AnyDBM_File" => 0,
"AnyEvent::Subprocess::Easy" => 0,
"Cache::Memcached::Fast" => 0,
"Carp" => 0,
"Class::Container" => 0,
"Config::Auto" => 0,
"Cwd" => 0,
"Data::Dumper" => 0,
"Data::Printer" => 0,
"Digest::MD5" => 0,
"Digest::SHA1" => 0,
"Exporter" => 0,
"Fcntl" => 0,
"File::Basename" => 0,
"File::Glob" => 0,
"File::HomeDir" => 0,
"File::Spec" => 0,
"Getopt::Long" => 0,
Makefile.PL view on Meta::CPAN
"AI::Categorizer::KnowledgeSet" => 0,
"AI::Categorizer::Learner::NaiveBayes" => 0,
"Algorithm::BaumWelch" => 0,
"AnyDBM_File" => 0,
"AnyEvent::Subprocess::Easy" => 0,
"Cache::Memcached::Fast" => 0,
"Carp" => 0,
"Class::Container" => 0,
"Config::Auto" => 0,
"Cwd" => 0,
"Data::Dumper" => 0,
"Data::Printer" => 0,
"Digest::MD5" => 0,
"Digest::SHA1" => 0,
"Exporter" => 0,
"Fcntl" => 0,
"File::Basename" => 0,
"File::Glob" => 0,
"File::HomeDir" => 0,
"File::Spec" => 0,
"Getopt::Long" => 0,
#!/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;
bin/from-folder.pl view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use Env qw(PWD);
my ($TOP,$storage) ;
$TOP = $ARGV[0] unless(!@ARGV);
$storage = $ARGV[1] unless(!@ARGV);
$storage = "/tmp" unless($storage);
our $cache = {};
our $files={};
our $curSysDate = `date +"%F"`;
$curSysDate=~ s/\n//g;
bin/from-folder.pl view on Meta::CPAN
#p @out;
1;
package main;
$|++;
use strict;
use Fi le::Find;
use Data::Dumper;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
our $curSysDate = `date +"%F"`;
$curSysDate=~ s/\n//g;
our %opts = (cache_file =>
sprintf("/tmp/%s.cache",
$curSysDate));
GetOptions (\%opts, "cache_file=s");
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,
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:',
connect_timeout => 0.2,
io_timeout => 0.1,
close_on_error => 1,
#!/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);
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);
use Cache::Memcached::Fast;
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;
my $memd = new 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;
bin/micro-soundex view on Meta::CPAN
#!/usr/bin/perl
use File::Copy;
use Data::Dumper;
use Data::Printer;
sub soundex
{
p @_;
my $dir = `pwd | tr -d "\n"`;
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;
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;
perl=v5.14.1
File::HomeDir=0
AI::Categorizer::Document = 0
AI::Categorizer::KnowledgeSet = 0
AI::Categorizer::Learner::NaiveBayes = 0
AnyDBM_File = 0
AnyEvent::Subprocess::Easy = 0
Carp = 0
Config::Auto = 0
Cwd = 0
Data::Dumper = 0
Data::Printer = 0
Digest::MD5 = 0
Digest::SHA1 = 0
Exporter = 0
Fcntl = 0
File::Basename = 0
File::Glob = 0
File::Spec = 0
Getopt::Long = 0
HTML::SimpleLinkExtor = 0
lib/AI/MicroStructure.pm view on Meta::CPAN
package AI::MicroStructure;
use strict;
use warnings;
use Carp;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);
use Try::Tiny;
use File::Basename;
use File::Spec;
use File::Glob;
use Data::Dumper;
use Data::Printer;
use AI::MicroStructure::Util;
use Carp qw(croak);
our $absstructdir = "";
our $structdir = "";
our $VERSION = '0.20';
our $Structure = 'any'; # default structure
our $CODESET = 'utf8';
our $LANG = '';
our %MICRO;
t/micro-test.pl view on Meta::CPAN
#!/usr/bin/perl -X
use strict;
use warnings;
use AI::MicroStructure;
use Data::Printer;
use Data::Dumper;
my $h = AI::MicroStructure->new( 'germany', category => 'Dresden' );
my $h = Dumper $h->name();
p $h;
1;
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';#tests =>12;
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use AI::MicroStructure;
use AI::MicroStructure::Object;
use AI::MicroStructure::ObjectSet;
use AI::MicroStructure::Context;
use Search::ContextGraph;
use Env qw(PWD);
#print Dumper join "-", soundex(("rock'n'roll", 'rock and roll', 'rocknroll'));
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';#tests =>12;
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use AI::MicroStructure;
#use AI::MicroStructure::Object;
use AI::MicroStructure::ObjectSet;
#use AI::MicroStructure::ObjectParser;
use Env qw(PWD);
#print Dumper join "-", soundex(("rock'n'roll", 'rock and roll', 'rocknroll'));
#p @out;
1;
package main;
$|++;
use strict;
use File::Find;
use Data::Dumper;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
our $curSysDate = `date +"%F"`;
$curSysDate=~ s/\n//g;
our %opts = (cache_file =>
sprintf("/tmp/%s.cache",
$curSysDate));
GetOptions (\%opts, "cache_file=s");
use Data::Dumper;
use Test::More tests => 6;
use strict;
use AI::MicroStructure;
AI::MicroStructure->add_structure(
ams_test_beatles => [ qw(john paul george ringo) ]
);
my $fab4 = AI::MicroStructure::ams_test_beatles->new();
#!/usr/bin/perl -w
use Data::Dumper;
use strict;
use Test::More 'no_plan';#tests =>12;
use strict;
my $list = << 'EOT';
* foo
* bar
* baz
#!/usr/bin/perl -w
use Search::ContextGraph;
use Test::More 'no_plan';
use Data::Dumper;
use Env qw(PWD);
#use blib;
my %docs = (
'First Document' => { 'elephant' => 2, 'snake' => 1 },
'Second Document' => { 'camel' => 1, 'pony' => 1 },
'Third Document' => { 'snake' => 2, 'constrictor' => 1 },
);
use strict;
use warnings;
use Data::Dumper;
use Storable::CouchDB;
use Test::More tests =>8;
BEGIN {
use_ok('LWP');
use_ok('Storable::CouchDB');
my $s = Storable::CouchDB->new;
( run in 1.036 second using v1.01-cache-2.11-cpan-a5abf4f5562 )