Есть что-то вроде`в Perl?

Question

Есть ли что-то вроде <?php phpinfo(); ?> в Perl?

Answer 1

Какую информацию вы хотите знать? phpinfo , по-видимому, говорит вам почти все:

Выводит большое количество информации о текущем состоянии PHP.Сюда входит информация о параметрах и расширениях компиляции PHP, версии PHP, информации о сервере и среде (если она скомпилирована как модуль), среде PHP, информации о версии ОС, путях, основных и локальных значениях параметров конфигурации, заголовках HTTP и PHPЛицензия.

Большую часть этого вы можете получить каким-либо образом в Perl, но не все из одного места.

• Модуль Config, поставляемый с Perl, имеетопции компиляции для интерпретатора
• Probe :: Perl может дать вам лучший интерфейс
• $^V имеет версию текущего интерпретатора (см. perlvar )
• %ENV имеет среду (см. perlvar )
• Вы можете использовать модуль Devel :: CheckOS , чтобы найтио OS
• Если вы не используете mod_perl, ваш CGI-скрипт Perl, вероятно, не будет иметь прямого доступа к заголовкам HTTP

Answer 2

use Config qw(myconfig);

print myconfig();

печатает большую часть информации, которую делает perl -V.Вы также можете получить отдельные элементы этой информации через модуль Config .

Answer 3

Просто добавьте, не забудьте добавить путь Perl bin в ваш файл.

Пример сценария, который я использовал, следующий:

Убедитесь, что следующая строка является первой в вашем файле:

#!/usr/bin/perl

ИЛИ Для окон может быть что-то вроде (в зависимости от вашей среды):

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

Фрагмент:

#!/usr/bin/perl
# test.cgi by Bill Weinman [http://bw.org/]
# Copyright 1995-2008 The BearHeart Group, LLC
# Free Software: Use and distribution under the same terms as perl.

use strict;
use warnings;
use CGI;

print foreach (
    "Content-Type: text/plain\n\n",
    "BW Test version 5.0\n",
    "Copyright 1995-2008 The BearHeart Group, LLC\n\n",
    "Versions:\n=================\n",
    "perl: $]\n",
    "CGI: $CGI::VERSION\n"
);

my $q = CGI::Vars();
print "\nCGI Values:\n=================\n";
foreach my $k ( sort keys %$q ) {
    print "$k [$q->{$k}]\n";
}

print "\nEnvironment Variables:\n=================\n";
foreach my $k ( sort keys %ENV ) {
    print "$k [$ENV{$k}]\n";
}

Источник: http://cgi.bw.org/cgi-t/

Answer 4

Для пояснения я включил символ приглашения bash.

$ perl --version # This is what I would use