随机提取fq文件中的reads perl程序处理

比如我测了500X，分析后，我想看一下低深度数据的分析效果。从原fq数据中提取200X数据，也就是提取原数据量的0.4倍。辣么，我就写了个小程序。