无法在 perl CGI 中打印文件的内容

【问题标题】：Not able to print the content of a file in perl CGI无法在 perl CGI 中打印文件的内容
【发布时间】：2013-05-31 18:23:05
【问题描述】：

我想在网页中逐行打印文件的内容这是我拒绝工作的代码。

open(CNF, '<G:\automation_managment\".$n."\config.txt') or die "cant open";
my @cnf=<CNF>;
close(CNF);
my $i= 0;
print "your city, $cnf[$i]"; 
$i++;
print "your age, $cnf[$i]"; 
$i++;
print "your grade, $cnf[$i]"; 
$i++;
print "your phone number, $cnf[$i]"; 
$i++;
print "your email id, $cnf[$i]";

打开命令有错误吗？它适用于绝对路径。但路径中没有变量

【问题讨论】：

既然你在那里做“或死”，你应该最了解可能的错误。
作为提示：你应该使用 'or die "cant open: $!";'获取错误消息。并且您的 $n 没有被评估，因为您使用单引号。
问题是 $n 没有评估，即使我使用了双引号并且我也无法获得 die 消息。
我不确定你是否分享了完整的代码：你在哪里设置 $n 并且可能是“使用警告；”和“使用严格；”给你更多的提示。

标签： perl file cgi file-handling

【解决方案1】：

改变这一行：

open(CNF, '<G:\automation_managment\".$n."\config.txt') or die "cant open";

作者：

open(CNF, '<G:\automation_managment\'.$n.'\config.txt') or die "cant open";

注意单引号而不是双引号。

此外，您可以使用正斜杠而不是反斜杠：

open(my $fh, '<', 'G:/automation_managment/'.$n.'/config.txt') or die "cant open"

【讨论】：

没有运气，它打印反斜杠在 test.pl 第 28 行预期操作符的位置，靠近 "'
我建议 sprintf('
我投反对票的原因是 2 arg 版本的 open 和糟糕的错误消息。是的，这行得通，但这不是我希望人们在使用搜索引擎找到此答案时看到的那种建议。
@innaM：我刚刚获取了 OP 的代码并更正了它的工作。我还提出了一个开放 3 arg 的解决方案。