正则表达式替换字符串,但不替换分配给标量的值

Question

如果我的问题听起来有点尴尬,请原谅我.我正在寻找一个正则表达式,它将取代perl源文件中的行号,而不会影响分配给标量的值.

我想下面会让我的问题更清楚一些.假设我有一个perl源,看起来像这样:

1. $foo = 2.4;
2. print $foo;

我想要一个正则表达式来替换那些行号(1. 2. etc..)而不影响分配给标量的值,所以在这种情况下$foo.

谢谢

Answer 1

将你的正则表达式锚定到行的开头:

删除数字:

perl -p -i.bak -e's{^\d+\. }{}' myperl