James Kipp wrote:
>
> Happy Hollidays
Hello,
> I want to bitwize AND 2 IP adr strings, not sure of how to pack() them to be
> able to AND them. before i start playing with pack,sprintf,socket,etc.. I
> was wondering if someone already had a way.
I wrote this a while ago, it may give you some ideas.
#!/usr/bin/perl -w
use strict;
use Socket;
die "usage: $0 address netmask\n" unless @ARGV == 2;
my $address = inet_aton( shift );
my $netmask = inet_aton( shift );
my %mask = (
chr 0b11111111, 8,
chr 0b11111110, 7,
chr 0b11111100, 6,
chr 0b11111000, 5,
chr 0b11110000, 4,
chr 0b11100000, 3,
chr 0b11000000, 2,
chr 0b10000000, 1,
chr 0b00000000, 0,
);
my $bits;
$bits += $mask{$1} while $netmask =~ /(.)/sg;
my $class = vec( $address, 7, 1 ) ?
vec( $address, 6, 1 ) ?
vec( $address, 5, 1 ) ? 'D' : 'C' : 'B' : 'A';
printf "Address: %15s\n", inet_ntoa( $address );
printf "Netmask: %15s\n", inet_ntoa( $netmask );
printf "Network: %15s/%d (Class %s)\n", inet_ntoa( $netmask & $address ), $bits,
$class;
printf "Broadcast: %15s\n", inet_ntoa( ~$netmask | $address );
printf "HostMin: %15s\n", inet_ntoa( ($netmask & $address) | "\x00\x00\x00\x01" );
printf "HostMax: %15s\n", inet_ntoa( (~$netmask | $address) & "\xFF\xFF\xFF\xFE" );
printf "Hosts/Net: %d\n", 2 ** ( 32 - $bits ) - 2;
__END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
