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

登錄注冊

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

24小時熱門版塊排行榜

返回列表

xueshuhan

木蟲 (正式寫手)

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

[求助] Perl 編程請大神們幫忙�。�！生物信息的牛人請進

我是學(xué)生物的研究生，我們一個老師講perl編程，才學(xué)了10個小時，本人對編程一竅不通，希望好心人幫忙解答，謝謝了！�。�
下面是我的編程：
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ù)此樓

» 猜你喜歡

求調(diào)劑已經(jīng)有3人回復(fù)
265求調(diào)劑已經(jīng)有4人回復(fù)
085700資源與環(huán)境308求調(diào)劑已經(jīng)有6人回復(fù)
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑已經(jīng)有12人回復(fù)
286分人工智能專業(yè)請求調(diào)劑愿意跨考！已經(jīng)有3人回復(fù)
329求調(diào)劑已經(jīng)有5人回復(fù)
申請回稿延期一個月，編輯同意了。但系統(tǒng)上的時間沒變，給編輯又寫郵件了，沒回復(fù) 已經(jīng)有4人回復(fù)
材料學(xué)碩318求調(diào)劑已經(jīng)有5人回復(fù)
一志愿中國海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有6人回復(fù)
081700化工學(xué)碩調(diào)劑已經(jīng)有3人回復(fù)

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

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

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

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

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時
蟲號: 1538750
注冊: 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小時
蟲號: 1538750
注冊: 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的回帖

zhusheng303

木蟲 (小有名氣)

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

★
ben_ladeng(金幣+1): 歡迎常來 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 ”, 語句"$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 ) ” 這個語句，我沒有看懂。

贊一下(1人)

回復(fù)此樓

積極面對

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小時
蟲號: 1538750
注冊: 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小時
蟲號: 1538750
注冊: 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

我寫的這個問題，但不知道怎么改
問題一：如何讓第一個argument需要為變量
問題二：為什么我在命令欄里輸入核苷酸的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小時
蟲號: 1538750
注冊: 2011-12-15
性別: GG
專業(yè): 生物技術(shù)藥物

引用回帖:

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

謝謝你的幫助，還有一些問題請教，望指教

贊一下

回復(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小時
蟲號: 880479
注冊: 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;
...

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

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

贊一下

回復(fù)此樓

積極面對

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

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

zhusheng303

木蟲 (小有名氣)

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

引用回帖:

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

if ( $#ARGV &l ...

【1】問題一：如何讓第一個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】問題二：為什么我在命令欄里輸入核苷酸的ID卻提示命令沒有找到
不好意思，這個我也沒有用過。這個網(wǎng)頁你可以看看http://www.ebi.ac.uk/Tools/webse ... perl/soap/soap-lite，希望對你有幫助

贊一下

回復(fù)此樓

積極面對

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

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

xueshuhan

木蟲 (正式寫手)

應(yīng)助: 8 (幼兒園)
金幣: 2979.7
紅花: 2
帖子: 613
在線: 142.3小時
蟲號: 1538750
注冊: 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的回帖

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

返回列表

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

[考研] 286分人工智能專業(yè)請求調(diào)劑愿意跨考！ +3	lemonzzn 2026-03-17	3/150	2026-03-19 23:58 by 23Postgrad
[考研] 一志愿蘇州大學(xué)材料求調(diào)劑，總分315（英一） +3	sbdksD 2026-03-19	3/150	2026-03-19 23:21 by fmesaito
[考研] 0703化學(xué)調(diào)劑，六級已過，有科研經(jīng)歷 +12	曦熙兮 2026-03-15	12/600	2026-03-19 19:42 by maocaozhuxi
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +3	葵梓衛(wèi)隊 2026-03-18	5/250	2026-03-19 19:35 by 給你你注意休息
[考研] 梁成偉老師課題組歡迎你的加入 +9	一鴨鴨喲 2026-03-14	11/550	2026-03-19 17:22 by ！本暗一次！
[考研] 324分 085600材料化工求調(diào)劑 +3	llllkkkhh 2026-03-18	3/150	2026-03-19 14:22 by houyaoxu
[考研] 求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +3	@taotao 2026-03-19	3/150	2026-03-19 14:07 by peike
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +4	生物工程調(diào)劑 2026-03-16	12/600	2026-03-19 11:10 by 生物工程調(diào)劑
[考研] 332求調(diào)劑 +3	ydfyh 2026-03-17	3/150	2026-03-19 10:14 by 功夫瘋狂
[考研] 311求調(diào)劑 +11	冬十三 2026-03-15	12/600	2026-03-18 14:36 by 星空星月
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 312求調(diào)劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 工科材料085601 279求調(diào)劑 +6	困于星晨 2026-03-17	6/300	2026-03-18 10:21 by kkcoco25
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 278求調(diào)劑 +3	Yy7400 2026-03-13	3/150	2026-03-17 08:24 by laoshidan
[考研] 機械專碩325，尋找調(diào)劑院校 +3	y9999 2026-03-15	5/250	2026-03-16 19:58 by y9999
[考研] 26考研一志愿中國石油大學(xué)(華東)305分求調(diào)劑 +3	嘉年新程 2026-03-15	3/150	2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 288求調(diào)劑 +4	奇點0314 2026-03-14	4/200	2026-03-14 23:04 by JourneyLucky
[考研] 311求調(diào)劑 +3	冬十三 2026-03-13	3/150	2026-03-13 20:41 by JourneyLucky
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3	d如愿上岸 2026-03-13	3/150	2026-03-13 10:43 by houyaoxu

24小時熱門版塊排行榜

[求助] Perl 編程 請大神們幫忙�。�！生物信息的牛人請進

» 猜你喜歡

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

[求助] Perl 編程請大神們幫忙�。�！生物信息的牛人請進