#!/bin/sh

# pretty print active interfaces
# 2021-04-24, LTu 

/sbin/ip a | /usr/bin/perl -Mstrict -wane '

BEGIN { printf "%s\n", "="x26 }

printf "%-15s %10s\n%s\n", $&, $F[-1], "-"x26  if  /\d{1,3}(\.\d{1,3}){3}/ '