« 01.10 学費も3倍ですか | ココ | 01.12 続・SOAP::Liteめぇ »
2008年1月11日
SOAP::Liteめぇ
#!/usr/local/bin/perl
use SOAP::Lite;
$wsdl = 'http://soap.genome.jp/KEGG.wsdl';
$serv = SOAP::Lite->service($wsdl);
$offset = 1;
$limit = 5;$top5 = $serv->get_best_neighbors_by_gene('eco:b0002', $offset, $limit);
foreach $hit (@{$top5}) {
print "$hit->{genes_id1}\t$hit->{genes_id2}\t$hit->{sw_score}\n";
}1;
KEGGの解説そのままなんですが。
確かに普通にやると、うまくいく。
$perl keggtest.pl
eco:b0002 ecv:APECO1_1976 5283
eco:b0002 ecp:ECP_0002 5283
eco:b0002 eci:UTI89_C0002 5283
eco:b0002 eco:b0002 5283
eco:b0002 ecj:JW0001 5283
しかし、-Tスイッチを付けて動かすと…
$perl -T keggtest.pl
Insecure dependency in eval while running with -T switch at /usr/local/lib/perl5/site_perl/5.8.8/SOAP/Lite.pm line 2964.
えぇーっ!?
局所的にtaintモードを切ったりとかできんのだろうか…。てか、今までこんな問題に出くわした人とかっていないんだろうか。回避策があるなら教えて欲しい、切に。
別のCGIを作ってそいつを使うことにする、とかいう方法は抜きで。
By ただ at 19:23 カテゴリー ; mein Erbe , 仕事関係
« 01.10 学費も3倍ですか |
01月の記事
| 01.12 続・SOAP::Liteめぇ »
トラックバック
このエントリーのトラックバックURL:
http://pinmarch.sakura.ne.jp/mt/mt-tb.cgi/1178