Perl十六进制数值计算样例

sub getNextMacAddr { my ($oriAddr,$delimeter,$radix) = @_; D($oriAddr,$delimeter); my @addrAry = split(/$delimeter/,$oriAddr); D(@addrAry); my $result = ""; for (my $i=scalar(@addrAry)-1; $i>0; $i--) { D("addrAry[$i] is: ",$addrAry[$i]); my $tmpVal = $addrAry[$i]; if ($radix == 16) { $tmpVal = hex($addrAry[$i]); } if ($tmpVal < 0xff) { if ($radix == 16) { $addrAry[$i] = sprintf("%02x",$tmpVal+1); } else { $addrAry[$i] = sprintf("%d",$tmpVal+1 ); } last; } else { $addrAry[$i] = "00"; } } for (my $i=0; $i<scalar(@addrAry); $i++) { $result .= uc($addrAry[$i]); $delimeter =~ s/////ig; $result .= $delimeter if ($i<scalar(@addrAry)-1); } return $result; }

?

调用样例：

getNextMacAddr(”11:00:00:00:00:00“,":",16); getNextMacAddr(“11.0.0.0”,"//.",10); getNextMacAddr(“10.0.0.0””,10);