Help for this page

Select Code to Download

Select or download this

sub transpose {
    return if length $_[0] < $BUFSIZE;
    pack"B*",join"",(split//,unpack"B*",substr$_[0],0,$BUFSIZE)[map$_%
+$BUFSIZE*$BUFSIZE+int($_/$BUFSIZE),0..$BUFSIZE**2-1]
}