-
问个SQL::Statement的问题selectisnull(a.no,b.no)asno,isnull(a.name,b,name)asname,a.city,b.jobfromtb1asafulljointb2asbona.no=b.no这个语句用SQL::Statement怎么写dearll88 时间:03-22 + 阅读全文
-
perl生物信息高手来围观了啊。本帖最后由aids260于2011-03-2208:58编辑usestrict;usewarnings;useBio::SeqIO;open(FH,">>reverse_exact_out.txt");my$seqi=Bio::SeqIO->new(-file=>'exact_out.txt',-format=>'fastaids260 时间:03-22 + 阅读全文
-
Perl的一些代码阅读和探讨,欢迎指教---阅读对象:某code---字典:perldoc片段1:@sortedlist=reverse(sort{@tempa=split(/\t/,$a);@tempb=split(/\t/,$b);$tempa[9]cmp$tempb[9]||$tempa[0]<=>$tempb[0];}@temp);笔记:$tempa[9]cmpchenhao392 时间:03-22 + 阅读全文
-
没有人关注下Modern Perl的一些话题么?现在CU的Perl版和十几年前的Linuxforumperl版没有区别啊?看的我感觉穿越回去一样。能否关注下Modenperl的一些主题内容呢,Perl5.12Moose/Moo/MouseAE/CoroPlackDancerMojoliousHighOrder,DSL...---莫让他人以为Perl是万古不化的过时东西。我跟很多人讲,你对Perl还停留在10nightsailer 时间:03-21 + 阅读全文
-
这两个脚本为什么有不同的表现?#!/usr/bin/perl$name='push';$push='helloworld';print$$name,"";#!/usr/bin/perlmy$name='push';my$push='helloworld';print$$name,"";linfengfeiye 时间:03-21 + 阅读全文
-
请问下面的 return $self->{'_start'};处的_start?谢谢!请问下面的 return$self->{'_start'};处的_start怎么这么方便就表示找到start了???是不是其他地方还有代码表示怎么找出start???谢谢!!=head2new()new()initializestheattributes:_transcript_array_transcriptID_array_start_enhavocor 时间:03-21 + 阅读全文
-
foreach循环只输出数组的一半#!/usr/bin/perlusestrict;usewarnings;my@array;my$i;for($i=0;$igallanthunter 时间:03-21 + 阅读全文