Apologies at the onset for a rather vague query.Is there a way(function) to calculate network entropy as described by this article : Robustness and network evolution—an entropic principle Physica A 346 (2005) 682–696. I am trying to do the same thing in PERL. Thanks in advance for any help.