perl "unsigned char" hogyan

Szkriptek: Python, Perl, Bash, ...

Üdv

Amit szeretnék: Perl-ben összeadogatni pár (10-15) byte-ot és a végeredménye is byte, azaz "unsigned char" méretű legyen. (Mint egy ellenőrzőösszeg.)

Volna erre megoldás?

Segítséget előre is köszönöm.

  • 997 megtekintés

( NevemTeve | 2018. 04. 09., h – 21:16 )

Azt mondanám, hogy csak add össze minden aggály nélkül, a végére meg tedd azt, hogy $sum= $sum & 255;

( gyu v | 2018. 04. 09., h – 22:58 )

funkcionalisan pont azt csinalja:

sub mysum {
my $sum=0;
foreach my $i (@_) {
$sum+=$i ;
}
return $sum & 0xff ;
}