Help for this page

Select Code to Download


  1. or download this
    while LOOP {
                   push @output,
    ...
    foreach my $key ( sort { $sort_xml{$a} <=> $sort_xml{$b} } ( keys(%sor
    +t_xml) ) ) {
            print $key $sort_xml{$key};
        }
    
  2. or download this
    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.