AWK IPv4 to/from decimal

dec2ip.awk

#!/usr/bin/awk
# 1-liner: awk '{for(i=0;i<4;i++){byte=$1%256;ip="." byte ip;$1-=byte;$1/=256}}END{sub(".","",ip);print ip}'   

{
  for(i=0; i<4; i++) {
    byte = $1 % 256
    ip = "." byte ip
    $1 -= byte
    $1 /= 256
  }
}
END{
  sub(".","",ip)
  print ip
}

ip2dec.awk

#!/usr/bin/awk
# 1-liner: awk 'BEGIN{RS="."}{dec*=256;dec+=$1}END{print dec}'

BEGIN{
  RS="."
}
{
  dec*=256
  dec+=$1
}
END{
  print dec
}