如何搜索和修改字符串后的浮动值。在使用Perl的文件中

Question

假设我们在文件中多次出现“ abc {{1.1 2.2}}”，而我想将其修改为“ xyz {{2.2 4.4}}”，这基本上是：]]

• 将abc更改为xyz。
• 并将花括号中的浮点值乘以2（始终以abc关键字开头）。

abc {{1.1 2.2}} ----------> xyz {{2.2 4.4}}
必须对文件的所有实例进行此修改。这是我尝试过的代码，但是只能将abc替换为xyz，并且无法通过提取那些浮点值来弄清楚如何进行操作。

#!/usr/bin/perl -w

use strict;

open(FILE, "</tmp/yourfile.txt") || die "File not found";
my @lines = <FILE>;
close(FILE);

foreach(@lines) {
   $_ =~ s/abc/xyz/g;
}

open(FILE, ">/tmp/yourfile.txt") || die "File not found";
print FILE @lines;
close(FILE);
非常感谢您的帮助。 

让我们在文件中多次出现“ abc {{1.1 2.2}}”，我想将其修改为“ xyz {{2.2 4.4}}”，这基本上是：将abc更改为xyz。并将浮动值乘以2，即...

Answer 1

我的Perl正则表达式很生锈，但是类似的东西应该有所帮助：

Answer 2

我的Perl正则表达式很生锈，但是类似的东西应该有所帮助：