有类似于`<；的东西吗；？php phpinfo（）>；`用Perl？

Perl中是否有类似于

的东西？

为了澄清，我已经包含了bash提示符符号

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

---

打印

perl-V

所需的大部分信息。您还可以通过模块获取该信息的各个元素。

您想知道哪些信息？显然告诉你几乎所有的事情：

输出有关PHP当前状态的大量信息。这包括有关PHP编译选项和扩展、PHP版本、服务器信息和环境（如果编译为模块）、PHP环境、操作系统版本信息、路径、配置选项的主值和本地值、HTTP头以及PHP许可证的信息

您可以在Perl中以某种方式获得其中的大部分内容，但并非所有内容都来自同一个地方

• Perl附带的

  Config

  模块具有解释器的编译选项
• 这可能会为您提供更好的界面

• $^V

  具有当前解释器的版本（请参阅）

• %ENV

  拥有环境（请参阅）
• 您可以使用该模块了解操作系统
• 除非您使用mod_perl，否则perl CGI脚本可能无法直接访问HTTP头

---

为了补充，别忘了在文件中添加Perl bin路径

我使用的示例脚本如下：

确保以下行是文件中的第一行：

#!/usr/bin/perl

或者对于windows，可能类似（取决于您的环境）：

片段：

#!/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";
}

---

来源：

应该从脚本调用，而不是从控制台调用。无论如何谢谢你<代码>#哦，路径中的perl不是运行此脚本的perl。您运行的是suid，“perl”实际上是一个放入$PATH中的shell脚本，用于删除系统中的所有内容。（至少你的脚本也被删除了。）如果你想获得版本，只需在程序中使用$^V变量即可。@jrockway:如果是这样，你的问题会比错误的脚本更大，主要问题是存在大量的笨蛋。@Josh:不，这里的主要问题是你做了错误的事情。答案中的“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";
}