@seqout=unpack("C*",$seq); print join(",",@seqout),"\n"; [download]
In reply to Re: Unpacking binary data with unpack()? by mr.nick in thread Unpacking binary data with unpack()? by PiEquals3