¿Hay algo como `<? Php phpinfo(); ?> `en Perl?

Question

¿Hay algo así como <?php phpinfo(); ?> en Perl?

Answer 1

¿Qué información quiere saber? phpinfo aparentemente le dice casi todo:

Ofrece una gran cantidad de información sobre el estado actual de PHP. Esto incluye información sobre las opciones y extensiones de compilación de PHP, la versión de PHP, información y entorno del servidor (si se compila como un módulo), el entorno PHP, información de versión del sistema operativo, rutas, valores maestros y locales de opciones de configuración, encabezados HTTP y el PHP Licencia.

Puede obtener la mayor parte de eso de alguna manera en Perl, pero no todos del mismo lugar.

• El módulo Config, que viene con Perl, tiene las opciones de compilación para el intérprete
• El Probe::Perl podría darle una mejor interfaz
• $^V tiene la versión del intérprete actual (véase perlvar)
• %ENV tiene el medio ambiente (véase perlvar)
• Usted puede utilizar el módulo Devel::CheckOS para obtener información sobre el sistema operativo
• menos que esté utilizando mod_perl, la secuencia de comandos CGI Perl probablemente no tendrá acceso directo a las cabeceras HTTP

Answer 2

Para aclarar, he incluido el símbolo de indicación bash.

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

Answer 3

use Config qw(myconfig); 

print myconfig(); 

impresiones de gran parte de la información que perl -V hace. También puede obtener elementos individuales de esa información a través del módulo Config.

Answer 4

Sólo para añadir, no se olvide de agregar la ruta bin Perl en su archivo.

un script de ejemplo he utilizado la siguiente manera:

Asegúrese de que la siguiente línea es la primera en su archivo:

#!/usr/bin/perl 

o Windows, puede haber algo así como (dependiendo del entorno):

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

Fragmento:

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

Fuente: http://cgi.bw.org/cgi-t/