我参加了一个Bioinformatics课程,并且在ReverseComp.txt第4行调用了一个“Undefined subroutine& main :: Print”.错误
# ReverseComp.txt => takes DNA sequence from user # and returns the reverse complement print ("please input DNA sequence:\n"); $DNA =<STDIN>; $DNA =~tr/ATGC/TACG/; # Find complement of DNA sequence $DNA =~reverse ($DNA); # Reverse DNA sequence print ("Reverse complement of sequence is:\n"); print $DNA."\n";
这是我的代码,我用第4行尝试了一些不同的东西,但没有结果.有什么建议? (我是在提示中写的,一切看起来都正确……)
解决方法
我有一些与您的代码相关的注释:
>使用.pl扩展名而不是.txt命名脚本.这是Perl脚本的公认接受扩展(以及Perl模块的.pm,带有可重用代码的库)
>始终使用strict strict启动脚本;使用警告;这些句子可以帮助您避免常见错误.
>在使用之前声明变量(参见my function)
> chomp
您从STDIN输入以删除最后的换行符.
>对反向函数的调用很奇怪.我认为$DNA =〜反向($DNA);应该是$DNA =反向($DNA);
> reverse function更常用于Perl阵列;用一个字符串你可以获得该字符串的反转版本,就像我预期的那样.
> print function可能会列出参数列表,因此您可以用一个句子打印多个内容
>您可以在许多地方省略括号,例如反向($a)与反向$a相同.两者都有效,但后者更适合Perl编写代码的风格.建议阅读Perl style guide
与您的问题相关,我认为您的脚本是正确的,因为打印函数存在于Perl中,并且您得到的错误与Print相关(使用大写,这在Perl中很重要).您可以运行您在此处发布的其他脚本.
这是您应用先前注意事项的脚本(ReverseComp.pl):
use strict; use warnings; print "please input DNA sequence:\n"; chomp( my $DNA = <STDIN> ); $DNA =~ tr/ATGC/TACG/; # Find complement of DNA sequence $DNA = reverse $DNA; # Reverse DNA sequence print "Reverse complement of sequence is:\n",$DNA,"\n";
无论如何,欢迎来到梦幻般的Perl世界,并准备好享受您的旅行.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。