Subnet Info:
- Getting General Information about a subnet
$ ./netmask.pl 210.55.5.21/23
for network 210.55.5.21/23
base = 210.55.4.0
gw = 210.55.4.1
mask = 255.255.254.0
hostmask = 0.0.1.255
bits = 23
size = 512
maxblock = 22
broadcast = 210.55.5.255
next = 210.55.6.0
#!/usr/bin/perl
use warnings;
use strict;
use Net::Netmask;
my $block = new Net::Netmask ('192.168.2.4/27');
print "base = " . $block->base() . "\n";
print "mask = " . $block->mask() . "\n";
print "hostmask = " . $block->hostmask() . "\n";
print "bits = " . $block->bits() . "\n";
print "size = " . $block->size() . "\n";
print "maxblock = " . $block->maxblock() . "\n";
print "broadcast = " . $block->broadcast() . "\n";
print "next = " . $block->next() . "\n";
don@atmos(1):~$ ipcalc 202.78.241.18/28
Address: 202.78.241.18 11001010.01001110.11110001.0001 0010
Netmask: 255.255.255.240 = 28 11111111.11111111.11111111.1111 0000
Wildcard: 0.0.0.15 00000000.00000000.00000000.0000 1111
=>
Network: 202.78.241.16/28 11001010.01001110.11110001.0001 0000
HostMin: 202.78.241.17 11001010.01001110.11110001.0001 0001
HostMax: 202.78.241.30 11001010.01001110.11110001.0001 1110
Broadcast: 202.78.241.31 11001010.01001110.11110001.0001 1111
Hosts/Net: 14 Class C
