1.1, Zaur (?), 04:06, 26/05/2003 [ответить] [к модератору]
| +/– |
Незнаю как у всех но у меня этот пример заработал только после такой модификации:
$ip = "192.168.1.43";
$nm = "255.255.255.224";
print "\nip addr = $ip\nnetmask = $nm\n";
($ip1, $ip2, $ip3, $ip4) = map { int($_)} split(/\./, $ip);
($nm1, $nm2, $nm3, $nm4) = map { int($_)} split(/\./, $nm);
$sb1=$ip1 & $nm1; $sb2=$ip2 & $nm2; $sb3=$ip3 & $nm3; $sb4=$ip4 & $nm4;
print "subnet = $sb1\.$sb2\.$sb3\.$sb4\n\n";
| |
|