Mercurial > repos > brasset_jensen > srnapipe

comparison bin/align.pm @ 28:8d8357dee6b3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author brasset_jensen
date Sun, 20 May 2018 17:53:31 -0400
parents c8090766c3f5
children 4bc00caa60b4
comparison
equal deleted inserted replaced
27:c8090766c3f5 28:8d8357dee6b3
386 my $S1U = 0; 386 my $S1U = 0;
387 $S1U = $counthashR->{$k}->[3] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0; 387 $S1U = $counthashR->{$k}->[3] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0;
388 my $R1U = 0; 388 my $R1U = 0;
389 $R1U = $counthashR->{$k}->[6] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0; 389 $R1U = $counthashR->{$k}->[6] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0;
390 my $S10A = 0; 390 my $S10A = 0;
391 $SA10 = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0; 391 $S10A = $counthashR->{$k}->[5] / $counthashR->{$k}->[1] * 100 if $counthashR->{$k}->[1] != 0;
392 my $R10A = 0; 392 my $R10A = 0;
393 $R10A = $counthashR->{$k}->[4] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0; 393 $R10A = $counthashR->{$k}->[4] / $counthashR->{$k}->[2] * 100 if $counthashR->{$k}->[2] != 0;
394 394
395 print $out "\t".$S1U."\t".$S10A."\t".$R1U."\t".$R10A; 395 print $out "\t".$S1U."\t".$S10A."\t".$R1U."\t".$R10A;
396 396