The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
AI-MicroStructure-0.17
River stage zero No dependents
++
/ AI::MicroStructure

NAME

  AI::MicroStructure

DESCRIPTION

  Creates Concepts for words

SYNOPSIS

  ~$ micro new world

  ~$ micro structures

  ~$ micro any 2

  ~$ micro drop world

  ~$ micro

AUTHOR

  Hagen Geissler <santex@cpan.org>

COPYRIGHT AND LICENCE

  Hagen Geissler <santex@cpan.org>

SUPPORT AND DOCUMENTATION

 [sample using concepts](http://quantup.com)

 [PDF info on my works](https://github.com/santex)

SEE ALSO

  AI-MicroStructure
  AI-MicroStructure-Cache
  AI-MicroStructure-Deamon
  AI-MicroStructure-Relations
  AI-MicroStructure-Concept
  AI-MicroStructure-Data
  AI-MicroStructure-Driver
  AI-MicroStructure-Plugin-Pdf
  AI-MicroStructure-Plugin-Twitter
  AI-MicroStructure-Plugin-Wiki

__DATA__

our $VERSION = '0.014'; our $Structure = 'any'; # default structure our $CODESET = 'utf8'; our $LANG = ''; our %MICRO; our %MODS; our %ALIEN; our $str = "[A-Z]"; our $special = "any"; our $search; our $data={}; our $item=""; our @items; our @a=();

our ($new, $write,$drop) =(0,0,0);

my $state = AI::MicroStructure::util::load_config(); my @CWD=$state->{cwd}; my $config=$state->{cfg}; our $structdir = "structures"; our $absstructdir = "$CWD[0]/$structdir";

if( grep{/\bnew\b/} @ARGV ){ $new = 1; cleanArgs("new"); } if( grep{/\bwrite\b/} @ARGV ){ $write = 1; cleanArgs("write"); }; if( grep{/\bdrop\b/} @ARGV ){ $drop = 1; cleanArgs("drop"); };

our $StructureName = $ARGV[0]; # default structure our $structure = $ARGV[0]; # default structure

########################################################################## cat $dir/* | egrep -v "(our|my|use|sub|package)" | egrep -i "(instance|animal|whale|mammal|sea)$" | egrep "^ [1]:" 1: andaman_sea 1: swansea 1: domesticanimal 1: fictionalanimal 1: marineanimal

cat $dir/* | egrep -v "(our|my|use|sub|package)" | egrep -i "(instance|animal|whale|mammal|sea)$" | data-freq | egrep -v "^ [1]:" 84: animal 26: mammal 25: eutherian_mammal 25: placental_mammal 12: domesticated_animal 11: domestic_animal 6: predatory_animal 6: sea_animal 5: fictional_animal 5: marine_animal 5: range_animal 5: work_animal 5: hoofed_mammal 3: artiodactyl_mammal 2: perissodactyl_mammal 2: instance 2: moss_animal 2: anglesea 2: female_mammal 2: fossorial_mammal 2: mediterranean_sea 2: aquatic_mammal 2: cetacean_mammal 2: toothed_whale 2: whale