Help for this page

Select Code to Download


  1. or download this
    my $dbh = $DB->getDatabaseHandle();
    
    ...
        @$cnodes = sort { $a->[1] <=> $b->[1] } @$cnodes;
        shift @$cnodes while @$cnodes > 30;
    }