OpenForum RSS: perl + netmask

perl + netmask (Straus_Zloy)

Tue, 22 Jun 2010 18:31:07 GMT

>[�� ]
>$subj. �� netmask �� hex?
>�� , �� -�� , ��
>��. �� ? :)
>
>e.g. 255.255.255.192 -> 0xffffffc0
>
>p.s. � �� -�� , � � �� -�� "��" ��?
>
>
>��!

$hex = sprintf '%02x' x 4, split '\.', $netmask ;

use Socket; $hex=unpack('H16', inet_aton($ip)); (A)

Mon, 19 Mar 2007 09:23:31 GMT

use Socket;
$hex=unpack('H16', inet_aton($ip));

perl + netmask (arto)

Mon, 19 Mar 2007 09:08:59 GMT

>�� :)
>
>$subj. �� netmask �� hex?
>�� , �� -�� , ��
>��. �� ? :)
>
>e.g. 255.255.255.192 -> 0xffffffc0
>
>p.s. � �� -�� , � � �� -�� "��" ��?
>
>
>��!

>perl -MList::Util=reduce -le "printf """%08x""",reduce { $a*256+$b } split """\\.""",$ARGV[0];" 255.255.255.192
ffffffc0
>

perl + netmask (uni)

Mon, 19 Mar 2007 08:28:10 GMT

>>�� :)
>>
>>$subj. �� netmask �� hex?
>>�� , �� -�� , ��
>>��. �� ? :)
>>
>>e.g. 255.255.255.192 -> 0xffffffc0
>>
>>p.s. � �� -�� , � � �� -�� "��" ��?
>>
>>
>>��!
>my $test_msk = "255.255.255.192";
>
>if($test_msk =~ m/(\d{3}).(\d{3}).(\d{3}).(\d{3})/) {
> if(($1>255) or ($2>255) or ($3>255) or ($4>255)) {
> goto BAD_EXIT;
> }
> my $res = (($1*256+$2)*256+$3)*256+$4;
> print sprintf("0x%x\n", $res );

��! :)

perl + netmask (NuINu)

Mon, 19 Mar 2007 08:25:52 GMT

>�� :)
>
>$subj. �� netmask �� hex?
>�� , �� -�� , ��
>��. �� ? :)
>
>e.g. 255.255.255.192 -> 0xffffffc0
>
>p.s. � �� -�� , � � �� -�� "��" ��?
>
>
>��!
my $test_msk = "255.255.255.192";

if($test_msk =~ m/(\d{3}).(\d{3}).(\d{3}).(\d{3})/) {
if(($1>255) or ($2>255) or ($3>255) or ($4>255)) {
goto BAD_EXIT;
}
my $res = (($1*256+$2)*256+$3)*256+$4;
print sprintf("0x%x\n", $res );