正则 前向查找

atmystate

需要对一字符串中的一些除变量以外的单词变成大写
如:
  mov $variableA,$variableb,sth
变换后
MOV $variableA,$variableb,STH
需要进行前向查找
s/(?<!\$)..../uc($&)/ge;
不知中间怎么写

我用了最笨的方法
$c=' mov $variableA,$variableb,sth';
toupper($c);
sub toupper{
    my $dat=shift;
    my $b=$dat;
    while($dat=~/(\w+)/g){
        $n=length($1);
        $m=$+[0]-$n;
        if($m>0){
            $k=substr($dat,$m-1,1);
            if($k ne '$' && $k ne '\\'){
                substr($b,$m,$n,uc(substr($dat,$m,$n)));
            }
        }
        else{
            substr($b,$m,$n,uc(substr($dat,$m,$n)));
        }
    }
    return $b;
}

maybenot

这样行不

1. 
   
2. my $str = 'mov $variableA,$variableb,sth';
   
3. $str =~ s/(\$?)(\w+)/($1 eq "\$")?$&:uc($&)/ge;
   
4. print $str;
   

复制代码

dugu072_cu

1. s/(?<!\$)(\b\w+\b)/uc($1)/ge

复制代码