Gibt es etwas wie `<? Php phpinfo(); ?> in Perl?

Question

Gibt es in Perl etwas wie <?php phpinfo(); ?>?

Answer 1

Welche Informationen möchten Sie wissen? phpinfo sagt Ihnen scheinbar fast alles:

Gibt eine große Menge an Informationen über den aktuellen Zustand von PHP aus. Dies beinhaltet Informationen über PHP-Kompilierungsoptionen und -erweiterungen, die PHP-Version, Serverinformationen und -umgebung (falls kompiliert als ein Modul), die PHP-Umgebung, OS-Versionsinformationen, Pfade, Master- und lokale Werte der Konfigurationsoptionen, HTTP-Header und PHP Lizenz.

Sie können das meiste davon irgendwie in Perl bekommen, aber nicht alle vom selben Ort.

• Das Config-Modul, das mit Perl kommt, hat die Zusammenstellung Optionen für den Dolmetscher
• Die Probe::Perl könnten Sie eine bessere Schnittstelle
• $^V hat die Version des aktuellen Interpreter (siehe perlvar)
• %ENV hat die Umgebung (siehe perlvar)
• Sie können das Modul Devel::CheckOS verwenden, um sich über das Betriebssystemzu informieren Wenn Sie mod_perl verwenden, Ihre Perl-CGI-Skript wird wahrscheinlich keinen direkten Zugriff auf HTTP-Header

Answer 2

Zur Klarstellung habe ich das Bash-Prompt-Symbol eingefügt.

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

Answer 3

use Config qw(myconfig); 

print myconfig(); 

druckt ein Großteil der Informationen, die perl -V tut. Sie können auch einzelne Elemente dieser Informationen über das Modul Config erhalten.

Answer 4

einfach auf hinzufügen möchten, vergessen Sie nicht, den Perl-bin-Pfad in der Datei hinzuzufügen.

Ein Beispiel-Script habe ich folgt:

Stellen Sie sicher, dass die folgende Zeile die erste in der Datei ist:

#!/usr/bin/perl 

oder Windows, kann so etwas wie (je nach Umgebung):

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

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