The script examines each entry in the list to determine its protocol and address. If the address is the protocol's primary address, it's prefixed with an asterisk (*). To determine the primary address, the script tests whether the protocol is all uppercase. The address is then pushed onto an array that's stored as a value of the % ProxyAddressList hash, in which the protocol is the associated key.
Next, the script displays some account information, and finally Listing 4 is executed. This block of code retrieves the address protocols from the keys of the %ProxyAddressList hash and sorts them. Then, for each protocol, the various email addresses are sorted and printed.
Email Lookups Made Simple
With this article's script, you'll find that locating email addresses is easy. Historically, you would have needed to use AD tools to log on to a machine, run an AD query tool, create a query for a specific email address, and then wait. It wasn't an impossible process, but it was cumbersome, mistakeprone,and time consuming. Once again, Perl comes to the rescue.