codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl $address = "172.34.12.0"; $address2 = "255.255.255.0"; @octets = split (/\./,$address); @octets2 = split (/\./,$address2); #Funky results when doing a bitwise AND #This outputs "050 24 00 0" What's going on here? print int($octets[0]) & int($octets2[0]), "\n"; print int($octets[1]) & int($octets2[1]), "\n"; print int($octets[2]) & int($octets2[2]), "\n"; print int($octets[3]) & int($octets2[3]), "\n"; #Results are what I want when doing it as literals #This outputs "172 34 12 0" print 172 & 255, "\n"; print 34 & 255, "\n"; print 12 & 255, "\n"; print 0 & 0, "\n";
Private
[
?
]
Run code
Submit