| 查看: 2442 | 回复: 11 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
xueshuhan木虫 (正式写手)
|
[求助]
Perl 编程 请大神们帮忙！！！生物信息的牛人请进
|
||
|
我是学生物的研究生，我们一个老师讲perl编程，才学了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. |
回复此楼» 猜你喜欢
建议基金发布提前给出明确的时间点
已经有5人回复
-
看来今天不会放榜了？
已经有10人回复
-
时间戳又变了
已经有19人回复
-
filecode，4个jtjc了
已经有14人回复
-
让我中一个面上吧！
已经有13人回复
-
人气不行了
已经有7人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有18人回复
-
感觉是下周放榜了
已经有12人回复
-
我面上完蛋了
已经有8人回复
-
只有每年这种时候来逛逛小木虫
已经有25人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 大神们，帮忙认一下这些植物！谢谢先！
已经有14人回复
- 懂图位克隆的请进
已经有3人回复
- 用过亚磷酸三乙酯的牛人请进
已经有6人回复
- ANSYS14.0的大神们进～～
已经有20人回复
- perl程序求助，请大神们赐教~~~
已经有9人回复
- perl程序求大神加以修改~~
已经有8人回复
- 请帮忙编写一个perl程序处理文本
已经有26人回复
- 请各位大神过来....帮帮小弟！！！！！！！！！！！！！！！！！！！！！！！
已经有5人回复
- 计算机图形学中用VC++6.0编程实现AUTOCAD中ERASE命令
已经有3人回复
- 【求助】请教一个Perl语言的编程，谢谢！
已经有3人回复
- 【求助】(⊙o⊙)…大神们，帮我看看好不，拜托啦
已经有3人回复
- 编辑意见，请大侠帮忙
已经有15人回复
xueshuhan
木虫 (正式写手)
- 应助: 8 (幼儿园)
- 金币: 2979.7
- 红花: 2
- 帖子: 613
- 在线: 142.3小时
- 虫号: 1538750
- 注册: 2011-12-15
- 性别: GG
- 专业: 生物技术药物
|
前一半这样写是否正确： #!/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 ) } |
3楼2012-01-31 02:03:29
xueshuhan
木虫 (正式写手)
- 应助: 8 (幼儿园)
- 金币: 2979.7
- 红花: 2
- 帖子: 613
- 在线: 142.3小时
- 虫号: 1538750
- 注册: 2011-12-15
- 性别: GG
- 专业: 生物技术药物
|
-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. |
2楼2012-01-30 22:31:01
zhusheng303
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 3137.3
- 帖子: 68
- 在线: 45.6小时
- 虫号: 880479
- 注册: 2009-10-22
- 性别: GG
- 专业: 生物信息学
★
ben_ladeng(金币+1): 欢迎常来 2012-01-31 13:58:28
xueshuhan: 回帖置顶 2012-01-31 16:46:17
ben_ladeng(金币+1): 欢迎常来 2012-01-31 13:58:28
xueshuhan: 回帖置顶 2012-01-31 16:46:17
|
【1】当你使用”use strict; use warnings ”, 语句"$input=$ARGV[0];"应该写成“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 ) ” 这个语句，我没有看懂。 |
4楼2012-01-31 10:13:09
xueshuhan
木虫 (正式写手)
- 应助: 8 (幼儿园)
- 金币: 2979.7
- 红花: 2
- 帖子: 613
- 在线: 142.3小时
- 虫号: 1538750
- 注册: 2011-12-15
- 性别: GG
- 专业: 生物技术药物
|
这回写是否正确，还有就是网络服务调用部分如何编写？？？ #!/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" ) } |
5楼2012-01-31 16:42:45
