Биллинговая система Nodeny

$old_srvs = unpack('N',pack("B32",'00010000000000000000000010000001'));
%fix = (
        1 => 32,
        8 => 16,
);
$new_srvs=0;
$new_srvs |= ($old_srvs & (1<<($_-1)))?exists($fix{$_})?(1<<($fix{$_}-1)):(1<<($_-1)):0 foreach (1 .. 32);
printf("%d\t%s\n%d\t%s",$old_srvs,unpack('B32',pack("N",$old_srvs)),$new_srvs,unpack('B32',pack("N",$new_srvs)));

268435585	00010000000000000000000010000001
-1879015424	10010000000000001000000000000000

$old_srvs = unpack('N',pack("B32",'00010000000000000000000010000001'));

%srvs_old = (
        1 => 'old service1',
        8 => 'old service1',
);
%srvs = (
        1 => 'service1',
        8 => 'service1',
);

%fix = (
        1 => 32,
        8 => 16,
);
$new_srvs=0;
foreach $s (1 .. 32){
        $srvs{$fix{$s}}=$srvs_old{$s} if exists($fix{$s});
        $new_srvs |= ($old_srvs & (1<<($s-1)))?exists($fix{$s})?(1<<($fix{$s}-1)):(1<<($s-1)):0;
}
printf("%d\t%s\t%s\n%d\t%s\n",$old_srvs,unpack('B32',pack("N",$old_srvs)),unpack('B32',pack("N",$old_srvs<<16)),$new_srvs,unpack('B32',pack("N",$new_srvs)));
print("%srvs = (\n".join("\n",map{"\t$_ => '$srvs{$_}',"} sort {$a <=> $b} keys %srvs)."\n);\n");