为了账号安全,请及时绑定邮箱和手机立即绑定

Perl 反引号调用求助?

/ 猿问

Perl 反引号调用求助?

慕的地2183247 2019-02-27 21:03:43

Perl 反引号调用求助


查看完整描述

3 回答

?
aluckdog

my $cur_dir = `pwd`;
chomp($cur_dir);
my $file = "$cur_dir/bin/ProcessDir.exe";
if(-e $file){
my $str = `$file`; #see below comments:
print "str is $str \n";
}
#直接在windows cygwin下面调用返回正常,但通过CGI调用后$str返回为空string.
解决
把 $cur_dir 输出到网页上查看是什么内容。
用 print "$@ $! $^E $?\n" 看看这些变量都什么内容,参考
perldoc perlvar 搜索 Error Indicators。

查看完整回答
反对 回复 2019-03-30
?
回首忆惘然

可以使用两种方法:
1.require "xxx.pl";
2.use xxx.pm;
加入require或者use在perl中相当于将文件xxx.pl/pm整个文件都添加到调用它的文件中;
例如:
gettime.pl
#!/usr/bin/perl
print "gettime is 2011-07-25 14:40:10\n";
showtime.pl
#!/usr/bin/perl
require "gettime.pl";
print "get time ok\n";
则执行showtime.pl会显示:
gettime is 2011-07-25 14:40:10
get time ok

查看完整回答
反对 回复 2019-03-30
?
侃侃无极

用system或者反引号都可以
如:system("perl b.pl 1")

查看完整回答
反对 回复 2019-03-30

添加回答

回复

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信