Perl一些技巧

1. 进制转换（二进制串转十进制)

   $ comb = oct(‘0b’.$comb); #convert from a binary str to a number

2. 一个01字符串转换为一个list，
   $ my @s = ($seq =~ /(\d)/g); #!!!convert a string to list

3. 逐行打印数组（当然可以用join)
   $ grep { print $_,”\n”; } @array;