Re: Cache, sort, and filter XML response

So I was going to start off by sorting the hash based on different parameters passed, and move onto the caching and filtering when I get this part done. I try and sort like this

while LOOP {
               push @output,
                  $xml->cdr(
                    $xml->$label1( $hold_col_val . " " . $hold_col_val
+2 ),
                    $xml->$label2($total_cdr_count),
                    $xml->$label3($total_call_count),
                    $xml->$label4($total_error_count),
                    $xml->$label5($formatMin),
                    $xml->$label6($formatASR),
                    $xml->$label7($formatPDD),
                    $xml->$label8($formatDUR),
                    $xml->$label9($hold_min_date),
                    $xml->$label10($hold_max_date),
                    $xml->$label11($link));
}

my %sort_xml = @output;
foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor
+t_xml) ) ) {
        print $key $sort_xml{$key};
    }
[download]

But I get this error:

Odd number of elements in hash assignment at rpt.pl line 960.
Operation "<=>": no method found,
    left argument in overloaded package XML::Generator::pretty,
    right argument in overloaded package XML::Generator::pretty at rpt
+.pl line 961.
[download]

I am guessing I need to somehow adjust it to tell it which label 1-11 to sort on? What's that syntax? I want the order of the XML elements to be the same, but to print to screen in an ASC or DESC order based on the value of the element

Comment on Re: Cache, sort, and filter XML response Select or Download Code

Replies are listed 'Best First'.
Re^2: Cache, sort, and filter XML response by shmem (Chancellor) on Oct 16, 2007 at 06:12 UTC
`my %sort_xml = @output;` [download] You are coercing an array to a hash here. That hash is a structure in which every odd element of the original array is a key, and every even element a value. So if you have an odd number of elements in an array, perl warns you that there's no value for the last key. I guess this is not what you want. <update> Having a second look, your array contains alternatingly just the results of `$xml->cdr()` and `$xml->Link()`. At some point in the loop processing, one of these calls seems to return just an empty list, which is why you get an odd element count. </update> `foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor +t_xml) ) )` [download] Apart from the fact that the thingies you are trying to sort live in a package that makes use of overload, you are trying to sort them numerically. Again not what you want... I have no idea of what each element in `@out` looks like (is each of them a hash? an inside-out object?), so I can only give some general advice on how to sort them: `@sorted = sort { $a->attr_method cmp $b->attr_method } @out;` [download] where `attr_method` is the method to look up the attribute after which you want to sort those elements. --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Cache, sort, and filter XML response
by shmem (Chancellor) on Oct 16, 2007 at 06:12 UTC

my %sort_xml = @output;
[download]

You are coercing an array to a hash here. That hash is a structure in which every odd element of the original array is a key, and every even element a value. So if you have an odd number of elements in an array, perl warns you that there's no value for the last key.

I guess this is not what you want.

Having a second look, your array contains alternatingly just the results of $xml->cdr() and $xml->Link(). At some point in the loop processing, one of these calls seems to return just an empty list, which is why you get an odd element count.

</update>

foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor
+t_xml) ) )
[download]

Apart from the fact that the thingies you are trying to sort live in a package that makes use of overload, you are trying to sort them numerically. Again not what you want...

I have no idea of what each element in @out looks like (is each of them a hash? an inside-out object?), so I can only give some general advice on how to sort them:

@sorted = sort { $a->attr_method cmp $b->attr_method } @out;
[download]

where attr_method is the method to look up the attribute after which you want to sort those elements.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

[reply]
[d/l]
[select]