摘要： 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 }~ 阅读全文