perl - 使用 perl s/.../.../e 打印到文件描述符

Question

我在使用以下 perl 代码时遇到错误:

#!/usr/bin/perl
open $fh, '>', 'myfile.txt' or die;
s|(.*)|print $fh "Hello",$1," how are you"|e;
close $fh or die

String found where operator expected at ./script.pl line 3, near "$fh "Hello""
(Missing operator before "Hello "?)

我再次使用 s|(.*)|...|e 来写字符串的开头，例如 Hello Hello。

文件 myfile.txt 的预期输出是

Hello Hello, how are you?

有没有办法让它与实际操作一起运行？

或者我必须以另一种方式更改 s|(.*)|...|e 操作吗？

Answer 1

有趣的是，有效的方法是将文件句柄括在大括号中:

s/(.*)/print {$fh} "Hello",$1," how are you"/e;

无论如何，始终使用它们是一个好习惯。