版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

下一頁(yè)

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

[求助] Perl 編程請(qǐng)大神們幫忙�。�！生物信息的牛人請(qǐng)進(jìn)

我是學(xué)生物的研究生，我們一個(gè)老師講perl編程，才學(xué)了10個(gè)小時(shí)，本人對(duì)編程一竅不通，希望好心人幫忙解答，謝謝了�。�！
下面是我的編程：
Develop a Perl program that receives as argument on the command linethe id of a nucleotide sequence (in the form db:id) and invokes the"sixpack" Web Service from EBI printing its result.

回復(fù)此樓

» 猜你喜歡

0856調(diào)劑，是學(xué)校就去已經(jīng)有7人回復(fù)
0817 化學(xué)工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章已經(jīng)有14人回復(fù)
申博26年已經(jīng)有3人回復(fù)
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑已經(jīng)有10人回復(fù)
0703化學(xué)調(diào)劑，六級(jí)已過(guò)，有科研經(jīng)歷已經(jīng)有12人回復(fù)
294求調(diào)劑材料與化工專碩已經(jīng)有13人回復(fù)
288求調(diào)劑已經(jīng)有14人回復(fù)
307求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑已經(jīng)有5人回復(fù)
288求調(diào)劑，一志愿華南理工大學(xué)071005 已經(jīng)有5人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

大神們，幫忙認(rèn)一下這些植物！謝謝先！已經(jīng)有14人回復(fù)
懂圖位克隆的請(qǐng)進(jìn) 已經(jīng)有3人回復(fù)
用過(guò)亞磷酸三乙酯的牛人請(qǐng)進(jìn) 已經(jīng)有6人回復(fù)
ANSYS14.0的大神們進(jìn)～～已經(jīng)有20人回復(fù)
perl程序求助，請(qǐng)大神們賜教~~~ 已經(jīng)有9人回復(fù)
perl程序求大神加以修改~~ 已經(jīng)有8人回復(fù)
請(qǐng)幫忙編寫一個(gè)perl程序處理文本已經(jīng)有26人回復(fù)
請(qǐng)各位大神過(guò)來(lái)....幫幫小弟�。。。。。。。。。。。。。。。。。。。。。�！已經(jīng)有5人回復(fù)
計(jì)算機(jī)圖形學(xué)中用VC++6.0編程實(shí)現(xiàn)AUTOCAD中ERASE命令已經(jīng)有3人回復(fù)
【求助】請(qǐng)教一個(gè)Perl語(yǔ)言的編程，謝謝！已經(jīng)有3人回復(fù)
【求助】(⊙o⊙)…大神們，幫我看看好不，拜托啦已經(jīng)有3人回復(fù)
編輯意見，請(qǐng)大俠幫忙已經(jīng)有15人回復(fù)

1樓 2012-01-30 22:29:56

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖置頂 ( 共有2個(gè) )

zhusheng303

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3137.3
帖子: 68
在線: 45.6小時(shí)
蟲號(hào): 880479
注冊(cè): 2009-10-22
性別: GG
專業(yè): 生物信息學(xué)

★
ben_ladeng(金幣+1): 歡迎常來(lái) 2012-01-31 13:58:28
xueshuhan: 回帖置頂 2012-01-31 16:46:17

引用回帖:

3樓: Originally posted by xueshuhan at 2012-01-31 02:03:29:
前一半這樣寫是否正確：
#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;

if ( $#ARGV < 0 )
{
print "Usage: please input "; exit;
}
# Get the first argumentmy
...

【1】當(dāng)你使用”use strict; use warnings ”, 語(yǔ)句"$input=$ARGV[0];"應(yīng)該寫成“my $input=$ARGV[0]”，“my”定義變量的作用，限定變量的作用域。
【2】“die ( There is an error there.\n )”，最好寫成“die （There is an error there.\n )；”。
【3】“if ( $ARGV[0]<>1 ) ” 這個(gè)語(yǔ)句，我沒有看懂。

贊一下(1人)

回復(fù)此樓

積極面對(duì)

4樓2012-01-31 10:13:09

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

xueshuhan: 回帖置頂 2012-02-02 09:18:42

在多位朋友幫助下終于寫好了，下面是perl ：
#!/usr/bin/perl -w
use strict;
use SOAP::Lite;

my($USAGE) = "$0 PROTEIN\n\n";

unless (@ARGV)
      {
            print $USAGE;
            exit;
      }

unless (@ARGV==1)
      {
            print "There is an error.\n";
      exit;
      }

my($sequence) = $ARGV[0];

unless ($sequence =~ /[:]/g)
      {
            print "There is another error\n";
      }

my($service) = SOAP::Lite->proxy(

'http://www.ebi.ac.uk/soaplab/services/nucleic_gene_finding.sixpack'
);

