Minor cleanup++
This commit is contained in:
parent
7666030990
commit
91caafa8e0
|
@ -56,7 +56,6 @@ get '/ula6' => sub {
|
||||||
$binfield = sprintf "%b", hex $fields[0];
|
$binfield = sprintf "%b", hex $fields[0];
|
||||||
$decfield = sprintf "%d", hex $fields[0];
|
$decfield = sprintf "%d", hex $fields[0];
|
||||||
$decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2;
|
$decfield = ($binfield =~ /1[01]$/) ? $decfield - 2 : $decfield + 2;
|
||||||
$binfield = sprintf "%b", int $decfield;
|
|
||||||
$hexfield = sprintf "%x", int $decfield;
|
$hexfield = sprintf "%x", int $decfield;
|
||||||
$halfone = $hexfield . $fields[1] . $fields[2] . "ff";
|
$halfone = $hexfield . $fields[1] . $fields[2] . "ff";
|
||||||
$fulleui = $halfone . $halftwo;
|
$fulleui = $halfone . $halftwo;
|
||||||
|
|
Loading…
Reference in a new issue