www.5129.net > usE striCt pErl

usE striCt pErl

你这样的命名本来就是错的... 去掉 strict, 你就不会发现这样的命名是不对的, 往後的处理也将是错的. ( 如果结果还是对的, 那只是你走运而已 ) 想像一下 my @array = ( 1..10 ); my $array[1] = 10; @array = (); print @array; 你还能理解 $arr...

sub return_average { my(@number)=@_; my($average)=0; foreach(0..$#number){$average += $number[$_]; } $average = $average / ($#number+1); }你那个 foreach 闭合括号写错了!

$_是模式匹配或者输出的缺省字符串.。 @_没听说过,等待学习~~

#!/usr/bin/perl -w use strict; use File::Find; my $size = 0; find(sub { $size += -s if -f $_ }, "$$$Your_Directory"); print $size, "\n";

删除你文件中的下面这一行: use strict; 这个位置增加下面一行: use Net::Config;

我觉得循环里面应该还有个$values= 因为 每执行一次,仅仅读取一行内容,循环第二次得到第二行内容,应该是这样我觉得

首先你这个提问,版式不对,读起来太费劲了。。。。 另外,你这个$tmp,是从哪来的?你的这个子程序,传入的参数是$current,怎么后来会有 $ftp->ls("$tmp")? 如果真有这种操作,建议你在此之前,检查一下$tmp是否存在。 另外,建议你的程序开...

删除你文件中的下面这一行: use strict; 这个位置增加下面一行: use Net::Config;

试一下用 while(){ print $_; } $_就是每一行

本来perl就小众,还要有生物背景就更难了,不知道你的数据格式是什么样的,怎么指点。还有肽段是怎么确认的,有什么特征,你的问题太专业了最好还是去专业的生物论坛问吧。

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com