my($soap_response) =
      $service->runAndWaitFor(
            SOAP:

ata->type( map => { sequence_usa =>$sequence
} ) );

my(@res) = $soap_response->paramsout;

my($res) = $soap_response->result;

my($outfile) = %$res->{'outfile'};

print "$outfile\n";

exit;

贊一下

回復(fù)此樓

10樓2012-02-02 09:18:06

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

-It checks the number of arguments received on the command line and if the number is not 1 it prints an error message and exits.
-It assigns the first argument to one variable.
-It checks with a pattern matching that the variable contains the
character ":". If not it prints an error message.
-It calls the "sixpack" Web Service as in the examples seen in class passing the received variable.
-It assigns to a variable the "outfile" returned by the service.
-It prints this variable.

贊一下

回復(fù)此樓

2樓2012-01-30 22:31:01

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

前一半這樣寫是否正確：
#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;

if ( $#ARGV < 0 )
{
print "Usage: please input "; exit;
}
# Get the first argumentmy
if ( $ARGV[0]<>1 )
{
print "There is an error there"; exit;
}
$input=$ARGV[0];
unless ( $ input =~ m/:/ ）
{
die ( There is an error there.\n )
}

贊一下

回復(fù)此樓

3樓2012-01-31 02:03:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

這回寫是否正確，還有就是網(wǎng)絡(luò)服務(wù)調(diào)用部分如何編寫？？？
#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;

if ( $#ARGV < 0 )
{
print "Usage: please input "; exit;
}
# Get the first argumentmy
if ( $ARGV[0]!=1 )
{
print "There is an error there"; exit;
}
my $input=$ARGV[0];
unless ( $ARGV[0]=~ m/:/ ）
{
die ( "There is an error there.\n" )
}

贊一下

回復(fù)此樓

5樓2012-01-31 16:42:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

我寫的這個(gè)問(wèn)題，但不知道怎么改
問(wèn)題一：如何讓第一個(gè)argument需要為變量
問(wèn)題二：為什么我在命令欄里輸入核苷酸的ID卻提示命令沒有找到
#!/usr/bin/perl
use warnings;
use SOAP::Lite;

if ( $#ARGV < 0 )
{
print "Usage: please input\n "; exit;
}
# Get the first argumentmy
if ( $ARGV[0]!=1 )
{
print "There is an error there"; exit;
}

$input=$ARGV[0];

unless ( $ARGV[0]=~ m/:/ ）
{
die ( "There is an error there.\n" );
}

$service = SOAP::Lite->proxy(
      'http://www.ebi.ac.uk/soaplab/services/dispaly.sixpack'
);

$soap_response =
      $service->runAndWaitFor(
            SOAP:

ata->type( map => { sequence_usa =>$ARGV[0]
} ) );

@res = $soap_response->paramsout;

$res = $soap_response->result;

$outfile = %$res->{'outfile'};

print "$outfile\n";

圖一

贊一下

回復(fù)此樓

6樓2012-01-31 18:49:35

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時(shí)
蟲號(hào): 1538750
注冊(cè): 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

引用回帖:

樓: Originally posted by zhusheng303 at 2012-01-31 10:13:09:
【1】當(dāng)你使用”use strict; use warnings ”, 語(yǔ)句"$input=$ARGV[0];"應(yīng)該寫成“my $input=$ARGV[0]”，“my”定義變量的作用，限定變量的作用域。
【2】“die ( There is an error there.\n )”，最 ...

謝謝你的幫助，還有一些問(wèn)題請(qǐng)教，望指教

贊一下

回復(fù)此樓

7樓2012-01-31 18:50:50

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhusheng303

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3137.3
帖子: 68
在線: 45.6小時(shí)
蟲號(hào): 880479
注冊(cè): 2009-10-22
性別: GG
專業(yè): 生物信息學(xué)

引用回帖:

5樓: Originally posted by xueshuhan at 2012-01-31 16:42:45:
這回寫是否正確，還有就是網(wǎng)絡(luò)服務(wù)調(diào)用部分如何編寫？？？
#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;

if ( $#ARGV < 0 )
{
print "Usage: please input "; exit;
...

這里還有一個(gè)地方不對(duì)，
#######
unless ( $ARGV[0]=~ m/:/ ）
      {
            die ( "There is an error there.\n" )
      }

############
這個(gè)語(yǔ)句“die ( "There is an error there.\n" )”，你最好寫成
die  "There is an error there.\n" ；另外一個(gè)最重要的問(wèn)題是：perl的每個(gè)語(yǔ)句必須以”；（分號(hào)）“結(jié)束。也就說(shuō)：應(yīng)該寫成這樣 “die  "There is an error there.\n" ；”才是對(duì)的。

贊一下

回復(fù)此樓

積極面對(duì)

8樓2012-02-01 10:37:12

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhusheng303

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 3137.3
帖子: 68
在線: 45.6小時(shí)
蟲號(hào): 880479
注冊(cè): 2009-10-22
性別: GG
專業(yè): 生物信息學(xué)

引用回帖:

6樓: Originally posted by xueshuhan at 2012-01-31 18:49:35:
我寫的這個(gè)問(wèn)題，但不知道怎么改
問(wèn)題一：如何讓第一個(gè)argument需要為變量
問(wèn)題二：為什么我在命令欄里輸入核苷酸的ID卻提示命令沒有找到
#!/usr/bin/perl
use warnings;
use SOAP::Lite;

if ( $#ARGV &l ...

【1】問(wèn)題一：如何讓第一個(gè)argument需要為變量
Use $ARGV[n] to display argument.
Use $#ARGV to get total number of passed argument to a perl script.
例如：./foo.pl one two three
$ARGV[0]：one
$ARGV[1]: two
$ARGV[2]: three
【2】問(wèn)題二：為什么我在命令欄里輸入核苷酸的ID卻提示命令沒有找到
不好意思，這個(gè)我也沒有用過(guò)。這個(gè)網(wǎng)頁(yè)你可以看看http://www.ebi.ac.uk/Tools/webse ... perl/soap/soap-lite，希望對(duì)你有幫助

贊一下

回復(fù)此樓

積極面對(duì)

9樓2012-02-01 11:01:49

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 xueshuhan 的主題更新

返回列表

下一頁(yè)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑 +5	1孫悟空 2026-03-17	5/250	2026-03-19 18:03 by zcl123
[考博] 東華理工大學(xué)化材專業(yè)26屆碩士博士申請(qǐng) +8	zlingli 2026-03-13	8/400	2026-03-19 16:32 by 輕松不少隨
[考研] 266求調(diào)劑 +5	陽(yáng)陽(yáng)哇塞 2026-03-14	10/500	2026-03-19 15:08 by 陽(yáng)陽(yáng)哇塞
[考研] 085600材料與化工調(diào)劑 324分 +10	llllkkkhh 2026-03-18	12/600	2026-03-19 14:33 by llllkkkhh
[考研] 0703化學(xué)調(diào)劑 +5	pupcoco 2026-03-17	8/400	2026-03-19 13:58 by houyaoxu
[考研] 085600材料與化工求調(diào)劑 +6	緒幸與子 2026-03-17	6/300	2026-03-19 13:27 by houyaoxu
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +10	秋有木北 2026-03-14	10/500	2026-03-19 05:52 by anny19840123
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +4	守候夕陽(yáng)CF 2026-03-18	4/200	2026-03-18 22:16 by li123456789.
[考研] 材料專業(yè)求調(diào)劑 +5	hanamiko 2026-03-18	5/250	2026-03-18 20:19 by 星空星月
[考研] 311求調(diào)劑 +11	冬十三 2026-03-15	12/600	2026-03-18 14:36 by 星空星月
[考博] 環(huán)境領(lǐng)域全國(guó)重點(diǎn)實(shí)驗(yàn)室招收博士1-2名 +3	QGZDSYS 2026-03-13	5/250	2026-03-18 11:13 by QGZDSYS
[考研] 301求調(diào)劑 +9	yy要上岸呀 2026-03-17	9/450	2026-03-18 08:58 by 無(wú)際的草原
[考研] 268求調(diào)劑 +8	一定有學(xué)上- 2026-03-14	9/450	2026-03-17 17:47 by laoshidan
[考研] 材料專碩326求調(diào)劑 +6	墨煜姒莘 2026-03-15	7/350	2026-03-17 17:10 by ruiyingmiao
[基金申請(qǐng)] 今年的國(guó)基金是打分制嗎？ 50+3	zhanghaozhu 2026-03-14	3/150	2026-03-16 17:07 by 北京萊茵潤(rùn)色
[考研] 321求調(diào)劑 +5	大米飯！ 2026-03-15	5/250	2026-03-16 16:33 by houyaoxu
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 0856專碩279求調(diào)劑 +5	加油加油！? 2026-03-15	5/250	2026-03-15 11:58 by 2020015
[考研] 復(fù)試調(diào)劑 +3	呼呼？~+123456 2026-03-14	3/150	2026-03-14 16:53 by WTUChen
[考研] 290求調(diào)劑 +3	ADT 2026-03-13	3/150	2026-03-13 10:19 by peike

24小時(shí)熱門版塊排行榜

[求助] Perl 編程 請(qǐng)大神們幫忙�。�！生物信息的牛人請(qǐng)進(jìn)

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

[求助] Perl 編程請(qǐng)大神們幫忙�。�！生物信息的牛人請(qǐng)進(jìn)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: