关于正则表达问题

riverlee2008

$a="at-2actg+3actg";
我要找出-2ac,将其替换为空，最后要的结果是attg+3actg

自己试了：$a=~s/-(\d+)[a-zA-Z]{$1}/g
不好试，
这个匹配的关键是我不知道-后面跟的数字是多少，那么其后面紧跟的n个字符也要相应替换掉（通过{}设置）
不知道谁正则表达牛点，帮忙解决一下


在线等，会常感谢～

jason680

$a="at-2actg+3actg";
我要找出-2ac,将其替换为空，最后要的结果是attg+3actg

自己试了：$a=~s/-(\d+)[ ...
riverlee2008 发表于 2011-09-15 07:43

这个,OK吗?...
$ cat tt.pl
$_="at-2actg+3actg-3actg+4actg";

print "$_\n";
for $n(1..3){
  s/-$n.{$n}//g;
}
print "$_\n";

$ perl tt.pl
at-2actg+3actg-3actg+4actg
attg+3actgg+4actg

Kitaisky

"-{n}ac" n is a number

$a="at-2actg+3actg";

$a=~s/-\dac//g;  # 'attg+3actg', 还是我没

Kitaisky

"-{n}ac" n is a number

$a="at-2actg+3actg";

$a=~s/-\dac//g;  # 'attg+3actg', 还是说我没理解对领导的意思？

riverlee2008

回复 2# jason680

这个OK，可以modify一下

1. $a="at-2actg-3actggg-1accttg+3actg";
   
2. %hash=();
   
3. while($a=~/-(\d+)/g){
   
4.     $hash{$1}=1;
   
5. }
   
6. 
   
7. foreach $k(sort keys %hash){
   
8.     $a=~s/-$k.{$k}//g;
   
9. }

复制代码

xiejiazhen

{:3_189:} 理解错了，肤浅了。。。