如何使用 perl 将正则表达式变量的结果写入新文件？

Question

从下面的代码中，我想存储正则表达式结果变量的内容（即 $fh 结果到新文件名中）。我该怎么做？

是否有任何可能的方法可以将正则表达式变量输出（即$fh 输出）写入新文件？ 这是我的代码：

use strict;
use warnings;
open my $fh,'<',"open.txt" or die "$!";
while(<$fh>)
  {
    $fh=s/("\d+|\d+|")\s*/$1/g;
    print $fh;
  }
close $fh;

错误：

readline() on unopened filehandle 1 at fr.pl line 7.
close() on unopened filehandle 1 at fr.pl line 9.

打开.txt

1
2
3
radio
vendor
version114
version115

输出：

注意： $fh 具有正则表达式值。现在这些 $fh 值应该存储在新文件中并打印如下相同的内容。

radio
vendor
version
version

Answer 1

我不完全确定您要做什么。但我可以看到是什么产生了你的错误。问题是这一行：

$fh=s/("\d+|\d+|")\s*/$1/g;

在执行这行代码之前，$fh 包含您从中读取数据的文件句柄。但是使用这行代码，您可以用替换的结果覆盖该值。这要么是进行的替换次数（这是一个整数），要么是一个空字符串（如果替换失败）。在这两种情况下，$fh 将不再包含您的文件句柄。

所以在循环的第一次迭代结束时，$fh 不再包含文件句柄。因此，当您在第二次迭代开始时执行 while (<$fh>) 时，将会失败（因为正如错误所说，$fh 不是打开的文件句柄）。该读取失败并跳过循环。执行的下一行是调用close()。这也因完全相同的原因而失败。

我完全不确定你认为那行代码在做什么。但它实际上所做的是破坏你的程序:-)

更新：我怀疑此时阅读（更重要的是，理解）Perl 常见问题解答How do I change, delete, or insert a line in a file, or append to the beginning of a file? 将是一种非常有益的利用时间。您似乎不了解基本文件操作的工作原理。