这有什么问题[重复]

Question

我需要检查配置文件是否存在，所以我写这个是为了测试目的

#!/usr/bin/perl
use strict;
use warnings;

my $prfle=`~/sqllib/db2profile`;
print $prfle;

但它什么也没打印...

脚本检查配置文件，如果找不到，它将询问用户，直到提供有效路径并执行该配置文件，我在 shell 脚本中成功实现了这一点，但在 perl 中遇到了问题

Answer 1

在 Perl 中，反引号执行一个 shell 命令。例如，这将打印 hi:

`echo hi`;

要检查文件是否存在，请使用-e:

$prfle= '~/sqllib/db2profile';
if (-e $prfle) {
    print "File Exists!\n";
}

注意字符串文字周围的单引号'，而不是反引号`。

Answer 2

根据你的 cmets，我怀疑你想要这样的东西：

my $profile = '';                     # default profile
while (not -e $profile) {             # until we find an existing file
    print "Enter a valid profile: "; 
    chomp($profile = <>);             # read a new profile 
}
qx($profile);                         # execute this file

执行文件的选项不止一种。 qx() 与反引号相同，将返回标准输出。 system() 将返回系统给出的执行命令的返回值。 exec() 将执行命令并退出您的 perl 脚本，有效地忽略 exec 之后的任何代码。根据您的需要，选择最适合您的选项。