[ILUG] urg...

[Paul Jakma]

On Fri, 1 Feb 2002, kevin lyda wrote:

> anyone else play with bit shifting in perl?  it doesn't seem to be
> working so far.

what about the vec() function..

the below is wrong. ($e ends up size of 3/4 of $s.) but.. hey, i'm
really tired:

#!/usr/bin/perl

$s = "1234567adfasdfl;werl;ksdfkl;sdfwe";

for ( $offset = 0; $offset < length($s) ; $offset += 6) {
        $e .= vec($s, $offset, 4) . vec($s, $offset+4, 2) . 32;
}


but proper use of vec() might be what you're after.

--paulj