例如:
@abc = (abc,def,ghi,gkl,mno,abc.qqq,def.qqq,ghi.qqq,gkl.qqq,mno.qqq)
我现在想把@abc中所有包含.qqq的提取出来,并给到另一个变量。
即得到:
@www=(abc.qqq,def.qqq,ghi.qqq,gkl.qqq,mno.qqq)
第二种:或者能不能将所有带.qqq的字符串,去掉.qqq然后给到另一个变量。
因为我想比对所有.qqq前面相同的字母。但现在有.qqq所以对比不了.
菜鸡,求大神指教。
按照你的要求编写的perl程序如下(先用正则表达式提取,再用正则表达式替换)
@abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");是的,非常感谢你提供的方案,但现在运行的还是在¥WWW里面,我如何将".qqq"的数组,和没有".qqq"的数组分成两个变量去呢。
追答将去掉".qqq"的放到另一个数组中就行了,完整的代码如下
@abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");