CPAN::Groonga

!/usr/bin/perl
#词词距离计算
#输入为：
#老虎
#鲜花
#月亮
#狮子
 use POSIX;
#use JSON::XS;
 use Clone qw(clone);




use MongoDB;
use Smart::Comments;
use lib "/home/wyb/shell/";
#use

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
#use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://p

    Explore using serializer and adaptor objects.

    Add some docs re choosing ActiveModel vs JSONAPI vs HAL even if just links
    Eg see http://discuss.emberjs.com/t/should-we-keep-using-ember-d

ta/7405/10

    Add tests and docs for RouteMaker make_routes_for args and options

    TODOs for JSON API:
    - provide "links" separately to prefetch logic
    - support collection urls, e.g. /phot

pplication/vnd.api+json media type
    - support updating resources via the application/vnd.api+json media type
    - support updating relationships via the application/vnd.api+json media type

    Te

ect;
use IO::Socket::INET;
use lib "./";
use plugin_eng;
use POE qw(Component::Server::TCP);
#use JSON::XS;
 use Clone qw(clone);
use Encode;

#$tt=seg_txt("我的西瓜很大");
#print $tt."222222222

 Tree::Simple;
use Socket;
use IO::Handle;
use IO::Select;
use IO::Socket::INET;
 use POSIX;
#use JSON::XS;
use Smart::Comments;
 use Clone qw(clone);
use POE qw(Component::Server::TCP);



use lib "/

#!/usr/bin/perl
use Encode;
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "./";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://poe.per

#!/usr/bin/perl
#use Algorithm::Kmeanspp;
#use JSON::XS;
 use Clone qw(clone);



#use MongoDB;
use Smart::Comments;
#use lib "/home/wuyabo/shell/";
#use Conn_mongo_jc;
use Data::Dumper;
#use IO::File

ect;
use IO::Socket::INET;
use lib "./";
use plugin_eng;
use POE qw(Component::Server::TCP);
#use JSON::XS;
 use Clone qw(clone);
use Encode;





#use MongoDB;
use Smart::Comments;
#use Conn_mongo_jc

!/usr/bin/perl
#词词距离计算
#输入为：
#老虎
#鲜花
#月亮
#狮子
 use POSIX;
#use JSON::XS;
 use Clone qw(clone);




use MongoDB;
use Smart::Comments;
use lib "/home/wyb/shell/";
#use

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wyb/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://poe.p

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://po

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://po

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wyb/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://poe.p

 an incoming connection to a server

=head1 VERSION

version 0.006

=head1 DESCRIPTION

=cut

use JSON::MaybeXS;

use URI::QueryParam;
use IO::Async::Timer::Countdown;

use Encode qw(encode);
use Prot

;

=head2 CONTENT_TYPE_HANDLER

=cut

our %CONTENT_TYPE_HANDLER = (
	'application/javascript' => 'json',
);

use constant USE_HTTP_RESPONSE => 0;

=head1 METHODS

=cut

=head2 configure

Applies confi

ntent_handler { shift->{default_content_handler} }

=head2 json

Accessor for the current JSON state

=cut

sub json { shift->{json} ||= JSON::MaybeXS->new(utf8 => 1) }

=head2 on_read

Base read hand

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;

open(FDst,"s

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wyb/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://poe.p

ect;
use IO::Socket::INET;
use lib "./";
use plugin_eng;
use POE qw(Component::Server::TCP);
#use JSON::XS;
 use Clone qw(clone);
use Encode;

#$tt=seg_txt("我的西瓜很大");
#print $tt."222222222

#!/usr/bin/perl
use JSON::XS;
use Encode;
use Data::Dumper;
use strict;
use warnings;

my $content = "这是一段中文内容";

print "转码前的内部表示：\n";
print Dumper $content, "\n";
pr

int "转码前的JSON：\n";
print JSON::XS->new->utf8->encode({
    content => $content
}), "\n";


# 对内容做一次转码就可以正常输出JSON了
$content = decode("utf-8", $content);
print 

"转码后的内部表示：\n";
print Dumper $content, "\n";
print "转码后的JSON：\n";
print JSON::XS->new->utf8->encode({
    content => $content
}), "\n";

#!/usr/bin/perl
use Algorithm::Kmeanspp;
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#us

#!/usr/bin/perl
#use JSON::XS;
 use Clone qw(clone);



use MongoDB;
use Smart::Comments;
use lib "/home/wuyabo/shell/";
use Conn_mongo_jc;
use Data::Dumper;
use IO::File;
#use Add_info;


# http://po