Perl one-liner
Today’s cute Perl one-liner: convert binary IP address into string form:
join( '.', ( map { 0 + ($bin >> ($_*8)) & 255 } (3,2,1,0) ))
At least I think so 🙂
-
jernst
Today’s cute Perl one-liner: convert binary IP address into string form:
join( '.', ( map { 0 + ($bin >> ($_*8)) & 255 } (3,2,1,0) ))
At least I think so 🙂