Question

我是Perl的新手，我的脚本遇到了问题。我希望有人能告诉我我在做什么错。

我的浏览器给我以下错误输出：

Can't modify print in scalar assignment at test.cgi line 12, near """;"
Execution of test.cgi aborted due to compilation errors.

代码：

#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

use strict;
use diagnostics;

my $radius = 5;
my $diameter = $radius * 2;

print = "The diameter is "  . $diameter . "";

Answer 1

由于这是一个旨在将输出返回到Web浏览器的cgi脚本，所以您不见了（打印header（）和html）：

use CGI qw/:standard/;  # or qw/:all/
print header();  #print out html header
print "<html><body>The diameter is "  . $diameter . "</body></html>"

有关header（）的更多信息，请参见https://perldoc.perl.org/CGI.html

无法修改标量分配错误中的打印

1 个答案: