Mega Code Archive

 

Categories / Perl / System Functions

 

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");