On Wed, 14 Jun 2006, James Carlson wrote:
This works:/usr/bin/perl -e ' use Socket; $addr = inet_aton($ARGV[0]); $mask = inet_aton($ARGV[1]); $subnet = unpack("L", $addr) & unpack("L", $mask); print inet_ntoa(pack("L", $subnet)), "\n"; ' $ADDRESS $SUBNET
Similar: 'ipcalc' is very useful, available from pkgsrc: ftp://ftp.netbsd.org/pub/pkgsrc/packages/SunOS-5.9/sparc/pkgsrc-2005Q2/net/ipcalc-0.35.tgz http://www.netbsd.org/Documentation/pkgsrc/platforms.html regards, -- Paul Jakma [EMAIL PROTECTED] [EMAIL PROTECTED] Key ID: 64A2FF6A Fortune: God requireth not a uniformity of religion. - Roger Williams _______________________________________________ networking-discuss mailing list [email protected]
