Perl 字符串定长分割

最新推荐文章于 2025-06-27 10:05:31 发布

最新推荐文章于 2025-06-27 10:05:31 发布 · 1.4k 阅读

文章标签：

#Perl #字符串 #分割

Perl 专栏收录该内容

2 篇文章

订阅专栏

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;
}