yuehedou的博客

如下，每9000行存入一个新文件，新文件数量不限。注意1：用变量$fh作为文件句柄名，本身就能被改变，不用更多折腾了。注意2：使用变量$fh作为文件句柄进行输出（print）时，开启use strict会报错。#! /usr/bin/perluse warnings;#use strict;my $j;my $file = 1;my $fh = 'B1';open $fh, ">>", "ZmBlastIDList_1.txt" or die;while (<

目标将模块安装在可写入的家目录下。参见http://search.cpan.org/~haarg/local-lib-2.000004/lib/local/lib.pm1.  安装local::lib模块，解压local::lib包后，进入该目录，输入并运行命令：perl Makefile.PL --bootstrap       而后开始安装：makemake testmake instal

使用Sort::Naturally模块进行排序用法： use Sort::Naturally; @them = nsort(qw( foo12a foo12z foo13a foo 14 9x foo12 fooa foolio Foolio Foo12a )); print join(' ', @them), "\n";Prints: 9x 14 foo fooa foolio

目前自己编写和网上查阅到比较方便的三种方法。目录1. 自写脚本，较繁琐2. 来自zk1878的脚本，短小精悍3. Array::Utils包，简便4. Data::Dumper包，较简便1. 代码如下：#! /usr/bin/perluse warnings;use strict;open A, $ARGV[0] or die;open B, $ARGV[1...

参考网上资源，得到两种实现方式：1. 参考https://stackoverflow.com/questions/34495490/extract-specific-fasta-sequences-from-a-file-using-perl?r=SearchResults#! /usr/bin/perluse strict;use warnings;open A_SPEC, $...