|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Gorbanev 2:5057/19.20 10 Jan 2001 05:16:42
To : Rustem Samatov
Subject : Re: bash-2.03$ locate *.pm
--------------------------------------------------------------------------------
On Mon, 08 Jan 01 12:21:29 +0400 Rustem Samatov wrote:
RS>>> ткните в perldoc поконкретнее.
v>> а если ты под виндой, то не знаю... :(
RS> извините за неточный вопрос, на удаленной машине, через *.pl. хостер не
RS> хочет признаваться какие модули установлены. Сегодня после долгих и
я делаю так (ни в коем случае не претендуя на истину в последней инстанции):
===8<=== /home/httpd/cgi-bin/test ===>8===
#!/usr/bin/perl
use CGI;
use strict;
my $q = new CGI;
print $q->header;
print $q->start_html('CGI status page');
if (exists $ENV{MOD_PERL}) {
print "we're running under $ENV{MOD_PERL}<br>"
} else {
print "no mod_perl<br>"
}
print $q->h2('Perl Internals');
print '<pre>';
print_array('@INC', @INC);
print "PERL_VERSION = '$]'\n";
print "OSNAME = '$^O'\n";
print "CGI::VERSION = '$CGI::VERSION'\n";
print '</pre>';
print $q->h2('Modules');
print '<pre>';
my @modules;
find_modules($_) foreach @INC;
print "$_\n" foreach sort @modules;
print '</pre>';
print $q->h2('Environment');
print '<pre>';
foreach my $key (sort keys %ENV) {
print "$key = $ENV{$key}\n";
}
print '</pre>';
print $q->end_html;
sub print_array {
my ($name, @array) = @_;
print "$name = (";
print "'", join("', '", @array), "'" if @array;
print ")\n";
}
sub find_modules {
my ($dir, $prefix) = @_;
opendir DIR, $dir or return;
my @files = readdir DIR;
closedir DIR;
foreach (@files) {
if (-d "$dir/$_") {
/^[A-Z]/ and find_modules("$dir/$_", "$prefix$_" . '::');
next;
}
/(.*)\.pm$/ or next;
push (@modules, "$prefix$1");
}
}
===8<=== CUT ===>8===
--
RnD[.] [ http://dot.formoza.ru/ ]
GCS d- s+:- a-- C++++ UBL+++ P+++ L+++ E(++) W+(++) N++@+ o? K-
w O M- V PS+ PE Y PGP- t- 5 X R- tv b+ DI-- D++ G++ e- h! r y**
--- tin/1.5.7-20010105 ("Laetitia") (UNIX) (Linux/2.2.16-3 (i586))
* Origin: one flew over the sniper's nest (2:5057/19.20)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
