?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/_bcd2bin.al.tar
???????
usr/local/lib64/perl5/5.32/auto/NetAddr/IP/UtilPP/_bcd2bin.al 0000444 00000001412 15127554514 0016750 0 ustar 00 # NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP::UtilPP; #line 605 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_bcd2bin.al)" sub _bcd2bin { my @bcd = split('',$_[0]); my @hbits = (0,0,0,0); my @digit = (0,0,0,0); my $found = 0; foreach(@bcd) { my $bcd = $_ & 0xf; # just the nibble unless ($found) { next unless $bcd; # skip leading zeros $found = 1; $hbits[3] = $bcd; # set the first digit, no x10 necessary next; } _128x10(\@hbits); $digit[3] = $bcd; _sa128(\@hbits,\@digit,0); } return pack('N4',@hbits); } # end of NetAddr::IP::UtilPP::_bcd2bin 1;
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????