perl - 如何查询CGI环境下的所有数据？

Question

我需要知道脚本中的 CGI 变量。我知道我可以使用

$query->param()

获取CGI参数，如何获取模块路径和Perl版本？

Answer 1

你的问题真的很模糊..

要获得完整的环境和所有已安装的模块，请使用:

#!"\xampp\perl\bin\perl.exe"

use strict;
use warnings;        
use File::Find ;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

# use sneaky cgi direct printing ;)
$|=1 ;

# define subs
sub permodules;

# print header
print header;
print start_html("Environment");

# get perl version
print `perl -v`;

# get env vars
foreach (sort keys %ENV) {
    print $ENV{$_};
}

# get inc vars
print @INC;
foreach my $path (@INC) {
    next if ($path =~ /^\./) ;
    find(\&perlmodules,$path) ;
}

# get mods
my (@mods,%mods);
@mods=sort {lc($a) cmp lc($b)} keys %mods;
my $amount=int($#mods/3+.9999) ;
for (my $mod=0 ; $mod<$amount ; $mod++)  {
    print $mods[$mod] . "-" . $mods[$mod+1*$amount] . "-" . $mods[$mod+2*$amount] ;
}

sub perlmodules {   

    if ($File::Find::name =~ /\.pm$/){      
        open(MODFILE,$File::Find::name) || return;      
        while(<MODFILE>){           
            if (/^ *package +(\S+);/) {             
                $mods{$1}=1 ;   
                last;
            }
        }
        close(MODFILE) ;
    }
}

# end
print end_html;

根据您的需要调整打印语句。