发现在linux系统下运行perl脚本的run函数有问题，请问该怎么解决？

Question

my $res = run( [ 'sudo -u cis /ccrun/bin/dumpUnitPats', $unitID, $staffID ], \$input, \$output, \$str);本意是用run用sudo 以cis用户执行dumpProviderPats命令提示 file not found: sudo -u cis /ccrun/bin/dumpUnitPats该如何实现run 是IPC::run

Answer 1

应该是['sudo','-u','cis','/ccrun/bin/dumpUnitPats', $unitID, $staffID ]吧，错误提示明显是把整个‘sudo -u cis /ccrun/bin/dumpUnitPats’语句当做一个文件了

Answer 2

Backtick: `, not Apostrophe [ ' ]
`sudo -u cis /ccrun/bin/dumpUnitPats`
sub run {
my $sudo = shift;
## Did you de-reference it?
${$sudo}[0];
}