Perl 字符串定长分割

Perl 字符串按照给定的长度分割并返回数组

 

sub splitStr {
	my ( $strtmp, $length ) = @_;
	my $strLength = length $strtmp;
	my @results;
	for ( my $i = 0 ; $i < $strLength ; $i += $length ) {
		#if length reach the bound , just resturn the left ones 
		if ( $strLength < ( $i + $length ) ) {
			push @results, substr( $strtmp, $i );
		}
		else {
			push @results, substr( $strtmp, $i, $length );
		}
	}
	return \@results;
}