作者markpci (markpci)
看板Perl
标题Re: [问题] perl 排序
时间Mon Feb 18 11:44:02 2008
※ 引述《markpci (markpci)》之铭言：
: 我现在有个文字档，文字档格式为:
: aaa 0.154
: bbb 0.235
: ccc 0.485
: ddd 0.365
: 我想将上述资料档做排序，然後取最大值出来跟每一列相除，
: 结果为:
: aaa 0.485 1 (0.485/0.485)
: bbb 0.365 0.8(0.365/0.485)
: ccc 0.235 0.5(0.235/0.485)
: ddd 0.154 0.3(0.154/0.485)
: 请问要如何做呢???
$fname="test.txt";
open(IN,'<'.$fname) || die "open $fname failed!!";
open(OUT,'>'.$fname.'sort') || die "open $fname\_tranOK!!";
while (<IN>)
{
$data = $_;
$data_source=$data;
chomp($data);
@data = split "\t",$data;
$sysno = $data[0];
$setnum = $data[1];
#push(@total_source,$setnum."|".$sysno);
#print $setnum."|".$sysno."\n";
$code{$setnum."|".$sysno} = $data_source;
}
foreach (sort keys %code)
{
@newdata= $code{$_};
#print $newdata;
$ratio= $code{$_}/$newdata[0];
print $newdata/t$ratio;
#print OUT $newdata;
}
close(IN);
close(OUT);
print "Finish!!\n";
我执行时~出现:
Illegal division by zero at C:\AppServ\www\kzbio2\pcc\pcc_sort.pl line 24, <IN>
line 6.
请问该如何修正才正确呢??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.70.83.82