Perl CGI脚本中如何为stdout添加换行以格式化HTML页面输出

安全阿岳

2026-5-14

解决CGI输出内容在HTML中不换行的问题

你的问题核心是HTML不会识别普通的换行符（\n）为换行，它只会把所有空白字符（包括换行、空格、制表符）当成单个空格处理，所以ranking命令输出的多行内容才会挤在一行显示。这里给你两种简单有效的解决思路：

方法1：把换行符替换成HTML换行标签`<br>`

首先要替换原来的system调用——因为system只返回命令执行状态，不会捕获输出内容。我们需要先捕获命令输出，再把其中的换行符替换成HTML能识别的<br>标签，最后输出到页面。修改后的代码如下：

if ($cmd eq 'set'){ 
    my @args = ('ranking', 'set', $bug_id, $rank); 
    # 捕获命令的所有输出（包括错误信息，用2>&1重定向）
    my $output = `@args 2>&1`;
    # 检查命令是否执行成功，保持原有的错误处理逻辑
    if ($? != 0) {
        die "system @args failed: $?";
    }
    # 把每个换行符替换成HTML换行标签
    $output =~ s/\n/<br>/g;
    # 输出处理后的内容到页面
    print $output;
}

方法2：用`<pre>`标签保留原始格式

如果想完整保留命令输出的原始排版（比如空格缩进、多行结构），可以用HTML的预格式化标签<pre>，它会完全尊重文本的空白和换行格式。注意要先转义输出中的HTML特殊字符（比如<、>、&），避免破坏页面结构：

# 先引入HTML转义模块，需要确保你的环境已安装该模块
use HTML::Entities;

if ($cmd eq 'set'){ 
    my @args = ('ranking', 'set', $bug_id, $rank); 
    my $output = `@args 2>&1`;
    if ($? != 0) {
        die "system @args failed: $?";
    }
    # 转义HTML特殊字符，防止页面渲染出错
    $output = encode_entities($output);
    # 用<pre>标签包裹输出，保留原始格式
    print "<pre>$output</pre>";
}