怎样将匹配上的表达式处理后再替换

每日一瓜

文本文件中的一行是M1 net1 net2 net3 GND N w=300n l=100n
希望将w和l后面的数字除以1000再输出，得到如下
M1 net1 net2 net3 GND N w=0.3 l=0.1

我的做法是
perl -p -e 'while(/([wWlL])=([\d\.]+)[nN]/g) {$dim=$1;$value=$2/1000;s/[wWlL]=[\d\.]+[nN]/$dim=$value/}'  urfile

有没有简单的方法？谢谢大家!

zhlong8

查下 /e， 这个可以变成一个 RE 的。

每日一瓜

回复 2# zhlong8


/e是匹配时的修饰符吗？

怎么查找？perldoc perlre?


   

jason680

回复 1# 每日一瓜

# echo "M1 net1 net2 net3 GND N w=300n l=100n x=20n" | perl -lape 's{(?<=[wl]=)([\d.]+)n}{$1/1000}ige'
M1 net1 net2 net3 GND N w=0.3 l=0.1 x=20n

   

每日一瓜

回复 4# jason680


   
非常感谢！看来/e就是进行数学计算。请问perldoc能查到修饰符（/e）吗？

jason680

回复 5# 每日一瓜

here you are
perldoc perlre
   perlre - Perl regular expressions

perldoc perlretut
  perlretut - Perl regular expressions tutorial

       A modifier available specifically to search and replace is the "s///e"
       evaluation modifier. "s///e" wraps an "eval{...}" around the
       replacement string and the evaluated result is substituted for the
       matched substring.  "s///e" is useful if you need to do a bit of
       computation in the process of replacing text.  This example counts
       character frequencies in a line:

           $x = "Bill the cat";
           $x =~ s/(.)/$chars{$1}++;$1/eg;  # final $1 replaces char with itself
           print "frequency of '$_' is $chars{$_}\n"
               foreach (sort {$chars{$b} <=> $chars{$a}} keys %chars);

   

羲之遗韵

perldoc perlrun

每日一瓜

回复 6# jason680


   
十分感谢！！