Функция get в Perl с веб-сайтом не выдает значения внутри сценария Perl.

Question

Я пытаюсь получить index.pl?home=home для получения значения home в моем скрипте perl или home = что-нибудь для создания 'any'.

Почему-то я не правильно использую метод GET.

#!/usr/local/bin/perl
use CGI qw(:standard);
$cgi = new CGI;
$home = $cgi->param('home');

---

Что я делаю не так? Я искал и искал этот конкретный ответ ...

Answer 1

Добавьте $cgi->header(); к вашему сценарию. Скорее всего, вы столкнулись с ошибкой "Premature end of script headers":

#!/usr/local/bin/perl
use CGI qw(:standard);
$cgi = new CGI;
$home = $cgi->param('home');

print $cgi->header();
print $home

Проверьте ваш error_log для деталей.

Answer 2

Ваш код отлично работает для меня. Мой полный сценарий выглядит так:

#!C:/perl/bin/perl.exe

use CGI qw(:standard);
$cgi = new CGI;
$home = $cgi->param('home');

print "Content-Type: text/plain\n";
print "\n";
print "Hello world\n";
print "Hello $home world\n";

(Я на Windows, но это не должно иметь значения.)

Когда я посещаю http://localhost/stack.pl?home=xx Я вижу:

Hello world
Hello xx world