Minor cleanup++

This commit is contained in:
swagg boi 2021-03-05 22:35:51 -05:00
parent 7666030990
commit 91caafa8e0

View file

@ -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;