Help for this page

Select Code to Download


  1. or download this
    my %Data = getQueues();
    
    ...
            print "$k = $v \n";
        }
    }
    
  2. or download this
    while (my ($key,$value) = each(%Data)){
        if (ref $value eq 'ARRAY') {
    ...
        } else {
        print "$key = $value \n";
    }