comparison bin/Rcall.pm @ 18:fcaea740c23a draft

Uploaded

17:8031792a6e2c

  my ($size_hashR, $out_png, $size)  = @_;
  my (@abs, @ord);
  my $i = 0;
  foreach my $k (sort {$a <=> $b} keys %{$size_hashR})
  {
    my $percentage = $size_hashR->{$k} * 100 / $size;
    $abs[$i] = $k ; $ord[$i] = $percentage; $i++;
  }
  my $abs = join (",", @abs );
  my $ord = join (",", @ord );
  if (scalar(@abs) != 0)

18:fcaea740c23a

  my ($size_hashR, $out_png, $size)  = @_;
  my (@abs, @ord);
  my $i = 0;
  foreach my $k (sort {$a <=> $b} keys %{$size_hashR})
  {
    my $percentage = 0;
    $percentage = $size_hashR->{$k} * 100 / $size if $size != 0;
    $abs[$i] = $k ; $ord[$i] = $percentage; $i++;
  }
  my $abs = join (",", @abs );
  my $ord = join (",", @ord );
  if (scalar(@abs) != 0)