如何将Perl调试器作为纯STDIN/STDOUT REPL运行（无readline等装饰）

核心思路 #

让Perl调试器脱离终端依赖，禁用readline和终端装饰，设置独特提示符，通过Bash协程的管道进行命令交互，确保能准确识别调试器的响应结束。

方案一：临时配置调试器（推荐） #

无需修改全局配置，通过环境变量PERLDB_OPTS临时调整调试器行为：

1. 启动带自定义配置的协程：

coproc myPerlDebuggerServer {
  PERLDB_OPTS="readline=0 prompt='DB_CUSTOM_PROMPT>>>'" perl -d -e 42 </dev/null 2>&1
}

• readline=0：禁用调试器的readline行编辑功能，避免终端交互干扰
• prompt='DB_CUSTOM_PROMPT>>>'：设置足够独特的提示符，用于判断响应完成
• </dev/null：告知调试器无终端输入，进入非交互模式
• 2>&1：合并标准错误到标准输出，统一通过协程管道读取所有输出

2. 编写Shell交互函数：

perl_debug() {
  local cmd="$1"
  # 发送命令到调试器协程的标准输入
  echo "$cmd" >&${myPerlDebuggerServer[1]}
  # 读取输出直到遇到自定义提示符
  while IFS= read -r line; do
    echo "$line"
    [[ "$line" == 'DB_CUSTOM_PROMPT>>>' ]] && break
  done <&${myPerlDebuggerServer[0]}
}

• 使用>&${myPerlDebuggerServer[1]}向协程写入命令
• 通过循环读取输出，直到匹配到自定义提示符时停止，确保完整获取一次命令的响应

方案二：全局调试器配置 #

如果需要长期使用该配置，可修改Perl调试器的全局配置文件~/.perldb：

1. 创建或编辑~/.perldb：

$DB::readline = 0;
$DB::prompt = 'DB_CUSTOM_PROMPT>>> ';

2. 启动协程时只需简化命令：

coproc myPerlDebuggerServer { perl -d -e 42 </dev/null 2>&1; }

交互函数与方案一完全相同。

使用示例 #

• 发送调试命令：perl_debug 'next'
• 查看调试器帮助：perl_debug 'help'
• 退出调试器：perl_debug 'quit'

内容的提问来源于stack exchange，提问作者Britton Kerin