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

Question

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

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]";

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

Answer 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"