Moon, John wrote:
Does anyone see anything wrong with the following:
-labels=> {map ({$$_[0]=>$$[1]>0?"$$_[0] *":"$$_[0] _"} @$servers)},
^
$$[1] is wrong. It should be $$_[1] or better $_->[1].
John
--
Perl isn't a toolbox, but a small machine shop where you
c
Does anyone see anything wrong with the following:
-labels=> {map ({$$_[0]=>$$[1]>0?"$$_[0] *":"$$_[0] _"} @$servers)},
I can not get the map to return the _true_ value... $$_[1] is either 1
or 0...
The following works...
-labels=> {map ({$$_[0]=>&imap($$_[0],$$_[1])} @$servers)},
sub imap{
