Не удается изменить печать при скалярной ошибке присваивания - PullRequest
0 голосов
/ 19 апреля 2019

Я новичок в 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 . "";

1 Ответ

2 голосов
/ 19 апреля 2019

Поскольку это скрипт cgi, предназначенный для возврата вывода в веб-браузер, вам не хватает (print header () и html):

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

Подробнее о заголовке () см. https://perldoc.perl.org/CGI.html

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...