Re: Loosing Negative Values in Array Ref

You have

$tmp->[$i] = '0' unless defined $tmp->[$i];

...

$tmp->[$i] = $aref->[$i] if $aref->[$i] gt $tmp->[$i];
[download]

Since a "-" is lt "0", you're never going to be seeing negative numbers.

To get the array in alphabetical order, use sort. You could sort it after you create it, or you can create it in alphabetical order by changing

for my $aref_acc_num (values %$acc_num) {
[download]

for my $aref_acc_key (sort keys %$acc_num) {
    my $aref_acc_num = $acc_num->{$aref_acc_key};
[download]

Comment on Re: Loosing Negative Values in Array Ref Select or Download Code

Replies are listed 'Best First'.
Re^2: Loosing Negative Values in Array Ref by Anonymous Monk on Jun 03, 2009 at 13:57 UTC
By that point in the code, there are no negatives anyway (see Re: Loosing Negative Values in Array Ref).	[reply]
Re^3: Loosing Negative Values in Array Ref by Thelonius (Priest) on Jun 03, 2009 at 14:32 UTC
By that point in the code, there are no negatives anyway No. Here, I think this is what you want: `for my $aref_acc_num (sort { $a->[0] cmp $b->[0] } values %$acc_num) { push @$all_dta_acc_num, my $tmp = []; for my $aref (@$aref_acc_num) { for my $i (0..1) { $tmp->[$i] = $aref->[$i]; } for my $i (2..$#$aref) { if (!defined($tmp->[$i])) { $tmp->[$i] = $aref->[$i]; } elsif ($tmp->[$i]=~m/^[+-]?\d+$/) { #numeric $tmp->[$i] = $aref->[$i] if $aref->[$i] > $tmp->[$i]; } else { $tmp->[$i] = $aref->[$i] if $aref->[$i] gt $tmp->[$i]; } } } }` [download]	[reply] [d/l]
Re^4: Loosing Negative Values in Array Ref by Anonymous Monk on Jun 03, 2009 at 14:43 UTC
This is very close, see the values for "Zilda Mil", it should display "14.0" but instead its getting the "9.0".	[reply]
Re^5: Loosing Negative Values in Array Ref by Thelonius (Priest) on Jun 03, 2009 at 16:01 UTC
Re^3: Loosing Negative Values in Array Ref by Anonymous Monk on Jun 03, 2009 at 14:26 UTC
But how could I print my results and get for this particular element as an example this result: `[ 'Auser Ferro', '987778999', '2008-11-30', 'W', '888', '0', '0', '0', '1', '2', '4', '0', '-5.00', '0', '0', '0', '0', '0', '0', '2.0', '2008', '1112399' ],` [download] Notice the "-5.00". Thats what I am looking for.	[reply] [d/l]
Re^2: Loosing Negative Values in Array Ref by Anonymous Monk on Jun 03, 2009 at 14:35 UTC
Thats true, how to keep the same logic and still check having these negative values in the array?	[reply]
Re^3: Loosing Negative Values in Array Ref by Marshall (Canon) on Jun 03, 2009 at 23:16 UTC
Aside from the numeric vs string issue. Numeric "zero" is greater than "-5"! So maybe what you need here is to use absolute vale abs() when comparing things so that abs(-5) is > 0.?	[reply]


Perl: the Markov chain saw
	PerlMonks