#!/bin/dash

# pretty print active interfaces
# 2021-03-29, LTu 

ifconfig | \
 perl -ne '
  $addr = "";
  $net = $& if /^(\w.*?): /;
  $addr = $& if /(\d{1,3}(\.\d{1,3}){3})/;
  print "$net $addr\n"  if  $addr ne ""
'