Apache httpd : Perl + mod_perl2015/07/30

	Install mod_perl to make Perl scripts be fast.
[1]	Install mod_perl.

# install from EPEL

[root@www ~]#

yum --enablerepo=epel -y install mod_perl

[2]	Configure PerlRun mode which always put Perl interpreter on RAM.

[root@www ~]#

vi /etc/httpd/conf.d/perl.conf

# line 15: uncomment ( check codes and output warnings to logs )

PerlSwitches -w

# line 24: uncomment

PerlSwitches -T

# line 30-36: uncomment like follows

Alias /perl /var/www/perl
<Directory /var/www/perl>

# the directory for mod_perl environment

SetHandler perl-script

# processes files as perl-scripts under this directory

# AddHandler perl-script .cgi

# set specific extension if do do not want to processes all files as CGI

# PerlResponseHandler ModPerl::Registry

PerlResponseHandler ModPerl::PerlRun

# specify PerlRun mode

PerlOptions +ParseHeaders
Options +ExecCGI
</Directory>

# line 43-49: uncomment and add like follows

<Location /perl-status>
SetHandler perl-script
PerlResponseHandler Apache2::Status

Require ip 127.0.0.1 10.0.0.0/24

# add access permission

# Order deny,allow
# Deny from all
# Allow from .example.com
</Location>

[root@www ~]#

systemctl restart httpd

[3]	Create a test Script to make sure the settings are no problem. It's OK if the result like follows is displayed.

[root@www ~]#

mkdir /var/www/perl

[root@www ~]#

vi /var/www/perl/test-mod_perl.cgi

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html\n\n";
print "<html>\n<body>\n";
print "<div style=\"width:100%; font-size:40px; font-weight:bold; text-align:center;\">";

my $a = 0;
&number();

print "</div>\n</body>\n</html>";

sub number {
    $a++;
    print "number \$a = $a";
}

[root@www ~]#

chmod 705 /var/www/perl/test-mod_perl.cgi

[4]	Configure Registry mode which has caches of codes on RAM.

[root@www ~]#

vi /etc/httpd/conf.d/perl.conf

Alias /perl /var/www/perl
<Directory /var/www/perl>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry

# uncomment

PerlResponseHandler ModPerl::PerlRun

# comment out

PerlOptions +ParseHeaders
Options +ExecCGI
</Directory>

[root@www ~]#

systemctl restart httpd

[5]	Access to the test script which is an example of [4] section, then variable increases by reloading because variable is cached on RAM. So it's necessarry to edit the code for Registry mode.

[root@www ~]#

vi /var/www/perl/test-mod_perl.cgi

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html\n\n";
print "<html>\n<body>\n";
print "<div style=\"width:100%; font-size:40px; font-weight:bold; text-align:center;\">";

my $a = 0;

&number(

);

print "</div>\n</body>\n</html>";

sub number {

my($a) = @_;

    $a++;
    print "number \$a = $a";
}

[6]	By the way, it's possible to see the status of mod_perl to access to "http://(hostname or IP address)/perl-status".

Matched Content