如何判断服务器上是否装了GD之类的模块

可以用下面的程序测试一下

#!/usr/local/bin/perl -w

# 安装和使用办法

# 建立一个新目录，比如env

# 修改这个目录的属性为755

# 用ASCII上传这个程序到你的这个新目录下面

# 修改这个程序的路径为 755

# 在你的浏览器中输入:

# http://你的站点/env/ms-env.cgi

# 就能看到你的站点都支持些什么

use lib '.';

use CGI;

use File::Find;

use strict;

my $page = CGI->new;

print $page->header, " ";

print $page->start_html(-dtd=>'-//W3C//DTD HTML 4.0 Transitional//EN', -title=>"Perl 环境测试: $ENV{SERVER_NAME}"), " ";

print $page->h1("Perl 环境测试: $ENV{SERVER_NAME}"), " ";

print $page->p("Perl 版本: $]"), " ";

print $page->p("CGI.pm 版本: $CGI::VERSION"), " ";

print $page->p("路径 (@INC):"), " ";

print $page->ul($page->li([@INC])), " ";

print $page->p('已经安装的库:'), " ";

my @mods;

my $list;

my $dir;

foreach $_ (@INC) { @mods = ();

$dir = $_; find(&wanted, $_);

$list .= $page->ul($page->li("$dir"), $page->ul($page->li([sort @mods])));

}

print $list, " ";

sub wanted {

return unless /.pm$/;

push @mods, $File::Find::name;

}