« 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