完整图文版 http://blog.leezhenyu.com/2014/01/neo4j-perl-and-cgi.html ******* 这周末尝试做一些Neo4j的网页介面整合。 因为资料库最终还是需要有前端的查询介面。 测试了很多的Neo4j函式库，最後还是选择Perl。 Python的Django我不会，现在也没空学。 Ruby的部份，我已经忘了RoR（Ruby on Rails）。 用Perl配合CGI的作法还是容易许多。 首先要做的，是安装Neo4j的Perl函式库。 用CPAN安装就好，进入CPAN的指令介面後： install REST::Neo4p 就会开始安装所有必要套件，编译并且测试。 另外，Apache2网页伺服器也要开启CGI的支援， 主要是修改设定档，指定CGI程式的目录。 以Ubuntu为例，要修改的是/etc/apache2/sites-available/default 加上cgi执行目录的定义与允许的副档名 ScriptAlias /cgi-bin/ /var/www/cgi-bin/ <Directory /var/www/cgi-bin/> Options ExecCGI AddHandler cgi-script cgi pl </Directory> 以上面范例，要建一个cgi-bin的资料夹在/var/www目录下 （这是Ubuntu预设的网页根目录） 之後记得要重开Apache2伺服器 指令是sudo /etc/init.d/apache2 restart 安装并设定好了以後，先用简单的Perl程式来测试一下。 主要是验证资料库的连接没有问题。 我先在资料库主机端测试，避免一些意外状况。 就建立一个Perl的档案，然後包含以下的程式码内容： #!/usr/bin/perl -w #呼叫必要的函式库，特别是Neo4p use REST::Neo4p; use strict; use warnings; #建立一个与资料库伺服器的连线 REST::Neo4p->connect('http://127.0.0.1:7474'); #建立一个查询的物件 my $query = REST::Neo4p::Query->new( ' match(peptide)-[:HOST_IN]->({name:"Bos taurus"}) return peptide' #把Cypher语法写在括弧里面 ); #送出查询 $query->execute; print "Show me which peptide host in \"Bos taurus\"?\n"; while (my $result = $query->fetch) { #查询的结果被回传，开始Parse结果的JSON档案 print $result->[0]->get_property('name')."\n"; } 不意外，经过Perl跟Neo4j管理介面回传的结果都一致 但是我还想知道上面那个案例的回传矩阵是怎麽运作。 经过了解之後，写了一个稍微复杂的查询追踪程式逻辑。 #!/usr/bin/perl -w use REST::Neo4p; use strict; use warnings; REST::Neo4p->connect('http://127.0.0.1:7474'); print "The sequence of Chrombacin?\n"; #特别要看的部份是以下 my $query2 = REST::Neo4p::Query->new( 'match (peptide {name:"Chrombacin"})-[:HAS_SEQUENCE]->(sequence) return peptide,sequence' ); #尤其是这里 $query2->execute; while (my $result2 = $query2->fetch) { print $result2->[0]->get_property('name')."\n"; print $result2->[1]->get_property('seq')."\n"; } 现在要回传的有两个值（查询结果）：peptide跟sequence $result2基本上是一个被parse过的阵列集合 $query2是经由Web Service回传的JSON档案 所以阵列集合里按照顺序，peptide就是[0]，sequence是[1] 至於Properties的部份，对应的name跟seq。 是Node的属性设定，这在建立节点时就已经定义了。 执行看看这个perl script，结果符合预期。 现在要把Perl用CGI的方式执行，看看能不能成功用网页展示结果。 把同样perl script复制到/var/www/cgi-bin里面。 开启浏览器看看结果，竟然出现错误了。 查看其他可以运作的Perl CGI范例。 发现我少了网页伺服器可以剖析的元件。 Perl的输出要符合HTML跟浏览器的规范啊！ 主要是MIME的定义。 所以一开始要先输出这一行： print "Content-type: text/html\n"; 然後其他要用HTML显示的元素也要符合语法。 例如说换行的部份，就要输出<br>的标签。 单单是"\n"并没有用，只有Perl知道。 HTML的换行是<br/>才对 小改一下perl script内容，存档之後重开就有了。 也请记得这个pl档案要赋予执行的权限。 sudo chmod +x case.pl ******* 以上，Perl跟Neo4j就是这麽简单。 附上官方的参考资料 -- http://blog.leezhenyu.com Technology, Study, Food, Travel --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 137.132.121.245