Что случилось с этим

Question

мне нужно проверить профиль файл существует, так что я написал это для целей тестирования

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

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

Но его печать ничего ...

скрипт проверяет для файла профиля и если он не найден, он будет запрашивать у пользователя до тех пор, пока не будет указан допустимый путь, и выполнит этот файл профиля, я успешно выполнил это в сценарии оболочки, но столкнулся с проблемой в perl

Answer 1

на основе ваших комментариев, я подозреваю, что вы хотите что-то вроде этого:

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() - это то же самое, что и backticks, и вернет стандартный выход. system() вернет возвращаемое значение, заданное системой для выполненной команды. exec() выполнит команду и завершит ваш скрипт perl, фактически игнорируя любой код, следующий за exec. На основе ваших потребностей выберите вариант, который вам подходит.

Answer 2

В Perl обратные шаги выполняют команду оболочки. Например, эта печать будет привет:

`echo hi`; 

Чтобы проверить, существует ли файл, используйте -e:

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

Обратите внимание на одинарные кавычки ' вместо обратные кавычки ` вокруг строкового литерала.