鼠标发展历史历程

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