【求助】Perl按固定长度分割文本

sunzhiguolu

回复 18# munaiyi1234

use warnings;
use strict;
use diagnostics;
my $fastaFile = "C:/perl/1.txt";
my ($line, @lines) = ();
open In, "$fastaFile" or die "Cannot find the specified fasta file $fastaFile";
@lines = <In>;
chomp(@lines);
close(In);
open OUT, ">C:perl/out.txt";

for (my ($sOffset, $sCnt, $sLength, $sStrLength  , $sSection) = (0, 0, 147, length ($line)); $sStrLength >= $sOffset; $sOffset += $sLength){

        print OUT "substr ($line, $sOffset, $sLength)\n";

}

同样祝你新年快乐, 谢谢!