C'è qualcosa come `<? Php phpinfo(); ?> `in Perl?

Question

C'è qualcosa come <?php phpinfo(); ?> in Perl?

Answer 1

Quali informazioni vuoi sapere? phpinfo a quanto pare ti dice quasi tutto:

Emette una grande quantità di informazioni sullo stato attuale di PHP. Ciò include informazioni sulle opzioni di compilazione PHP e sulle estensioni, la versione PHP, le informazioni sul server e l'ambiente (se compilato come modulo), l'ambiente PHP, le informazioni sulla versione del SO, i percorsi, i valori locali e master delle opzioni di configurazione, le intestazioni HTTP e il PHP Licenza.

È possibile ottenere la maggior parte di quello in qualche modo in Perl, ma non tutti dallo stesso luogo.

• Il modulo Config, che viene fornito con il Perl, ha le opzioni di compilazione per l'interprete
• Il Probe::Perl potrebbe dare una migliore interfaccia
• $^V ha la versione dell'interprete corrente (vedere perlvar)
• %ENV ha l'ambiente (vedi perlvar)
• È possibile utilizzare il modulo Devel::CheckOS per scoprire il sistema operativo
• Se non si utilizza mod_perl, lo script CGI Perl probabilmente non hanno accesso diretto alle intestazioni HTTP

Answer 2

Per chiarimenti, ho incluso il simbolo del prompt di bash.

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

Answer 3

use Config qw(myconfig); 

print myconfig(); 

stampe gran parte delle informazioni che perl -V fa. È inoltre possibile ottenere singoli elementi di tali informazioni tramite il modulo Config.

Answer 4

solo aggiungere su, non dimenticate di aggiungere il percorso bin Perl nel file.

Uno script di esempio ho usato segue:

Assicurarsi che la seguente riga è il primo nel file:

#!/usr/bin/perl 

o Windows, potrebbe essere qualcosa di simile (a seconda dell'ambiente):

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

Snippet:

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

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