假设我们在文件中多次出现“ abc {{1.1 2.2}}”,而我想将其修改为“ xyz {{2.2 4.4}}”,这基本上是:]]
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,即...
我的Perl正则表达式很生锈,但是类似的东西应该有所帮助:
OP没有提供输入文件的样本,由于这个原因,以下代码可能无法反映正确的解决方案。