请问我有一个概念性问题。我有两个进程在同一目录中输出同名文件，然后在 perl 脚本中执行/读取该文件。这两个进程可以同时运行，我担心文件有可能被另一个进程覆盖，因此其中一个进程执行了不正确的源文件。基本上这行是这样的：（这两行是两个进程共有的）
$cmd = `my_script.pl`; ## This generates runx file
$cmd = `source runx | grep - i "Error";`
注意：我无法控制文件名，我必须同时运行两个进程
我可以在第一个命令之后使用独占文件锁来防止串通吗？
【问题讨论】：
您锁定的文件不一定是您要保护的文件。
use Fcntl qw( LOCK_EX );
my $output;
{
my $script_qfn = 'my_script.pl';
my $lock_qfn = $script_qfn . '.lock';
open(my $fh, '>', $lock_qfn)
or die("Can't create lock file \"$lock_qfn\": $!\n");
flock($fh, LOCK_EX)
or die("Can't lock \"$lock_qfn\": $!\n");
system { $script_qfn } $script_qfn;
$output = `source runx | grep -i Error`;
}
但是为什么不让my_script.pl 将其输出发送到 STDOUT？那么就不需要锁了。您可以简单地使用以下内容：
my $output = `my_script.pl | sh | grep -i Error`;
拨打system的三种方式：
system($shell_command)。system($prog, @args)。必须至少有一个 arg。system({ $prog } $arg0, @args)。 0+ 个参数。在这种情况下，我们没有 shell 命令，也没有任何 args，所以我们不得不使用第三种方法（或者构建一个 shell 命令，比如说，使用 String::ShellQuote 的shell_quote） .使用system($script_qfn) 会引入code injection bug。
【讨论】：
system($script_qfn) 会引入 code injection bug。