use strict;
2 use warnings;
3 my $str="A..B..";
4 my @vec=split /\.\./,$str;
5 foreach my $key (@vec)
6 {
7 my $len=length($key);
8 print STDERR "$key\t$len\n";
9 }
~
perl split函数
最新推荐文章于 2023-08-16 13:01:15 发布