perl 读取所需文件的路径，然后打开相应的文件

这里把DNA序列经过整合成一行，然后去除所有的空白字符以后，又把$DNA通过split函数变成了数组，然后进行统计，那有没有更好的办法呢？其实perl里有一个函数，substr。我们先来看一看这个函数的用法，substr是针对一个大字符串的操作符言外之意就是对一个很长的字符串，进行片段化处理，取其中的一部分。我们这里用到的就是这个特性。$little_string =substr$小片段=substr我们这里为了统计DNA中各种碱基的数量，所以要处理的字符串是一个碱基，所以我们要把$length设置为1。这样才能够满足我们的需求。下面我们把修改过的代码写下：得到的结果如下：