Perl Anzahl an Hosts in IP Range

Computer: Software & Programmierung Perl & CGI
#1

Hallo,

ich suche eine Möglichkeit, mit der ich die Anzahl an Hosts in einer IP-Range (ohne Subnetting => nur Class A,B,C usw. Netzte) herausfinde.

z.B.:

194.66.77.4 - 194.66.77.8 = 4 Hosts

Hat einer eine Idee?

MfG

#2 
#!C:\Perl64\bin\perl.exe
use strict;
use CGI;
my $q = new CGI;
# ende ist grösser als start.
my @ipend=(255,255,255,255);
my @ipstart=(0,0,0,0);
# calc ende - start each oktet
my $mally = ($ipend[0]\*(256\*256\*256)+$ipend[1]\*(256\*256)+$ipend[2]\*(256)+$ipend[3]);
$mally -= ($ipstart[0]\*(256\*256\*256)+$ipstart[1]\*(256\*256)+$ipstart[2]\*(256)+$ipstart[3]);
# print header and start the markup output
print $q-\>header( "text/html" ),
$q-\>start\_html( "IP Calc" );
print $q-\>h2($mally);
print $q-\>end\_html;
# end code
#3

Hallo,

194.66.77.4 - 194.66.77.8 = 4 Hosts

Meinst du nicht eher 5 Hosts? (4, 5, 6, 7, 8)
Oder zaehlst du eine der Adresse als Netzadresse?

Gruesse,
Moritz

#4

Stimmt,

sind 5 :wink:

#5

Hi,

vielen Dank!

Betrachtet zwar nicht die Classe des Netztes, aber diese wurde bei mir schon vorher abgefangen.

Gruß!

1 Like