Hi,
I am pushing a user name and an array of AD groups for that user name into a hash of arrays:
Code: push (@{$newgrouphash{"$newdn"} },"$newgroup");
Later on in my script I would like to be able to access both the username and the user groups from within the hash of arrays:
foreach $newdn ( keys %newgrouphash ) {
foreach $group ( @{$newgrouphash{$newdn}} ) {
However I get the $newdn variable printing twice, once blank and then the actual result. Using a dumper, the info looks fine. Is there a better way of accessing the information in a hash of arrays?
Sorry, new here, I used the print statements from the previous posters suggestions. The actual data being pushed into the HOA is a lot of code and is an AD query so it wouldn't compile.
What I end up with is a key of Bob and an array containing groups: domain users, testing, server team etc
push (@{$newgrouphash{"$newdn"} },"$newgroup");
foreach $newdn (sort keys %newgrouphash ) {
print "Name:$newdn\n\t";
foreach $group ( sort @{$newgrouphash{$newdn}} ) {
+
if (!($group =~ /CN=Domain Users/i)) {
# print "$group, ";
+
$res = `dsmod group $group -rmmbr \"$newdn\"`;
+
print "$res\n";
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.