is7bit -- determine if byte array contains only 7-bit bytes.

Determine if the byte data contains any 8bit bytes (i.e. bytes with the most significant bit set).

Download Chilkat Perl Module

use chilkat;


$data_bytes = pack "C11", 0x01, 0xFF, 65, 66, 67, 0xC0, 0xC1, 0xC2, 0x61, 0x62, 0x63;
$data = new chilkat::CkByteData();
$data->append($data_bytes,11);

if ($data->is7bit() == 1) {
    print "All bytes are between 0 and 0x7F inclusive!" . "\r\n";
}
else {
    print "Some bytes are 8bit!" . "\r\n";
}