perl中如何提取包含相同的字符串答:abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");$size=@abc;@www=();for($i=0;$i<$size;$i++){ $string=$abc[$i]; if($string=~ m/[A-Za-z]+\.qqq/){ push(@www,$&); }}print "@www\n"; $size=@www;f...