作者imce (蜥蜴)
看板Perl
标题Re: [问题] 取百分比问题
时间Fri Dec 7 21:47:29 2007
没人要改写，我没事来帮忙吧，尽量不改你的程式，加入几行来达成，
没有跑过，不保证能用
※ 引述《iswearwang (^_^)》之铭言：
$input_file = $ARGV[0];
$output_file = $ARGV[1];
$output_file_not_exst = 0;
open (INPUT_H, "$input_file");
open (OUTPUT_H, "$output_file");
while($_ = <INPUT_H>) {
push(@first_trigger, $_);
}
while($_ = <OUTPUT_H>) {
push(@second_trigger, $_);
}
my $allsum=0;
$allsum+= (/=([\d ]*):/)?$1:0 foreach (@first_trigger); #累加第一个档
$allsum+= (/=([\d ]*):/)?$1:0 foreach (@second_trigger); #累加第二个档
close(OUTPUT_H);
open (FILE, ">$output_file");
for ($j=0;$j<@second_trigger;$j++) {
@t = split ' = ', $second_trigger[$j];
$second_bin = $t[0];
@t2 = split ' : ', $t[1];
$second_count = $t2[0];
for ($k=0;$k<@first_trigger;$k++) {
@m = split ' = ', $first_trigger[$k];
$first_bin = $m[0];
@m2 = split ' : ', $m[1];
$first_count = $m2[0];
if ( $second_bin =~ m/\(/ ) {
if ($second_bin eq $first_bin) {
$k=9000;
$second_count = $second_count + $first_count;
$sum += $second_count;
#$second_trigger[$j] = "$second_bin = $second_count : 0.00";
print FILE "$second_bin = $second_count : ";
print FILE sprintf("%.2f",$second_count/$allsum),$/;
} # match
} # bin match
} # for
#print OUTFILE_H $second_trigger[$j];
}
close(FILE);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.173.88
1F：→ imce:再强调一次～没跑过不保证能跑喔 12/07 21:47