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