我有一个运行的 bash 脚本，我正在尝试使用 Perl one-liner 来替换文件 variables.php 中的一些文本

但是，我想检查 Perl one-liner 是否成功运行，这就是我挂断电话的地方。我可以只输出 one-liner 并且它可以正常工作，但我想确定它是否运行。

基本上，函数 replace_variables() 是执行更新的函数，我想检查单行是否正常工作的 if 语句。

我试过在那个 if 语句中使用 run_command 函数，但这没有用，我试过将单线直接放在那里，这也不起作用。

如果我不将其包装在 if 语句中，而直接调用单行，则一切都会按预期进行。

这是完整的文件

#!/bin/bash

export CLI_CWD="$PWD"

site_variables() {
  if [ -f "$CLI_CWD/variables.php" ]; then
    return true
  else
    return false
  fi
}

replace_variables() {
  # perl -pi -e 's/(dbuser)(s+)=s.*;$/1 = Config::get("db")["user"];/; s/(dbpass)(s+)=s.*;$/1 = Config::get("db")["pass"];/; s/(dbname)(s+)=s.*;$/1 = Config::get("db")["database"];/' "$CLI_CWD/variables.php"
  if [run_command ]; then
    echo "Updated variables.php successfully"
  else 
    echo "Did not update variables.php"
  fi
}

run_command() {
  perl -pi -e 's/(dbuser)(s+)=s.*;$/1 = Config::get("db")["user"];/; s/(dbpass)(s+)=s.*;$/1 = Config::get("db")["pass"];/; s/(dbname)(s+)=s.*;$/1 = Config::get("db")["database"];/' "$CLI_CWD/variables.php"
}


if [ site_variables ]; then
  replace_variables
else 
  >&2 echo "Current directory ($(pwd)) is not a project root directory"
  exit 4
fi

这是 if 语句失败的函数

replace_variables() {
  # perl -pi -e 's/(dbuser)(s+)=s.*;$/1 = Config::get("db")["user"];/; s/(dbpass)(s+)=s.*;$/1 = Config::get("db")["pass"];/; s/(dbname)(s+)=s.*;$/1 = Config::get("db")["database"];/' "$CLI_CWD/variables.php"
  if [run_command ]; then
    echo "Updated variables.php successfully"
  else 
    echo "Did not update variables.php"
  fi
}

您可以看到我在 if 语句之前注释掉了单行，如果我让它运行并删除 if/else 检查，它会起作用。

这是更新前的原始文件片段

//Load from Settings DB
    $dbuser     = 'username';
    $dbpass     = 'password';
    $dbname     = 'database_name';

这是更新运行后的文件片段

//Load from Settings DB
    $dbuser = Config::get("db")["user"];
    $dbpass = Config::get("db")["pass"];
    $dbname = Config::get("db")["database"];

回答

...
    if run_command; then
...