2

我有一个在 Win32 ActivePerl 上运行的 Perl/POE/Tk 脚本,它使用system. 我使用pp. 我可以解压 exe 并在“zip”文件目录的根目录下查看可执行文件,但是当我运行 exe 并尝试使用系统调用的功能时,我得到“找不到文件”类型的错误;

'..\cpau' is not recognized as an internal or external command, 
operable program or batch file.

cpau.exe 是包含的文件之一。

pp被称为:

pp -i alias3.ico -g -a add_event.job -a add_rec.job -a CPAU.exe -a del_event.job -a del_rec.job -a dnscmd.exe -a eventcreate.exe -o alias_v_3-0.exe alias_poe_V-3_0_par.pl

我猜我需要调整system呼叫的路径。我目前正在尝试使用默认路径;

system("cpau -dec -file add_rec.job -nowarn -wait");

我试过这个:

system("..\cpau -dec -file ..\add_rec.job -nowarn -wait");

推理 pp 将脚本放在 \scripts\ 目录中,但没有乐趣。有什么建议么?

4

2 回答 2

3

更新:下面的建议不起作用。但是,如果其他人有类似的问题,我会留下它们。这个答案显示了很多听起来合理但行不通的事情。

有关使用 $ENV{PAR_TEMP}解决OP 问题代码,请参阅OP 转发后的讨论

以供参考

pp文档说:

-a, --addfile=文件|目录 ...

默认情况下,文件以其原始名称放置在 / 包内。

通过使用系统,您要求cmd.exe查找文件,我现在意识到这可能是一场失败的战斗,除非您有一个名为cpau.exe. 我现在没有时间尝试这个,但是你可能必须自己做forkexec不是依赖system. 如:

exec 'CPAU.exe', @args

上一个答案:

您传递给的字符串system不包含您认为的内容:

use strict;
use warnings;

my $x= "..\cpau -dec -file ..\add_rec.job -nowarn -wait";

print $x, "\n";
__END__

C:\Temp> fgh
..►au -dec -file ..dd_rec.job -nowarn -wait

使用(在下面的 OP 评论之后编辑):

system "..\\cpau -dec -file ../add_rec.job -nowarn -wait";

我还建议使用以下列表形式system

system '..\\cpau', qw(-dec -file ../add_rec.job -nowarn -wait);

此外,如果您想指定相对于当前脚本目录的路径,您可能会发现FindBin很方便。cpau

例如:

#!/usr/bin/perl

use strict;
use warnings;

use FindBin qw($Bin);
use File::Spec::Functions qw( catfile );

my $program = catfile $Bin, '..', 'cpau';

system $program, qw(-dec -file ../add_rec.job -nowarn -wait);

__END__
于 2009-07-10T17:05:48.713 回答
0

我意识到代码中对可执行文件的另一个调用正在工作。我查看并发现正在运行的调用使用了 backtics 而不是 system() 调用。我将其他调用更改为 backtics,问题就消失了。

`.\\cpau -dec -file .\\del_rec.job -nowarn -wait`;

所以,这就解决了问题,为什么要买?win32 shell 中的 system() 和 backtic 有什么区别?

说得太早了。这适用于 cpau 已经存在的目录。当我在 c:\temp 中尝试时,我得到“'cpau' 不被识别为内部或外部命令、可运行程序或批处理文件。” 错误。非常令人沮丧。

我难住了。

`cpau -dec -file del_rec.job -nowarn -wait`;

我试过有没有倾斜的“.\\”。无论哪种方式都相同的错误。

于 2009-07-13T13:51:03.397 回答