Using vec. : vec « System Functions « Perl

1. Perl
2. System Functions
3. vec

Using vec.

    
#!/usr/local/bin/perl 

$vector = pack ("B*", "11110011"); 
$val1 = vec ($vector, 0, 4); 
$val2 = vec ($vector, 1, 4); 
print ("high-to-low order values: $val1 and $val2\n"); 
$vector = pack ("b*", "11110011"); 
$val1 = vec ($vector, 0, 4); 
$val2 = vec ($vector, 1, 4); 
print ("low-to-high order values: $val1 and $val2\n"); 

   
    
    
    
  

Related examples in the same category