适应度计算脚本

数据文件由两列数字组成，列间由空格隔开。

#!/usr/bin/perl -w

$arg_num = @ARGV;

$arg_num > 0 || die "Usage:\nperl $0 [file]\n";

open(FH, $ARGV[0]) || die "Can't open file $ARGV[0]\n";

@lines = <FH>;

foreach $line (@lines)

{

chomp($line);

@nums = split(' ', $line);

$fitness += 1 - abs($nums[1] - $nums[0]) / (abs($nums[0]) + 1e-10);

$count++;

}

if($count > 0)

{

$fitness /= $count;

print $fitness, "\n";

}

else

{

print "0\n";

}

posted on 2006-03-24 00:06 weidagang2046 阅读(278) 评论(0) 编辑收藏所属分类: Perl


只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻 Chat2DB C++博客博问管理
相关文章: 统计工程的源代码行数 Perl eval函数探讨如何捕捉CGI程序exception 创建或删除目录 Perl Tips 2006/8/19 删除用通配符匹配的一类文件列出目录下的所有子目录和文件名 perl自带的介绍图形界面的例子 windows 下的system命令的后台运行求助 Perl处理Unix命令输出

weidagang2046的专栏