sub getIpAddresses()

in client_script/profile_reader.pl [24:36]

• 11 lines of code
• 3 McCabe index (conditional complexity)

sub getIpAddresses {
  my $systemInfo = `system_profiler SPNetworkDataType`;

  my @addresses;
  foreach(split(/\n/,$systemInfo)){
    if(/IPv4 Addresses:\s*(.*)$/){
      chomp $1;
      push @addresses,$1;
    }
  }

  return @addresses;
}